「作成したユーザーフォームにたくさんのラベル(Label)があって(図1),それらのキャプション(Caption)を結合するマクロを作成しました。機能は実現しましたが,エレガントにはほど遠い冗長なコードになってしまいました(リスト1)。このラベルを配列のように処理することはできないでしょうか?」 Private Sub CommandButton3_Click() Dim str8BIT As String str8BIT = str8BIT & Me.Label1.Caption str8BIT = str8BIT & Me.Label2.Caption str8BIT = str8BIT & Me.Label3.Caption str8BIT = str8BIT & Me.Label4.Caption str8BIT = str8BIT & Me.Label5.Caption str8
![第5回 複数のコントロールを配列のように処理したい](https://cdn-ak-scissors.b.st-hatena.com/image/square/bed39b5962a5d552c95b6d796db8f55e72d32943/height=288;version=1;width=512/https%3A%2F%2Fxtech.nikkei.com%2Fimages%2Fn%2Fxtech%2F2020%2Fogp_nikkeixtech_hexagon.jpg%3F20220512)