|
こんばんは、かみちゃんさま・・・よろしくお願いします。
中途半端な説明ですみません。
記述は以下の状態です。
----以下
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も処理できればと
思っておりますが、可能でしょうか?
説明不足な点がありましたら、またコメントをお願いします。
|
|