Excel VBA質問箱 IV

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

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


6109 / 13645 ツリー ←次へ | 前へ→

【47152】シートにコピーするマクロ たかし 07/3/2(金) 15:46 質問[未読]
【47157】Re:シートにコピーするマクロ Jaka 07/3/2(金) 16:31 発言[未読]
【47159】Re:シートにコピーするマクロ たかし 07/3/2(金) 17:12 お礼[未読]

【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

【47157】Re:シートにコピーするマクロ
発言  Jaka  - 07/3/2(金) 16:31 -

引用なし
パスワード
   i = 1
With Worksheets("Sheet1")
  MsgBox .OLEObjects("ComboBox" & i).Object.Value
End With

【47159】Re:シートにコピーするマクロ
お礼  たかし  - 07/3/2(金) 17:12 -

引用なし
パスワード
   早速の返信ありがとうございます。
上手く動作しました。
また、利用させていただきます。
ありがとうございました。

6109 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free