質問: .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 と、このように記述したのでが、これをもっと簡潔に書く方法はございませんでしょうか? ご教授よろしくお願いします。
回答: テキストボックスでは既定のプロパティがtextで、 ラベルではcaptionのようですので sub macro() dim objcontrol as object for each objcontrol in userform1.controls range("a1").value = range("a1").value & objcontrol next end sub 上記でも動作するようです。