{"author_url":"https://blog.hatena.ne.jp/Infoment/","version":"1.0","url":"https://infoment.hatenablog.com/entry/2019/10/08/210513","blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","categories":["VBA","Excel"],"blog_url":"https://infoment.hatenablog.com/","author_name":"Infoment","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2019%2F10%2F08%2F210513\" title=\"Target \u3068 Selection \u3068 ActiveCell - Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","provider_url":"https://hatena.blog","type":"rich","description":"\u8077\u5834\u306e\u52c9\u5f37\u4f1a\u3067\u3001WorkSheet_SelectionChange \u30a4\u30d9\u30f3\u30c8\u3092\u6271\u3046\u6a5f\u4f1a\u304c\u3042\u3063\u305f\u3002 \u9078\u629e\u7bc4\u56f2\u306e\u5024\u3092\u5f97\u3066\u3001\u4f55\u67d0\u304b\u306e\u51e6\u7406\u3092\u3059\u308b\u3002\u79c1\u306e\u4e2d\u3067\u306f\u3001Target \u3092\u4f7f\u3046\u306e\u304c\u5b9a\u756a\u3002\u4f8b\u3048\u3070\u3001\u3053\u3093\u306a\u611f\u3058\u3060\u3002 Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' \u8907\u6570\u30bb\u30eb\u9078\u629e\u306b\u3088\u308b\u30a8\u30e9\u30fc\u3092\u56de\u907f\u3002 If Target.Count > 1 Then Exit Sub Else MsgBox Target.Value End If End Sub \u3068\u3053\u3053\u3067\u3001\u6700\u8fd1\u59cb\u3081\u305f\u3070\u304b\u308a\u306e\u53c2\u52a0\u8005\u304b\u3089\u3001ActiveCell\u3092\u4f7f\u3046\u3068\u3044\u3046\u6848\u304c\u51fa\u305f\u3002\u78ba\u304b\u306b\u2026","height":"190","title":"Target \u3068 Selection \u3068 ActiveCell","published":"2019-10-08 21:05:13","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20191008/20191008204839.png"}