{"categories":["excelVBA"],"provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F04%2F06%2F140712\" title=\"VBA\u30d5\u30a9\u30fc\u30e0\u306e\u30ea\u30b9\u30c8\u306e\u5168\u9078\u629eON/OFF - 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>","author_url":"https://blog.hatena.ne.jp/shikaku/","blog_title":"shikaku's blog","blog_url":"https://blog.systemjp.net/","description":"\u30eb\u30fc\u30d7\u3057\u3066 Selected\u3092True/False\u3059\u308b Private Sub cmd\u5168\u9078\u629e_Click() Dim iintLoop As Integer With Me!lstResult For iintLoop = 0 To .ListCount - 1 .Selected(iintLoop) = True Next iintLoop End With End Sub Private Sub cmd\u5168\u89e3\u9664_Click() Dim iintLoop As Integer With Me!lstResult For iintLoop = 0 To .ListCount - 1 .Selec\u2026","author_name":"shikaku","type":"rich","image_url":null,"published":"2020-04-06 14:07:12","version":"1.0","height":"190","width":"100%","url":"https://blog.systemjp.net/entry/2020/04/06/140712","title":"VBA\u30d5\u30a9\u30fc\u30e0\u306e\u30ea\u30b9\u30c8\u306e\u5168\u9078\u629eON/OFF","provider_url":"https://hatena.blog"}