|
C3だけでなく、他のセルでも結果が出せるように増やしてみましたが、動作がうまくいきませんでした。ちなみにリストボックスの内容はA1とB1が一緒でA2とB2が一緒でA3とB3が一緒です。C4を使って下記のように記述したのですが、エラーにはなりませんが、動作させると、C3と、C4の両方に同時に答えが出てきたりしておかしいです。
どうしてでしょうか?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Long, y As Long
Dim St As String
If Intersect(Target, Range("A1:A3")) Is _
Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
x = Range("C1").Value
St = Range("A1").Text & Range("A2").Text & _
Range("A3").Text
Select Case St
Case "ピーマン東京3月10日": y = x * ? '?は定数
以下、全てのパターンを書き出す
End Select
With Application
.EnableEvents = False
Range("C3").Value = y
.EnableEvents = True
End With
If Intersect(Target, Range("B1:B3")) Is _
Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
x = Range("C1").Value
St = Range("B1").Text & Range("B2").Text & _
Range("B3").Text
Select Case St
Case "ピーマン東京3月10日": y = x * ? '?は定数
以下、全てのパターンを書き出す
End Select
With Application
.EnableEvents = False
Range("C4").Value = y
.EnableEvents = True
End WithEnd Sub
|
|