{"height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F06%2F18%2F102137\" title=\"ExcelVBA\u3067\u30ea\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3067\u9078\u629e\u3055\u308c\u305f\u9805\u76ee\u540d\u3092\u53d6\u5f97 - 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":"Private Sub CommandButton1_Click() With ListBox1 If .ListIndex = -1 Then MsgBox \"\u672a\u9078\u629e\u3067\u3059\u3002\" Else MsgBox .List(.ListIndex, 0) End If End With End Sub \u30cd\u30bf\u5143 https://kosapi.com/post-4033/","version":"1.0","provider_url":"https://hatena.blog","categories":["ExcelVBA"],"blog_title":"shikaku's blog","published":"2020-06-18 10:21:37","width":"100%","url":"https://blog.systemjp.net/entry/2020/06/18/102137","author_name":"shikaku","author_url":"https://blog.hatena.ne.jp/shikaku/","type":"rich","blog_url":"https://blog.systemjp.net/","image_url":null,"provider_name":"Hatena Blog","title":"ExcelVBA\u3067\u30ea\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3067\u9078\u629e\u3055\u308c\u305f\u9805\u76ee\u540d\u3092\u53d6\u5f97"}