VBA 自動的に閉じるMsgBox
自動的に閉じるMsgBoxSub test() '自動的に閉じるMsgBox Dim myShell As Object Set myShell = CreateObject("WScript.Shell") myShell.Popup "5秒後、自動的に閉じます", 5, "確認", vbInformation Set myShell = NothingEnd SubSub test2() '自動的に閉じるMsgBox 応用例 Dim myShell As Object Set myShell = CreateObject("WScript.Shell") Dim ret As Variant ret = myShell.Popup("処理を続けてよろしいですか？", _ 5, _ "確認", _ vbYesNo + vbQuestion) If ret = vbYes Then Debug.Print "処理継続します。" ElseIf ret = vbNo Then Debug.Print "処理中止します。" Exit Sub ElseIf ret = -1 Then Debug.Print "未選択の為中止します。" Exit Sub End IfEnd Sub構文ShellObject.Popup (prompt, [ time, ] [ title, ] [ buttons ])― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る参考記事『VBA シート名取得・変更』シート名の取得Sub test() Dim shName As String ’インデックスでシート名取得 shName = She…ameblo.jp『VBA シート名一括取得・変更』実務上では、たくさんあるシート名を、一括で取得したり、変更したりすることがあります。今日は、そのやり方を見てみましょう。シート名の一括取得Sub test…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp
