用于将数字转换为特定单词的VBA代码

Question

我正在寻找一个VBA脚本，当我在单元格中输入数字1时，它会自动将其转换为RN，2转换为PN，依此类推。

感谢您的帮助。

Answer 1

您可以使用：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 1 Then
    Target.Value = "RN"
ElseIf Target.Value = 2 Then
    Target.Value = "PN"
End If

End Sub