{"image_url":null,"title":"Excel VBA Excel\u7d42\u4e86\u6642\u306b\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8868\u793a\u3059\u308b(cmdExit_Click)","author_url":"https://blog.hatena.ne.jp/benkei_maru/","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","height":"190","type":"rich","url":"https://hareno-urakata.com/entry/2021/03/02/000000","description":"\u300ccmdExit_Click\u300d\u306b\u5fc5\u8981\u306a\u51e6\u7406\u3092\u8a18\u8ff0\u3059\u308b\u3053\u3068\u3067\u3001Excel\u3092\u9589\u3058\u3066\u7d42\u4e86\u3059\u308b\u6642\u306b\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8868\u793a\u3055\u305b\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u3002 \u4ee5\u4e0b\u306f\u305d\u306e\u4e00\u4f8b\u3002 Private Sub cmdExit_Click() Dim intRtn As Integer intRtn = MsgBox(\"\u51e6\u7406\u3092\u7d42\u4e86\u3057\u307e\u3059\u3002\" & vbCrLf & _ \"\u3088\u308d\u3057\u3044\u3067\u3059\u304b\uff1f\", vbQuestion + vbOKCancel, \"\u7d42\u4e86\u78ba\u8a8d\u30e1\u30c3\u30bb\u30fc\u30b8\") If intRtn <> vbOK Then Exit Sub End If '\u4fdd\u5b58\u3057\u3066\u9589\u3058\u308b ActiveWorkbook.Close SaveChanges:=True\u2026","author_name":"benkei_maru","categories":["Excel_VBA"],"width":"100%","published":"2021-03-02 00:00:00","blog_url":"https://hareno-urakata.com/","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhareno-urakata.com%2Fentry%2F2021%2F03%2F02%2F000000\" title=\"Excel VBA Excel\u7d42\u4e86\u6642\u306b\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8868\u793a\u3059\u308b(cmdExit_Click) - \u6674\u308c\u306e\u3046\u3089\u304b\u305f\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"\u6674\u308c\u306e\u3046\u3089\u304b\u305f"}