複数コントロールテキストの同一セルへの入力

質問

はじめまして。

エクセルVBAについて質問させて頂きます。

ユーザーフォームにラベル・テキストボックスそれぞれ１～６があって
ラベルのキャプションとテキストボックスのテキストをセル同一セルに
入力したくて

With UserForm1

Range("A1") = .Label1.Caption & .TextBox1.Text & .Label2.Caption & .TextBox2.Text _
& .Label3.Caption & .TextBox3.Text & .Label4.Caption & .TextBox4.Text _
& .Label5.Caption & .TextBox5.Text & .Label6.Caption & .TextBox6.Text
End With

と、このように記述したのでが、これをもっと簡潔に書く方法はございませんでしょうか？

ご教授よろしくお願いします。

回答No.2

mt2008 · ベストアンサー

簡潔かと言われると微妙ですが、↓なら見た目スッキリはします。

With UserForm1
　　For i = 1 To 6
　　　　Range("A1") = Range("A1") & .Controls("Label" & i).Caption
　　　　Range("A1") = Range("A1") & .Controls("TextBox" & i).Text
　　Next i
End With

お礼

ご回答ありがとうございます！

お礼を入力したつもりが出来ていなかったみたいで
申し訳ありません。

.Label1.Caption & .TextBox1.Text ～とダラダラしてたものが
かなりすっきりしました！

本当にありがとうございました。

回答No.3

Uyrjyyf6sd

テキストボックスでは既定のプロパティがTextで、
ラベルではCaptionのようですので

Sub Macro()

　　Dim objControl As Object

　　For Each objControl In UserForm1.Controls
　　　　Range("A1").Value = Range("A1").Value & objControl
　　Next

End Sub

上記でも動作するようです。

お礼

ご回答ありがとうございます。
返信が遅くなってすいません。

ご提案いただいたものを試してみました。
うまくセルに入力することができましたが、思っていたものは
ラベル１→テキストボックス１→ラベル２→テキストボックス２…
といった感じで、これで試してみると
ラベル１～６→テキストボックス１～６
といった感じになってしまいました。

回答No.1

ShowMeHow

コントロール配列にすればループを使って文字列を作り上げることはできますが、
簡潔になるかといわれると、6個だと微妙なところですね。

お礼

ご回答ありがとうございます。
返信が遅くなってすいません。

確かに６個だと微妙でしたが、使用個数は増えるかもしれないので
コントロール配列を使って頑張ってみます。