Excel - VBA 宏和 if

Question

我是 VBA 的新手，我正在尝试做简单的宏。 我需要我的宏像这样工作：

1. 如果 E5 单元格中有一个大于 1 的值，则显示一个消息框，其中包含“您的值是”/从 E5 获取值/

2. 我想对 E 列中的所有单元格重复此条件。

首先，我从可行的方法开始：

Sub test()
    If Range("E5").Value > "1" Then
        MsgBox "Your value is" (here I don't know how to import real value from E5)
    End If
End Sub

然后我可以点击“运行”，宏运行正常（这意味着“正式正常”，因为这还不是目标效果）。 但是这个宏只有在我点击“运行”时才有效，我希望它一直工作，即使我关闭 Excel 并再次打开它。 将宏分配给自动形状要容易得多，但在这里我失败了:(

Answer 1

请注意， "1"是文本/字符串，而不是数字。 因此，如果您想将数值与>或<进行比较，您需要编写

If Range("E5").Value > 1 Then

或者你没有得到你想要的结果。

要将值放入您的消息框中，您需要使用&符号将其连接到您的文本。

MsgBox "Your value is " & Range("E5").Value

要对 E 列中的所有单元格执行此操作，您需要循环

Dim LastRow As Long 'find last used row in E
LastRow = Cells(Rows.Count, "E").End(xlUp).Row

Dim iRow As Long
For iRow = 1 To LastRow
    If Cells(iRow, "E").Value > 1 Then
        MsgBox "Your value in Cell E" & iRow & " is " & Cells(iRow, "E").Value
    End If
Next iRow

但请注意，如果 E 中有许多>1的值，那么您将获得许多消息框。 如果您只想显示>1的第一个消息框，则在MsgBow正下方放置一个Exit For 。 这将在找到并报告第一个无效值后取消验证。