Puppyのパソコンさぽーと

ExcelVBA フォームでコントロール配列（もどき）

VB（VisualBASIC)でプログラムを組んだ方はご存知かと思いますが、VBではコントロールを配列として定義することができます。例えば，多数のLabelコントロールを，Label(0)・Label(1)・Label(2)・・・・Label(99)と処理の中で配列として扱うことができます仮にLabel(0)からLabel(99)まで数字の1に変更する場合は Label(0).caption = 1 Label(1).caption = 1 Label(2).caption = 1 Label(3).caption = 1 Label(4).caption = 1 Label(99).caption = 1と入力していました。しかし、VBでは下記のようにコントロール配列を使用し簡略化できます。 for i = 0 to 99 Label(i).caption = 1 Nextと、なります。しかし、ExcelやACCESSのVBAではコントロール配列は使用できませんしかし、ある方法を使用すると完璧には行きませんが、コントロール配列のようなプログラムを作成することができます。作成方法ですが、仮にLabel1・Label2・Label3・・・・Label99があるとします。このとき、 for i = 0 to 99 "Label" & i.caption = 1 Nextとプログラムを書いてもエラーが出ます。しかし上記のプログラムを下記のように書き換えるとコントロールは列のように処理ができます。 for i = 0 to 99 Me.Controls("Label" & i ).caption = 1 Nextこの"Controls関数"はループの数字と文字列「Label」と結合しコントロールを制御し処理する関数です。上記ではラベルのみを制御しましたが、テキストボックスやコンボボックスといったコントロールも可能です。なかｘ２使用する機会は少ないですが使用してみるとコードがすっきりしました。以上、覚書をかねた関数解説でした。　おわりExcel VBA逆引き便利帖