ラベル内容変更の簡略化がしたい。

質問

いつもお世話になっております。
　エクセル９７のＶＢＡで、ユーザーフォーム上に配置されたラベルの内容を書き換えて、ユーザーフォームに表示される文字列を変更するのは、

Label1 = 文字列

　と、するだけで良いことは気づいていましたが、今度は大量のラベルの内容を一気に変えたくなり、For文系の命令で添え数字を変化させたい、と思ったのですが、上手くいきません。
　ここはどういう風に記述すべきなのでしょうか？

　以下の例のようなイメージで、２行目の記述はどうすべきでしょうか？

======================================================================

例）Label1からLabel100までの内容を、一括変更するマクロ

For i = 1 to 100

Label & i = "使用中"

Next

======================================================================

　よろしくお願いします。

回答No.1

nishi6 · ベストアンサー

こんな感じでしょうか。
Label1からLabel100を対象にしています。

　　Dim myCtrl As Control 'フォーム上のコントロール
　　Dim myCtrlNo As Integer 'ラベル名の『Label』外の部分

　　'フォーム上のコントロールを調べる
　　For Each myCtrl In Controls
　　　　'ラベルだったら
　　　　If TypeName(myCtrl) = "Label" Then
　　　　　　myCtrlNo = Val(Application.Substitute(myCtrl.Name, "Label", ""))
　　　　　　'ラベル名の『Label』外の部分が1～100なら
　　　　　　If 1 <= myCtrlNo And myCtrlNo <= 100 Then
　　　　　　　　myCtrl = "使用中"
　　　　　　End If
　　　　End If
　　Next

お礼

なるほど、思うようになりました。
結構、多種な参考書を読んではいるのですが、Exelは奥が深くて・・・

　きっと出来るとは思っていたのですが、参考になるモノを見つけられないでいました。これで、またスキルがＵＰすると思います。

　本当にありがとうございました。

回答No.2

nishi6

追加の回答です。個人的には好みではないのですが、

Me.Controls("Label" & i) = "使用中"

のように書くのが簡単かもしれません。

個人的にこれを余り使わないのは、例えばテキストボックスにも"LabelXXX"という名前が設定できるからです。

ご参考に。