ユーザーフォームのラベルに配列の要素を表示(転記)する。
30ほどの要素の配列を、ユーザーフォームに作った、
Label1〜Label30に表示させるのに、
まさかと思って、
For i = 1 to 30
Labeli=配列変数(i)
Next i
とかやったら、やっぱりエラー。
仕方なく、
Label1.caption=配列変数(1)
・・
・・
Label30.caption=配列変数(30)
まで全部書いた。
な、な、長い。 スマートさゼロ。
なんかないかと調べて、正解っぽい一つの解決索を見つけた。
For i = 1 to 30
Controls("Label" & i).caption=配列変数(i)
Next i
これは便利。30行が3行に。
これなら、ユーザーフォームを活用する気がおきる。
というかエクセルにデータだけ貯めておけば
後でなんとか活用できるのではないかという気になる。