|
こんにちは。かみちゃん です。
>このように同じ内容の記述をComboboxが増える毎に記述するのかな?
>と疑問思っています。
>できれば、一つのPrivate Subだけで、他のComboboxも処理できればと
>思っておりますが、可能でしょうか?
まだ、各ComboBoxの機能がよく見えないのですが、以下のような感じでできると思います。
Private Sub ComboBox1_Change()
Dim tanka As Variant '単価
Dim kisuu As Variant '個数
Dim i As Long
i = Me.ComboBox1.ListIndex + 1
If i < 1 Or i > 10 Then Exit Sub
With Worksheets("Data1")
.Cells(4, 4).Value = i
tanka = .Cells(i + 1, 3).Value
End With
With Worksheets("Sheet1")
.Cells(20, 25).Value = tanka
kisuu = .Cells(20, 33).Value
.Cells(20, 39).Value = tanka * kisuu
End With
End Sub
このコードを各ComboBoxとも同じようにするのであれば、以下のような感じでできるかと思います。
Private Sub ComboBox1_Change()
TankaKisuu
End Sub
Private Sub ComboBox2_Change()
TankaKisuu
End Sub
Function TankaKisuu()
Dim tanka As Variant '単価
Dim kisuu As Variant '個数
Dim i As Long
i = Me.ComboBox1.ListIndex + 1
If i < 1 Or i > 10 Then Exit Sub
With Worksheets("Data1")
.Cells(4, 4).Value = i
tanka = .Cells(i + 1, 3).Value
End With
With Worksheets("Sheet1")
.Cells(20, 25).Value = tanka
kisuu = .Cells(20, 33).Value
.Cells(20, 39).Value = tanka * kisuu
End With
End Function
|
|