https://www.typea.info/tips_/index.php?action=history&feed=atom&title=Excel_VBA_%E3%83%A6%E3%83%BC%E3%82%B6%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%E3%82%92%E9%96%89%E3%81%98%E3%81%95%E3%81%9B%E3%81%AA%E3%81%84 2026-05-07T04:45:54Z このウィキのこのページに関する変更履歴 MediaWiki 1.34.0 https://www.typea.info/tips_/index.php?title=Excel_VBA_%E3%83%A6%E3%83%BC%E3%82%B6%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%E3%82%92%E9%96%89%E3%81%98%E3%81%95%E3%81%9B%E3%81%AA%E3%81%84&diff=6005&oldid=prev 2020-02-16T04:25:18Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="ja"> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← 古い版</td> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">2020年2月16日 (日) 04:25時点における版</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >1行目:</td> <td colspan="2" class="diff-lineno">1行目:</td></tr> <tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>==Excel VBA ユーザフォームを閉じさせない==</div></td><td class='diff-marker'>+</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>==<ins class="diffchange diffchange-inline">[[</ins>Excel VBA ユーザフォームを閉じさせない<ins class="diffchange diffchange-inline">]]</ins>==</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)</div></td></tr> <tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>     If isRunning And CloseMode = <del class="diffchange diffchange-inline">vbFormControlMenu </del>Then</div></td><td class='diff-marker'>+</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>     If isRunning And CloseMode = <ins class="diffchange diffchange-inline">vbFormControl[[Menu]] </ins>Then</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>         If MsgBox(&quot;処理中です。本当に終了しますか？&quot;, vbQuestion Or vbYesNo) &amp;lt;&amp;gt; vbYes Then</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>         If MsgBox(&quot;処理中です。本当に終了しますか？&quot;, vbQuestion Or vbYesNo) &amp;lt;&amp;gt; vbYes Then</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>             Cancel = 1</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>             Cancel = 1</div></td></tr> <tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l9" >9行目:</td> <td colspan="2" class="diff-lineno">9行目:</td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>   </div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>   </div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>----</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>----</div></td></tr> <tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>{{include_html banner_html, &quot;!Excel&quot;}}</div></td><td class='diff-marker'>+</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>{{include_html <ins class="diffchange diffchange-inline">[[</ins>banner_html<ins class="diffchange diffchange-inline">]]</ins>, &quot;!Excel&quot;}}</div></td></tr> </table>

Piroto https://www.typea.info/tips_/index.php?title=Excel_VBA_%E3%83%A6%E3%83%BC%E3%82%B6%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%E3%82%92%E9%96%89%E3%81%98%E3%81%95%E3%81%9B%E3%81%AA%E3%81%84&diff=3191&oldid=prev 2020-02-15T08:02:21Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="ja"> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← 古い版</td> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">2020年2月15日 (土) 08:02時点における版</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l2" >2行目:</td> <td colspan="2" class="diff-lineno">2行目:</td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>     If isRunning And CloseMode = vbFormControlMenu Then</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>     If isRunning And CloseMode = vbFormControlMenu Then</div></td></tr> <tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>         If MsgBox(&quot;処理中です。本当に終了しますか？&quot;, vbQuestion Or vbYesNo) <del class="diffchange diffchange-inline">&lt;&gt; </del>vbYes Then</div></td><td class='diff-marker'>+</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>         If MsgBox(&quot;処理中です。本当に終了しますか？&quot;, vbQuestion Or vbYesNo) <ins class="diffchange diffchange-inline">&amp;lt;&amp;gt; </ins>vbYes Then</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>             Cancel = 1</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>             Cancel = 1</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>         End If</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>         End If</div></td></tr> </table>

Piroto https://www.typea.info/tips_/index.php?title=Excel_VBA_%E3%83%A6%E3%83%BC%E3%82%B6%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%E3%82%92%E9%96%89%E3%81%98%E3%81%95%E3%81%9B%E3%81%AA%E3%81%84&diff=1908&oldid=prev 2020-02-15T07:32:04Z

<p>ページの作成:「==Excel VBA ユーザフォームを閉じさせない== Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If isRunning And CloseMode = vbF…」</p> <p><b>新規ページ</b></p><div>==Excel VBA ユーザフォームを閉じさせない==<br /> Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)<br /> If isRunning And CloseMode = vbFormControlMenu Then<br /> If MsgBox(&quot;処理中です。本当に終了しますか？&quot;, vbQuestion Or vbYesNo) &lt;&gt; vbYes Then<br /> Cancel = 1<br /> End If<br /> End If<br /> End Sub<br /> <br /> ----<br /> {{include_html banner_html, &quot;!Excel&quot;}}</div>

Piroto