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

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

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

セルA1～A40の値➡コマンドボタン１～40に表示

ここでご紹介する例としては、ユーザーフォーム配置した40個のコマンドボタンは、クリックすると指定したシートのセル番地へジャンプするようにしています。

上の図のようにコマンドボタンを配置しただけなので、当然ながら表示名（キャプション）はCommandButton1～40になっていますので、どのボタンを押したらどこへジャンプするか分からない状態になっています。

この表示名を1個ずつ書くのは面倒なので、セルの値を自動的に取得してからユーザーフォームを表示するようにVBAコードを書くと、常にセルの値に連動するので便利ですよ。

ここではセルA1～A40に記載されている値を、コマンドボタン1～40に記載してからユーザーフォームを開くVBAコードをご紹介します。

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

波乗りアヒル

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

関連記事