|
▼Kein さん:
早々のご回答ありがとうございます。
試してみたのですが、コンパイルエラーになり、
Elseに対応するIFがありません。と出ました;;
少し少なくして下記で作ってみたのですが、、、
後、条件を満たすセルを3つ作るとすると、どのような記述になるのでしょうか?
仮にA2に、みかんとりんごがあるという過程でお願いします。
お手数かけますがご回答のほどよろしくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Long, y As Long, z As Long
If Intersect(Target, Range("A1:B1")) Is _
Nothing Then Exit Sub
x = Range("C1").Value
With Target
If .Count > 1 Then Exit Sub
If .Address = "$A$1" Then
Select Case .Value
Case "ピーマン"
Select Case .Offset(, 1).Value
Case "静岡": y = 5: z = 2
Case "東京": y = 5: z = 2
End Select
Select Case .Offset(, 1).Value
Case "きゃべつ"
Case "静岡": y = 5: z = 2
Case "東京": y = 5: z = 2
End Select
ElseIf .Address = "$B$1" Then
Select Case .Value
Case "東京"
Select Case .Offset(, -1).Value
Case "きゃべつ": y = 5: z = 2
Case "ピーマン": y = 5: z = 2
End Select
Select Case .Offset(, -1).Value
Case "静岡"
Case "きゃべつ": y = 5: z = 2
Case "ピーマン": y = 5: z = 2
End Select
End If
End With
With Application
.EnableEvents = False
Range("C3").Value = x * (y / z)
.EnableEvents = True
End With
End Sub
|
|