【VBA】に関する知恵袋
【質問】
エクセルVBA captionについてUserFormを使って顧客情報の管理をしています。フォーム内のテキストボックスに顧客情報を入力する仕組みです。テキストボックスの横にlabelを置いています。Label1 ["テキストボックス"]という並びです。ただ、VBAの知恵袋の解説をすると、無料のブログのススメに関する説明をすると、このlabelとテキストボックスの数が多く、さらにlabelの内容（caption）も高頻度で変わります。毎回captionを変更するのが面倒なので、無料のブログのススメに考察を加えると、VBAの知恵袋を分解していくと、エクセルでDATE一覧シートなどを作成しそこの値からcaptionに反映させたいと思うのですが、可能でしょうか？Label1.Caption = Worksheets("シート名").Range("データ元")上記コードで値はひろえるのですが、labelが27個もあるので簡単なコードで済ませられないかと頭を抱えております。宜しくお願い致します。
【解答】
pop_up_smap_2oo6さん> 上記コードで値はひろえるのですが、labelが27個もあるので> 簡単なコードで済ませられないか Me.Label1.Caption = Worksheets("シート名").Range("データ元") Me.Label2.Caption = Worksheets("シート名").Range("データ元") ： Me.Label27.Caption = Worksheets("シート名").Range("データ元")というようなコードを簡単にしたいのでしょうか？無料のブログのススメについて言えることは、それであれば、VBAの知恵袋を紐解くと、以下のような感じではいかがでしょうか？ Dim i As Long For i = 1 To 27 Me.Controls("Label" & i).Caption = Worksheets("シート名").Range("データ元") Next無料のブログのススメを説明すると、以上がVBAの知恵袋についての詳細になる。