エクセルで作業効率化の為に作ったオリジナルの入力フォーム(ユーザーフォーム)に配置したコマンドボタンの表示名を1行表示ではなく、改行して2行表示にしたいと思ったことありませんか?
Excel-VBAでの初期設定では1行で、文字の間にカーソルを置いてEnterキーを押しても改行できませんが、プロパティからでもなくVBAコードを記載すれば、簡単に2行表示できますので改行方法ご紹介いたします。
コマンドボタンのキャプション改行
エクセルVBAでよく使われる基本的な改行コードの「vbCrLf」(キャリッジリターン)を使うことで、改行してカーソルを文頭へ移動することができるようになっています。
ここでは、ユーザーフォームを開いたらコマンドボタンのキャプションが2行表示させるVBAコードや、コマンドボタンをクリックしたら2行表示に切り替わるVBAコードです。
ユーザーフォーム表示時に改行表示
初期設定ではコマンドボタンの文字(キャプション)は、1行表示になっています。
![コマンドボタンキャプション](https://tripbowl.net/wp-content/uploads/2023/09/914d2aa1342d29a62d3028eecaa235fb-1024x682.jpg)
ユーザーフォームが開く直前に処理を実行することができるUserForm_Initializeに、コマンドボタンのキャプションを1行目に「どこかに」2行目に「ビューーン!」と、2行表示させるVBAコードを書くと、下記のようになります。
Private Sub UserForm_Initialize()
CommandButton1.Caption = “どこかに” & vbCrLf & ”ビューーン!”
End Sub
- ユーザーフォーム表示前に処理を実行する
- コマンドボタン1のキャプションは、1行目「どこかに」2行目「」ビューーン!」
- マクロ記録終了
![コマンドボタンのキャプション2行表示](https://tripbowl.net/wp-content/uploads/2023/09/bdffa177a54b68ca7e0ec1c8cbae6586-1024x682.jpg)
ちなみに「UserForm_Initialize」の使い方を詳しく知りたい方は、下記を参照してくださいね。
![](https://tripbowl.com/excel-vba/wp-content/uploads/2021/01/7045d82a4f1a9d098974416900370ecc.jpg)
コマンドボタンをクリックしたら2行表示
次に、コマンドボタンをクリックすると2行表示になり、もう1回クリックすると元の1行表示にさせる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
- コマンドボタン1がクリックされたら
- Staticステートメントを宣言してonoffという変数名で真偽を判定する
- もし変数名onoffの状態が
- コマンドボタン1の文字が「どこかにビューーン!」だったら
- コマンドボタン1の文字を「どこかに」と「ビューーン!」の2行表示にする
- そうではなかったら
- コマンドボタン1の文字が「どこかにビューーン!」にする
- マクロ記録終了
![](https://tripbowl.net/wp-content/uploads/2018/07/cropped-512x512.jpg)
このように改行したい文字の間に「& vbCrLf &」を抽入すれば、コマンドボタンのキャプションを2行表示できるようになります。
関連記事
-
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか? Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コ… -
複数一括処理でコマンドボタンのキャプションをセルの値に書き換える方法
ユーザーフォームに複数配置したコマンドボタンの名前を1個ずつ書くのは意外と面倒なので、セルの値から自動的に取得して書き換えができたら便利だと思いませんか? エ… -
コマンドボタンのキャプションを文字ではなく画像にする2つの方法
ユーザーフォームに配置したコマンドボタンに表示されるキャプションは「文字」なのですが、複数のボタンが並んでいる時は「文字」ではなく「画像」で表示させたいと思… -
VBAコマンドボタンにホームページURLを開く設定をする方法
ホームページのURLアドレスをユーザーフォームのコマンドボタンに登録して、クリックすると指定したホームページが別ウィンドウで開くようにしたいと思ったことありませ… -
エクセルVBAコマンドボタンでON/OFF切替スイッチを作る方法
ワークシート上にある罫線やリボンなど7つの項目を表示したり非表示することができる切替ボタンがあったら便利だと思いませんか? 不要な項目をワンクリックで切り替え… -
コマンドボタンの表示文字(キャプション)を2行に改行表示する方法
エクセルで作業効率化の為に作ったオリジナルの入力フォーム(ユーザーフォーム)に配置したコマンドボタンの表示名を1行表示ではなく、改行して2行表示にしたいと思っ… -
コマンドボタンの文字を名前・出席・欠席と繰り返し変更する方法
名前が表示させているコマンドボタンを1回押すと「出席」、もう1回押すと「欠席」、さらに1回押すと再び名前表示するようにコマンドボタンのキャプションを変更させたい…
紅葉スポット
-
亀山湖畔の紅葉へ上総亀山駅から徒歩で行けて滞在時間2時間半
ダムによってできた湖・亀山湖には湖畔を周回できるサイクリングロードやボートハウスがあり、風の弱い日には湖面に反射する紅葉景色が鏡のように見られます。 最寄り駅… -
縁起だるま発祥の少林山達磨寺境内の真っ赤に染まる紅葉景色へ
【紅葉見頃】11月下旬~12月上旬 高崎市内循環バス「ぐるりん」バスのフリーエリア内にあるので、縁起だるま発祥の少林山達磨寺へ紅葉の時期になったら訪れてみてはい… -
フリーきっぷで行く群馬県内の紅葉名所や穴場スポット21選
渋滞避けて電車とバスでのんびり紅葉を見に行きませんか?群馬県の山間部ならば9月中旬頃から紅葉が見られる名所・スポットがありますので、少し早い秋の訪れを感じに出… -
花貫渓谷の汐見滝吊り橋は茨城県人気紅葉スポットでライトアップは幻想的
花貫川沿いに遊歩道が整備されていて、途中に汐見滝吊り橋があり紅葉と一緒ミニられる事で撮影スポットになっていて、茨城県の人気紅葉スポットとして有名です。 紅葉の… -
埼玉県第1号のダム「有間ダム」によりできた名栗湖畔の鏡面紅葉へ
初!と付くものはやっぱり宣伝したい、そして四季折々の景色が見られる自然絶景スポットならばなおさらですよね。 埼玉県飯能市にある名栗湖へ飯能駅からバスで行くこと… -
温泉の匂いが漂い白濁した湖!日光湯ノ湖・兎島の絶景ポイントへ
日光東照宮から始まっていろは坂・明智平・中禅寺湖・竜頭の滝・戦場ヶ原と奥日光を進んで行った最終に奥日光湯元温泉があり、東武鉄道のフリーパス「まるごと日光・東…