{"type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fexcelmacro.hateblo.jp%2Fentry%2F2021%2F07%2F29%2F000856\" title=\"\u30b7\u30fc\u30c8\u8868\u793a\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>","version":"1.0","blog_title":"excelmacro\u2019s diary","author_url":"https://blog.hatena.ne.jp/excelmacro/","width":"100%","author_name":"excelmacro","title":"\u30b7\u30fc\u30c8\u8868\u793a\u30de\u30af\u30ed","height":"190","categories":[],"url":"https://excelmacro.hateblo.jp/entry/2021/07/29/000856","published":"2021-07-29 00:08:56","description":"Sub TEST() Dim WsName(1 To 3) As Variant Dim flag As Long Dim i As Long WsName(1) = \"Sheet3\" WsName(2) = \"Sheet8\" WsName(3) = \"Sheet6\" Dim WS As Worksheet For Each WS In Worksheets flag = 0 For i = 1 To 3 If WS.Name = WsName(i) Then flag = 1 Next If flag = 0 Then WS.Visible = False ElseIf flag = 1 T\u2026","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","blog_url":"https://excelmacro.hateblo.jp/","image_url":null}