Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Application.OnKey "{Enter}"
f = ActiveCell.Value '读出当前活动单元格值
If f = "" Then End ' 如果当前活动单元格值为空,即退出
If Target.Column = 2 Then '如果是当前活动单元格为 2 列,就……
If IsNumeric(ActiveCell) Then '如果是当前活动单元格为 数值,就……
'Application.OnKey "{Enter}", "test"
Select Case f
Case 1
ActiveCell = "中国********人民"
Case 2
ActiveCell = "美利坚联邦%%%%%%%"
Case 3
ActiveCell = "日本岛屿#########33"
Case 4
ActiveCell = "%%%%%%………………&&&&&"
Case 5
ActiveCell = "@@#@#@#¥%%"
Case 6
ActiveCell = "……¥#%%#¥&&&&"
Case Is > 6
ActiveCell = ""
End Select
End If
End If
End Sub
问题: 在 B3 录入 1 后回车,不能立即转成对应的文本。必须重点一下B3 才有效。
能否把VBA 改成只要敲一下回车,原数值立即替换指定文本。
|