excel - 在 VBA Excel 中创建插入语句

Question

我正在学习 VBA Excel，但我的项目有问题

这里的代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim score As String, result As String
score = Range("A1").Value

If score = "1" Then
   result = "book1"
ElseIf score = "2" Then
   result = "book2"
Else
   result = "wrong"
End If

Range("A1").Value = result
End Sub

我尝试进行插入语句，当我在“A1”中插入“1”时，结果为“book1”

这是值为“1”时



这是在我单击输入按钮后，结果是“book1”



这是我再次单击输入按钮时的结果



这是因为当我点击第一次进入时，系统读取值为“1”，因此系统返回“book1”，但当第二次进入系统读取值为“book1”并返回“错误”

那么我该怎么做才能使系统在每次我输入或移动单元格时只准备第一个值

谢谢大家，对不起我的英语不好

Answer 1

您可以使用 OR 运算符为 book1 和 book2 添加一个条件。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim score As String, result As String
score = Range("A1").Value

If score = "1" Or score="book1" Then
   result = "book1"
ElseIf score = "2" Or score="book2" Then
   result = "book2"
Else
   result = "wrong"
End If

Range("A1").Value = result
End Sub