{"author_name":"excelmacro","published":"2021-07-29 00:13:50","title":"\u76ee\u6b21\u4f5c\u6210\u30de\u30af\u30ed","provider_url":"https://hatena.blog","url":"https://excelmacro.hateblo.jp/entry/2021/07/29/001350","image_url":null,"version":"1.0","author_url":"https://blog.hatena.ne.jp/excelmacro/","provider_name":"Hatena Blog","categories":[],"width":"100%","blog_url":"https://excelmacro.hateblo.jp/","description":"Sub makeSheetsContent()'\u30b7\u30fc\u30c8\u76ee\u6b21\u3092\u4f5c\u308b Dim arr As Variant Dim ws As Worksheet Dim rng As Range Dim buf As String Dim i As Integer Dim wsNum As Integer Call appSet wsNum = Worksheets.Count '\u30b7\u30fc\u30c8\u306e\u6570\u3002\u898b\u51fa\u3057\u3082\u4f5c\u6210\u3059\u308b\u305f\u3081\u306b1\u52a0\u3048\u3066\u304a\u304f ReDim arr(1 To wsNum, 1 To 2) '\u307e\u305a\u898b\u51fa\u3057\u3092\u30bb\u30c3\u30c8 For i = 1 To wsNum arr(i, 1) = i '\u756a\u53f7 arr(i, 2) = Wor\u2026","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fexcelmacro.hateblo.jp%2Fentry%2F2021%2F07%2F29%2F001350\" title=\"\u76ee\u6b21\u4f5c\u6210\u30de\u30af\u30ed - excelmacro\u2019s diary\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"excelmacro\u2019s diary","height":"190"}