{"width":"100%","provider_name":"Hatena Blog","categories":["VBA"],"height":"190","published":"2024-01-19 07:11:59","provider_url":"https://hatena.blog","type":"rich","blog_title":"Hiko.Blog  Excel VBA\u6d3b\u7528\u8853","image_url":null,"blog_url":"https://hiko-blog.hatenadiary.com/","url":"https://hiko-blog.hatenadiary.com/entry/2024/01/19/071159","title":"\u30b7\u30fc\u30c8\u540d\u53d6\u5f97","description":"Sub Worksheet_Activate() Dim wbThis As Workbook Dim wsThis As Worksheet Dim ws As Worksheet Dim ListStr As String '\u5909\u6570\u306b\u3053\u306e\u30d6\u30c3\u30af\u3092\u30bb\u30c3\u30c8 Set wbThis = ThisWorkbook '\u5909\u6570\u306b\u3053\u306e\u30b7\u30fc\u30c8\u3092\u30bb\u30c3\u30c8 Set wsThis = wbThis.Worksheets(\"csv\") '\u30ea\u30b9\u30c8\u5165\u529b\u7528\u5909\u6570\u306b\u7a7a\u6587\u5b57\u3092\u4ee3\u5165 ListStr = \"\" '\u3053\u306e\u30b7\u30fc\u30c8\u3068\u540d\u524d\u304c\u9055\u3046\u30b7\u30fc\u30c8\u3092\u30ea\u30b9\u30c8\u306b\u8ffd\u52a0 For Each ws In wbThis.Worksheets If ws.Na\u2026","version":"1.0","author_name":"hiko-blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhiko-blog.hatenadiary.com%2Fentry%2F2024%2F01%2F19%2F071159\" title=\"\u30b7\u30fc\u30c8\u540d\u53d6\u5f97 - Hiko.Blog  Excel VBA\u6d3b\u7528\u8853\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_url":"https://blog.hatena.ne.jp/hiko-blog/"}