{"width":"100%","provider_url":"https://hatena.blog","categories":["ExcelVBA"],"title":"ExcelVBA\u3067\u30b7\u30fc\u30c8\u304c\u5b58\u5728\u3059\u308b\u304b\u8abf\u3079\u308b","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2018%2F09%2F16%2F221050\" title=\"ExcelVBA\u3067\u30b7\u30fc\u30c8\u304c\u5b58\u5728\u3059\u308b\u304b\u8abf\u3079\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>","description":"\u529b\u6280 Sub Sample03() Dim ws As Worksheet, flag As Boolean For Each ws In Worksheets If ws.Name = \"\u5408\u8a08\" Then flag = True Next ws If flag = True Then MsgBox \"[\u5408\u8a08]\u30b7\u30fc\u30c8\u304c\u3042\u308a\u307e\u3059\", vbInformation Else MsgBox \"[\u5408\u8a08]\u30b7\u30fc\u30c8\u306f\u3042\u308a\u307e\u305b\u3093\", vbInformation End If End Sub \u30cd\u30bf\u5143 http://officetanaka.net/excel/vba/tips/tips10.htm","author_name":"shikaku","version":"1.0","blog_url":"https://blog.systemjp.net/","published":"2018-09-16 22:10:50","provider_name":"Hatena Blog","image_url":null,"height":"190","type":"rich","blog_title":"shikaku's blog","url":"https://blog.systemjp.net/entry/2018/09/16/221050","author_url":"https://blog.hatena.ne.jp/shikaku/"}