Question

我有一个体面的大小表，每个单元格取决于它们的值我希望VBA添加一个注释，其中包含我为每个值选择显示的文本。例如：如果值为11 - 注释将显示ACT Grid。 注意值有时是整数，有时是字母和数字的组合（A1，B1，C1,1,2,3等）

11 ACT Grid

12装置＆amp;寄宿家庭瓷砖

13 CMHPII / USACE OH签字

14吊顶天花板

15修剪墙设备

16安装个案

17安装地板

18安装门＆amp;硬件

这些只是表格中值的一个示例。现在我有一个命令按钮，我希望每按一次按下它来更新工作表，这意味着删除任何以前的注释并替换为new。将会有许多没有任何价值观的细胞，我想确保那些没有任何评论的细胞。这是我的代码，我最初使用的是ActiveCell，但这只适用于我之前选择的单元格。我确定我的代码看起来是空的，因为它是我最新的尝试代码汇编。我根本不熟练使用这种语言并寻求一些帮助。谢谢！

Private Sub Update_Click()

    Dim cell As Range
    Dim rng As Range

    Set rng = Range("D11:CY148")

    On Error Resume Next

    For Each cell In rng
        If cell.Value = 50 Then
            Target.AddComment
            Target.Comment.Text Text:="test"
        End If

    Next cell
    Application.EnableEvents = True

End Sub

Answer 1

您尝试执行的操作的替代方法是使用Case Statement。一个例子：

benefit_per

Excel VBA需要根据值

1 个答案: