{"height":"190","url":"https://blog.systemjp.net/entry/2020/07/08/155739","published":"2020-07-08 15:57:39","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F07%2F08%2F155739\" title=\"ExcelVBA\u3067\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u304b\u3089\u30d6\u30c3\u30af\u540d\u3092\u53d6\u5f97\u3059\u308b - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","version":"1.0","description":"Sub \u30b7\u30fc\u30c8\u540d\u304c\u308f\u304b\u3063\u3066\u3044\u308b\u3068\u304d\u306b\u30d6\u30c3\u30af\u540d\u3092\u53d6\u5f97\u3059\u308b() Const FIND_SH = \"\u9867\u5ba2\u30de\u30b9\u30bf\u30fc\" Dim bk As Workbook Dim sh As Worksheet For Each bk in Workbooks For Each sh in bk.Worksheets If sh.Name = FIND_SH Then MsgBox sh.Parent.Name Exit Sub End If Next sh Next bk MsgBox \"\u300c\" & FIND_SH & \"\u300d\u30b7\u30fc\u30c8\u306f\u5b58\u5728\u3057\u307e\u305b\u3093\u3002\" End Sub \u30cd\u30bf\u5143 https://www.relief.jp/\u2026","width":"100%","type":"rich","author_url":"https://blog.hatena.ne.jp/shikaku/","image_url":null,"title":"ExcelVBA\u3067\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u304b\u3089\u30d6\u30c3\u30af\u540d\u3092\u53d6\u5f97\u3059\u308b","categories":["ExcelVBA"],"blog_title":"shikaku's blog","author_name":"shikaku","blog_url":"https://blog.systemjp.net/"}