VBAでMsgBoxでフォントの色を設定するには

2年 ago
芽依, 雨夜
1 minute

VBAのMsgBox関数にはフォント色を設定するパラメータが用意されていないため、ユーザーフォームを作成してフォント色を設定する必要があります。

以下の手順で設定できます。

  1. VBAエディタを開き、左側の「プロジェクトエクスプローラ」ウィンドウで対象のブックを右クリックし、「挿入」-「ユーザーフォーム」で新しいユーザーフォームを作成する。
  2. UserFormにテキスト内容を表示するためのLabelコントロールを追加
  3. UserForm のコードモジュールで、フォント色を設定するには次のコードを使用します。
Private Sub UserForm_Initialize()
    With Me.Label1
        .Caption = "Hello World"
        .ForeColor = RGB(255, 0, 0) '设置字体颜色为红色
    End With
End Sub
  1. VBAコードでこのコードを使用して、UserFormを表示します。
Sub ShowCustomMessageBox()
    UserForm1.Show
End Sub
  1. 上記のコードを実行すると、ExcelでShowCustomMessageBoxサブルーチンが起動し、カスタムフォントカラーのメッセージボックスが表示されます。

あくまで、この手法は独自にカスタマイズされたソリューションであり、MsgBox関数を迂回して実現している点に注意してください。

bannerAds