Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Or Target.Address = "$F$4" Then
Select Case Range("E4").Value
Case "B4"
Select Case Range("F4").Value
Case "C4"
Range("F5").Value = Range("F9").Value
Case "C5"
Range("F5").Value = Range("F10").Value
Case "C6"
Range("F5").Value = Range("F11").Value
End Select
Case "B5"
Select Case Range("F4").Value
Case "C4"
Range("F5").Value = Range("F12").Value
Case "C5"
Range("F5").Value = Range("F13").Value
Case "C6"
Range("F5").Value = Range("F14").Value
End Select
End Select
End If
End Sub
¸Õ¤@¤U¬Ý¬Ý