SSブログ
Excel2000 VBA MsgBox ブログトップ

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(バリアント型)にする

 
Excel2000 VBA MsgBox ブログトップ

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。