コマンドボタンの表示文字（キャプション）を1行に改行表示する方法

エクセル検索

HOME	UserForm	印刷	画面	ファイル	図形
日付・時刻	データ	セル	色	関数	VBA関数

エクセルで作業効率化の為に作ったオリジナルの入力フォーム（ユーザーフォーム）に配置したコマンドボタンの表示名を1行表示ではなく、改行して2行表示にしたいと思ったことありませんか？

Excel-VBAでの初期設定では1行で、文字の間にカーソルを置いてEnterキーを押しても改行できませんが、プロパティからでもなくVBAコードを記載すれば、簡単に2行表示できますので改行方法ご紹介いたします。

コマンドボタンのキャプション改行

エクセルVBAでよく使われる基本的な改行コードの「vbCrLf」（キャリッジリターン）を使うことで、改行してカーソルを文頭へ移動することができるようになっています。

ここでは、ユーザーフォームを開いたらコマンドボタンのキャプションが２行表示させるVBAコードや、コマンドボタンをクリックしたら２行表示に切り替わるVBAコードです。

ユーザーフォーム表示時に改行表示

初期設定ではコマンドボタンの文字（キャプション）は、１行表示になっています。

ユーザーフォームが開く直前に処理を実行することができるUserForm_Initializeに、コマンドボタンのキャプションを１行目に「どこかに」２行目に「ビューーン！」と、２行表示させるVBAコードを書くと、下記のようになります。

VBAコード

Private Sub UserForm_Initialize()
CommandButton1.Caption = “どこかに” & vbCrLf & ”ビューーン！”
End Sub

解説

ユーザーフォーム表示前に処理を実行する
コマンドボタン1のキャプションは、1行目「どこかに」2行目「」ビューーン！」
マクロ記録終了

ちなみに「UserForm_Initialize」の使い方を詳しく知りたい方は、下記を参照してくださいね。

Excel VBA

UserForm_Initializeでセル値を取得してから表示する方法 | Excel VBA オリジナル入力フォームとして使えるエクセルVBAのユーザーフォーム。ラベルやコマンドボタンを複数配置するのは当たりまえですが、顧客リストなどで名前や性別などをいち…

コマンドボタンをクリックしたら２行表示

次に、コマンドボタンをクリックすると2行表示になり、もう1回クリックすると元の1行表示にさせるVBAコードです。

VBAコード

Private Sub CommandButton1_Click()
Static onoff As Boolean
If onoff Then
CommandButton1.Caption = “どこかにビューーン！”
Else
CommandButton1.Caption = “どこかに” & vbCrLf & “ビューーン！”
End If
onoff = Not onoff
End Sub

解説