Excel VBA質問箱 IV

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

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


50756 / 76732 ←次へ | 前へ→

【30861】Re:Comboboxの複数使用時のマクロ記述に...
質問  kiyoshi  - 05/11/6(日) 2:01 -

引用なし
パスワード
   こんばんは、かみちゃんさま・・・よろしくお願いします。
中途半端な説明ですみません。
記述は以下の状態です。
----以下

Private Sub ComboBox1_Change()
  
Dim tanka As Variant '単価
Dim kisuu As Variant '個数
Dim i As Long
i = Me.ComboBox1.ListIndex + 1
  Worksheets("Data1").Cells(4, 4) = i
  'Select Case ComboBox1.Value
  'Case "製品A(基本) (C-A000)"
  Select Case i
  Case 1   '"製品A(基本) (C-A000)"
     Worksheets("Sheet1").Cells(20, 25) = Worksheets("Data1").Cells(2, 3)
     tanka = Worksheets("Data1").Cells(2, 3)
     kisuu = Worksheets("Sheet1").Cells(20, 33)
     Worksheets("Sheet1").Cells(20, 39) = tanka * kisuu
  Case 2   '"製品A(タイプ1) (C-A001)"
     Worksheets("Sheet1").Cells(20, 25) = Worksheets("Data1").Cells(3, 3)
     tanka = Worksheets("Data1").Cells(3, 3)
     kisuu = Worksheets("Sheet1").Cells(20, 33)
     Worksheets("Sheet1").Cells(20, 39) = tanka * kisuu
   ・
  (途中省略)
   ・
  Case 10  '"製品B(オプションb) (C-B01b)"
     Worksheets("Sheet1").Cells(20, 25) = Worksheets("Data1").Cells(11, 3)
     tanka = Worksheets("Data1").Cells(11, 3)
     kisuu = Worksheets("Sheet1").Cells(20, 33)
     Worksheets("Sheet1").Cells(20, 39) = tanka * kisuu
  Case Else
    
     Exit Sub
  
  End Select

End Sub

このように同じ内容の記述をComboboxが増える毎に記述するのかな?
と疑問思っています。
できれば、一つのPrivate Subだけで、他のComboboxも処理できればと
思っておりますが、可能でしょうか?
説明不足な点がありましたら、またコメントをお願いします。
2 hits

【30837】Comboboxの複数使用時のマクロ記述について kiyoshi 05/11/5(土) 17:42 質問
【30838】Re:Comboboxの複数使用時のマクロ記述につ... かみちゃん 05/11/5(土) 18:01 発言
【30861】Re:Comboboxの複数使用時のマクロ記述に... kiyoshi 05/11/6(日) 2:01 質問
【30873】Re:Comboboxの複数使用時のマクロ記述に... かみちゃん 05/11/6(日) 14:02 発言
【30876】Re:Comboboxの複数使用時のマクロ記述に... kiyoshi 05/11/6(日) 14:25 お礼

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