「作成したユーザーフォームにたくさんのラベル(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