|
いつも、当質問箱にはお世話になっております。
今回は、ワークシート上に置いてある、コンボボックスの値をシートにコピーする
場合のマクロで教えていただきたい事があります。
※コントロールツールボックスのコンボボックスを使用しています。
シート上に5つのコンボボックスが設置されています。
コマンドボタンを押すと、それぞれの値を、Worksheets("Sheet1")のA1から
A5に張りつけたいのですが、マクロが長くなってしまいます。
forを使用し短くしたいのですが、いい方法はありますでしょうか?
ユーザーフォーム上のコンボボックスの場合の過去ログは見つけられたので
すが、シート上のコンボボックスの場合の過去ログが探せませんでした。
よろしくお願いします。
Sub 入力()
With Worksheets("Sheet1")
.Range("A1") = .ComboBox1.Value
.Range("A2") = .ComboBox2.Value
.Range("A3") = .ComboBox3.Value
.Range("A4") = .ComboBox4.Value
.Range("A5") = .ComboBox5.Value
End With
End Sub
↓
Sub 入力()
With Worksheets("Sheet1")
For i = 1 To 5
.Range("A" & i) = .ComboBox1.Value ←この部分の表示が知りたい
Next
End With
End Sub
|
|