ユーザーフォームに複数配置したコマンドボタンの名前を1個ずつ書くのは意外と面倒なので、セルの値から自動的に取得して書き換えができたら便利だと思いませんか?
エクセルVBAの繰り返し処理For~Nextを使うと簡単に書き換え処理ができるので時短にもつながるのでご紹介します。
セルA1~A40の値➡コマンドボタン1~40に表示
ここでご紹介する例としては、ユーザーフォーム配置した40個のコマンドボタンは、クリックすると指定したシートのセル番地へジャンプするようにしています。
上の図のようにコマンドボタンを配置しただけなので、当然ながら表示名(キャプション)はCommandButton1~40になっていますので、どのボタンを押したらどこへジャンプするか分からない状態になっています。
この表示名を1個ずつ書くのは面倒なので、セルの値を自動的に取得してからユーザーフォームを表示するようにVBAコードを書くと、常にセルの値に連動するので便利ですよ。
ここではセルA1~A40に記載されている値を、コマンドボタン1~40に記載してからユーザーフォームを開くVBAコードをご紹介します。
VBAコード
Private Sub UserForm_Initialize()
For i = 1 To 40
With UserForm1.Controls(“CommandButton” & i)
.Caption = Cells(i, 1)
End With
Next i
End Sub
解説
- ユーザーフォームが表示する直前に実行する
- 繰り返し処理の変数「i」を宣言し、1~40まで行う
- ユーザーフォーム1のコマンドボタン「i」の
- キャプション名をセルi,1(セルA1)から順に取得する
- Withステートメント終了
- 繰り返し処理する
- マクロ記録終了
これでコマンドボタン40個の名前がフォームが開くと同時に自動的に取得して表示されるようになります。
波乗りアヒル
参考までに、セルA2からセルA41にしたい場合は(i+1,1)とするだけでなので、開始行数を変えることもできますよ。
関連記事
-
コマンドボタン
VBAコマンドボタンにホームページURLを開く設定をする方法
ホームページのURLアドレスをユーザーフォームのコマンドボタンに登録して、クリックすると指定したホームページが別ウィンドウで開くようにしたいと思ったことありませ… -
コマンドボタン
コマンドボタンの文字を名前・出席・欠席と繰り返し変更する方法
名前が表示させているコマンドボタンを1回押すと「出席」、もう1回押すと「欠席」、さらに1回押すと再び名前表示するようにコマンドボタンのキャプションを変更させたい… -
コマンドボタン
コマンドボタンの表示文字(キャプション)を2行に改行表示する方法
エクセルで作業効率化の為に作ったオリジナルの入力フォーム(ユーザーフォーム)に配置したコマンドボタンの表示名を1行表示ではなく、改行して2行表示にしたいと思っ… -
コマンドボタン
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか? Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コ… -
コマンドボタン
エクセルVBAコマンドボタンでON/OFF切替スイッチを作る方法
ワークシート上にある罫線やリボンなど7つの項目を表示したり非表示することができる切替ボタンがあったら便利だと思いませんか? 不要な項目をワンクリックで切り替え… -
コマンドボタン
複数一括処理でコマンドボタンのキャプションをセルの値に書き換える方法
ユーザーフォームに複数配置したコマンドボタンの名前を1個ずつ書くのは意外と面倒なので、セルの値から自動的に取得して書き換えができたら便利だと思いませんか? エ… -
コマンドボタン
コマンドボタンのキャプションを文字ではなく画像にする2つの方法
ユーザーフォームに配置したコマンドボタンに表示されるキャプションは「文字」なのですが、複数のボタンが並んでいる時は「文字」ではなく「画像」で表示させたいと思…
紅葉スポット
-
富津市の紅葉名所もみじロードへ上総湊駅や浜金谷駅からバスで行く
JR内房線の上総湊駅と浜金谷駅からバスで行くことができますが、もみじロードは10㎞もあるので歩いて全てを見ることはかなり難しいと思いますので、それぞれ行ける範囲… -
旧碓氷峠見晴台へバスで旧軽井沢駅から紅葉展望へ滞在時間20分
軽井沢と言えば長野県ですが、旧碓氷峠見晴台は長野県と群馬県の県境に位置するのですが、群馬県の観光スポットというよりは、長野県ですね。 ここ旧碓氷峠見晴台からは… -
フリーきっぷで行く千葉県内の紅葉名所や穴場スポット7選
10月中旬頃から始まる関東地方の紅葉も11月中旬過ぎると、ようやく千葉県内の紅葉名所ももみじが真っ赤に色づいて見頃になってきます。 千葉県内の紅葉は12月上旬まで楽… -
竜神大吊橋の紅葉まつりへ常陸太田駅から路線バスで紅葉絶景へ
竜神大吊橋バンジーや5月の1000匹の鯉のぼりでテレビで取り上げられることが多い竜神大吊橋ですが、実はこの周辺は竜神峡にはもみじなども多く紅葉も年々認知されてきて… -
フリーきっぷで行く12月が見頃の関東近郊の紅葉スポット
渋滞避けて電車とバスでお得なフリーパスや1日乗車券を使って、のんびり紅葉を見に行きませんか? 温暖化の影響で12月上旬でも関東南部では紅葉を見られる場所がまだま… -
埼玉県第1号のダム「有間ダム」によりできた名栗湖畔の鏡面紅葉へ
初!と付くものはやっぱり宣伝したい、そして四季折々の景色が見られる自然絶景スポットならばなおさらですよね。 埼玉県飯能市にある名栗湖へ飯能駅からバスで行くこと…