Question

在VB触发事件中写段代码

实现在单元格H:H内输入88回车后=张三 ，输入66回车后=李四 输入86回车后=王五 输入其他时提示没有指定的编号
以上两个答案都可以 但是回车后还是不显示结果 要再回去一次才显示 有没办法解决这个问题呢

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
Static kk As Boolean
If kk Then
kk = False
Exit Sub
End If
If Target.Column <> 8 Then Exit Sub
Select Case Target.Value
Case 88
kk = True
Target = "张三"
Case 66
kk = True
Target = "李四"
Case 86
kk = True
Target = "王五"
Case Else
MsgBox "没有指定编号！"
Target.Select
End Select
End Sub

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
If Target.Value = 88 Then
Target.Value = "张三"
ElseIf Target.Value = 66 Then
Target.Value = "李四"
ElseIf Target.Value = 86 Then
Target.Value = "王五"
End If
End If
End Sub

Answer 3

楼上说得对