複数一括処理でコマンドボタンのキャプションをセルの値に書き換える方法

エクセル検索

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

ユーザーフォームに複数配置したコマンドボタンの名前を1個ずつ書くのは意外と面倒なので、セルの値から自動的に取得して書き換えができたら便利だと思いませんか？

エクセルVBAの繰り返し処理For～Nextを使うと簡単に書き換え処理ができるので時短にもつながるのでご紹介します。

セルA1～A40の値➡コマンドボタン１～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

解説

これでコマンドボタン40個の名前がフォームが開くと同時に自動的に取得して表示されるようになります。

波乗りアヒル

参考までに、セルA2からセルA41にしたい場合は（i+1,1）とするだけでなので、開始行数を変えることもできますよ。

よかったらシェアしてね！