Excel2000 VBA MsgBox メモ1 [Excel2000 VBA MsgBox]
Excel2000 VBA MsgBox メモ1
MsgBoxには、1 バイト文字で約 1,024 文字制限あり
メッセージを改行する
- Chr(13)+Chr(10)
- Chr(13)+Chr(10)+Chr(13)+Chr(10) 2回改行
- vbCrLf
- vbCrLf+vbCrLf 2回改行
- vbTab Tab
- MsgBox "明日は" & vbCrLf & "晴れです" '( "明日は" + vbCrLf + "晴れです" )
- cl = vbCrLf +vbCrLf msg1 = "明日は" msg2 = "晴れです"
- MsgBox msg1 + cl + msg2
MsgBox のタイトルバーに文字を設定
- MsgBox "明日は晴れです" ,vbOk,"タイトル文字"
?マークを表示
- MsgBox "明日は晴れです" ,vbOk+vbQuestion,"タイトル文字"
「はい」「いいえ」「キャンセル」ボタンを表示してコントロールする
- syori = MsgBox ("実行するには「はい」 を実行しない場合は「いいえ」を、終了するには「キャンセル」を押してください",vbYesNoCancel,"タイトルバーに表示する文字")
- Select Case syori
- Case vbYes (Case 6)
- 「はい」が押された時の処理 (例 GoTo Yes)
- Case vbNo (Case 7)
- 「いいえ」が押された時の処理
- Case vbCancel (Case 2)
- 「キャンセル」が押された時の処理 (例 Exit Sub)
- End Select
-
- 定数 値 内容
- vbOk 1 OK
- vbCancel 2 キャンセル
- vbAbort 3 中止
- vbRetry 4 再試行
- vbIgnor 5 無視
- vbYes 6 はい
- vbNo 7 いいえ
InputBox
myR = Application.InputBox(title:="タイトルバーに表示する文字", prompt:="ダイアログボックスに表示する文字", Default:="規定値", left:=100, top:=100, Type:=2)
- Type(省略可)省略すると文字列として扱う
- 値 意味
- 0 数式
- 1 数値
- 2 文字列
- 4 論理値(TrueまたはFalse)
- 8 セル参照(Rangeオブジェクト)
- 16 エラー値
- 64 数値配列
- (数値と文字列なら1+2で3を指定)
Prompt 省略不可
- ダイアログボックスに表示する文字列
- 改行コードの使用可 vbCrLf vbTab
Default 省略可
- テキストボックスに規定値として表示する文字
Title 省略可
- ダイアログボックスのタイトルバーに表示する文字
キャンセルボタンが押された時の処理
- If VarType(myR) = vbBoolean Then Exit Sub ’キャンセルボタンが押された時の処理 myR変数のデータ型を全てのデータに対応したvariant(バリアント型)にする