Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34788 / 76734

←次へ　｜　前へ→


	【47152】シートにコピーするマクロ

たかし - 07/3/2(金) 15:46 -


	引用なし

	パスワード

いつも、当質問箱にはお世話になっております。

今回は、ワークシート上に置いてある、コンボボックスの値をシートにコピーする
場合のマクロで教えていただきたい事があります。
※コントロールツールボックスのコンボボックスを使用しています。

シート上に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

2 hits

▼

【47152】シートにコピーするマクロ たかし 07/3/2(金) 15:46

≪