TOP

[Excel VBA] メッセージボックスを使う

公開日： 2017/07/17 :
カテゴリ: 03-5_ExcelVBA_メモ・小技集
タグ:

動作確認環境

Windows10
Excel: 2016

説明

メッセージボックスを使う

サンプルコード1

Option Explicit

Sub メッセージボックスボタン_その1()
  ' オプションなし
  MsgBox "メッセージボックスボタン_その1" & vbCrLf & "改行"
End Sub

Sub メッセージボックスボタン_その2()
  ' ボタンに関するオプション
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbAbortRetryIgnore", vbAbortRetryIgnore
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbApplicationModal", vbApplicationModal
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbDefaultButton1", vbDefaultButton1
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbDefaultButton2", vbDefaultButton2
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbDefaultButton3", vbDefaultButton3
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbDefaultButton4", vbDefaultButton4
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbMsgBoxHelpButton", vbMsgBoxHelpButton
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbMsgBoxRight", vbMsgBoxRight
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbMsgBoxRtlReading", vbMsgBoxRtlReading
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbMsgBoxSetForeground", vbMsgBoxSetForeground
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbOKCance", vbOKCancel
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbOKOnly", vbOKOnly
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbRetryCancel", vbRetryCancel
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbSystemModal", vbSystemModal
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbYesNo", vbYesNo
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbYesNoCancel", vbYesNoCancel
  
  ' アイコンに関するオプション
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbCritical", vbCritical
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbExclamation", vbExclamation
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbInformation", vbInformation
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbQuestion", vbQuestion
    
End Sub

Sub メッセージボックスボタン_その3()
  ' タイトル
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbOKCance", vbOKCancel, "タイトル"
    
End Sub

Sub メッセージボックスボタン_その4()
  ' タイトル
    MsgBox "メッセージボックスボタン" & vbCrLf & "vbOKCance", vbOKCancel, "タイトル"
    
End Sub

Sub メッセージボックスボタン_その5()
  ' タイトル
  Dim output As Integer
    output = MsgBox("メッセージボックスボタン" & vbCrLf & "vbOKCance", vbOKCancel, "タイトル")
    MsgBox output
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

Option Explicit

Sub メッセージボックスボタン_その1()

' オプションなし

MsgBox "メッセージボックスボタン_その1" & vbCrLf & "改行"

End Sub

Sub メッセージボックスボタン_その2()

' ボタンに関するオプション

MsgBox "メッセージボックスボタン" & vbCrLf & "vbAbortRetryIgnore", vbAbortRetryIgnore

MsgBox "メッセージボックスボタン" & vbCrLf & "vbApplicationModal", vbApplicationModal

MsgBox "メッセージボックスボタン" & vbCrLf & "vbDefaultButton1", vbDefaultButton1

MsgBox "メッセージボックスボタン" & vbCrLf & "vbDefaultButton2", vbDefaultButton2

MsgBox "メッセージボックスボタン" & vbCrLf & "vbDefaultButton3", vbDefaultButton3

MsgBox "メッセージボックスボタン" & vbCrLf & "vbDefaultButton4", vbDefaultButton4

MsgBox "メッセージボックスボタン" & vbCrLf & "vbMsgBoxHelpButton", vbMsgBoxHelpButton

MsgBox "メッセージボックスボタン" & vbCrLf & "vbMsgBoxRight", vbMsgBoxRight

MsgBox "メッセージボックスボタン" & vbCrLf & "vbMsgBoxRtlReading", vbMsgBoxRtlReading

MsgBox "メッセージボックスボタン" & vbCrLf & "vbMsgBoxSetForeground", vbMsgBoxSetForeground

MsgBox "メッセージボックスボタン" & vbCrLf & "vbOKCance", vbOKCancel

MsgBox "メッセージボックスボタン" & vbCrLf & "vbOKOnly", vbOKOnly

MsgBox "メッセージボックスボタン" & vbCrLf & "vbRetryCancel", vbRetryCancel

MsgBox "メッセージボックスボタン" & vbCrLf & "vbSystemModal", vbSystemModal

MsgBox "メッセージボックスボタン" & vbCrLf & "vbYesNo", vbYesNo

MsgBox "メッセージボックスボタン" & vbCrLf & "vbYesNoCancel", vbYesNoCancel

' アイコンに関するオプション

MsgBox "メッセージボックスボタン" & vbCrLf & "vbCritical", vbCritical

MsgBox "メッセージボックスボタン" & vbCrLf & "vbExclamation", vbExclamation

