{"provider_url":"https://hatena.blog","url":"https://blog.systemjp.net/entry/2019/07/25/134128","author_url":"https://blog.hatena.ne.jp/shikaku/","width":"100%","published":"2019-07-25 13:41:28","categories":["ExcelVBA"],"image_url":null,"description":"QueryClose\u30a4\u30d9\u30f3\u30c8\u3092\u6355\u307e\u3048\u308b Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then MsgBox \"[\u00d7]\u30dc\u30bf\u30f3\u3067\u306f\u9589\u3058\u3089\u308c\u307e\u305b\u3093\u3002\", 48 Cancel = True End If End Sub \u30cd\u30bf\u5143 http://officetanaka.net/excel/vba/tips/tips18.htm","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2019%2F07%2F25%2F134128\" title=\"ExcelVBA\u306e\u30d5\u30a9\u30fc\u30e0\u306ex\u30dc\u30bf\u30f3\u3067\u9589\u3058\u306a\u304f\u3055\u305b\u308b\u65b9\u6cd5 - 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>","height":"190","blog_url":"https://blog.systemjp.net/","title":"ExcelVBA\u306e\u30d5\u30a9\u30fc\u30e0\u306ex\u30dc\u30bf\u30f3\u3067\u9589\u3058\u306a\u304f\u3055\u305b\u308b\u65b9\u6cd5","version":"1.0","type":"rich","author_name":"shikaku","provider_name":"Hatena Blog","blog_title":"shikaku's blog"}