Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
If Target.Column = 1 Then
Select Case Target.Value
Case 1 :
Sheet1.Cells(Target.Row, 2 ) = " 中国 "
Case 2 :
Sheet1.Cells(Target.Row, 2 ) = " 美国 "
Case 3 :
Sheet1.Cells(Target.Row, 2 ) = " 英国 "
Case 4 :
Sheet1.Cells(Target.Row, 2 ) = " 天国 "
Case Else
Sheet1.Cells(Target.Row, 2 ) = " 不知道什么国的 "
End Select
End If
End Sub
If Target.Column = 1 Then
Select Case Target.Value
Case 1 :
Sheet1.Cells(Target.Row, 2 ) = " 中国 "
Case 2 :
Sheet1.Cells(Target.Row, 2 ) = " 美国 "
Case 3 :
Sheet1.Cells(Target.Row, 2 ) = " 英国 "
Case 4 :
Sheet1.Cells(Target.Row, 2 ) = " 天国 "
Case Else
Sheet1.Cells(Target.Row, 2 ) = " 不知道什么国的 "
End Select
End If
End Sub