MsgBox "メッセージボックスボタン" & vbCrLf & "vbInformation", vbInformation

MsgBox "メッセージボックスボタン" & vbCrLf & "vbQuestion", vbQuestion

End Sub

Sub メッセージボックスボタン_その3()

' タイトル

MsgBox "メッセージボックスボタン" & vbCrLf & "vbOKCance", vbOKCancel, "タイトル"

End Sub

Sub メッセージボックスボタン_その4()

' タイトル

MsgBox "メッセージボックスボタン" & vbCrLf & "vbOKCance", vbOKCancel, "タイトル"

End Sub

Sub メッセージボックスボタン_その5()

' タイトル

Dim output As Integer

output = MsgBox("メッセージボックスボタン" & vbCrLf & "vbOKCance", vbOKCancel, "タイトル")

MsgBox output

End Sub

Tweet

関連記事

実行中のマクロを中断する – Excel VBA

動作確認環境 Windows7 Excel: 2007 手順 Ctrl + Pause

記事を読む

[Excal VBA] セルを挿入する。 – Range.Insert メソッド-

動作確認環境 Windows7 Excel: 2007, 2013 説明指定された範囲

記事を読む

[Excal VBA] セルをアクティブにする。 – Range.Activate メソッド-

動作確認環境 Windows7 Excel: 2007, 2013 説明 1つのセルをア

記事を読む

[Excel VBA] 印刷時の余白、ヘッダー、フッター等を設定する。

動作確認環境 Windows7 Excel: 2007、2013 説明余白、ヘッダー、

記事を読む

03-5 ExcelVBAメモ・小技集 INDEX

記事を読む

[Excel VBA] 改ページプレビュー、ノーマルビュー(標準)、ページレイアウト表示を切り替える -Window.Viewプロパティ-

動作確認環境 Windows7 Excel: 2007、2013 説明ウィンドウに表示

記事を読む

[Excel VBA] 任意のセルが、指定したセル範囲にあるか調べる(Application.Intersect メソッド

動作確認環境 Windows7 Excel: 2007 構文式: Appl

記事を読む

[Excel VBA] セルの行列番号、参照範囲(アドレス)を取得する(Range.Address プロパティ) – Excel VBA

動作確認環境 Windows7 Excel: 2007 構文対象範囲: Rang

記事を読む

[Excal VBA] セルやセル範囲を選択する – Range.Select メソッド-

動作確認環境 Windows7 Excel: 2007 説明セルやセル範囲を選択します

記事を読む

[Excel VBA] セルの検索(Range.Findメソッド)

動作確認環境 Windows7 Excel: 2007 構文・検索範囲の

記事を読む

Message コメントをキャンセル

PREV: [Word] フィードで連番("000, 001"などの3桁以上)番号を入力したい
NEXT: [Excel] セルを編集禁止にする。

NEW ENTRY

: [Excel] 編集禁止になっているセルに書式設定で色を付ける。
動作確認環境 Windows10 Excel: 2016 編

: [Excel] セルを編集禁止にする。
動作確認環境 Windows10 Excel: 2016 説

: [Excel VBA] メッセージボックスを使う
動作確認環境 Windows10 Excel: 2016 説

: [Word] フィードで連番(“000, 001″などの3桁以上)番号を入力したい
自分用のメモ執筆中マイクロソフト　ワード　連番番号

: [Excel基本操作] 見えているセルだけをコピーする
動作確認環境 Windows7 Excel: 2007 見え

→もっと見る

INDEX

カテゴリー
カテゴリー

アーカイブ
アーカイブ

タグ
ADDRESS Application.Intersect メソッド Application オブジェクト AREAS CHOOSE COLUMN COLUMNS Excel VBA ExcelVBAメモ・小技集 Excel基本操作 Excel関数 HLOOKUP HYPERLINK INDEX INDIRECT LOOKUP Range.Activate メソッド Range.Address プロパティ Range.AutoFilter メソッド Range.Findメソッド Range.Insert メソッド Range.Select メソッド Range.Value プロパティ Range オブジェクト Window.View プロパティ Window オブジェクト Worksheet.Change イベントアドイン/オートメーション関数イベントエンジニアリング関数オブジェクトキューブ関数セルの操作データベース関数ピボットテーブルプロパティメソッド情報関数数学/三角関数文字列操作関数日付/時刻関数検索/行列関数統計関数論理関数財務関数

最近の投稿

最近のコメント
- Excel関数一覧アルファベット順に excel より

広告

サイト内検索

INDEX