将 vba 函数应用于按钮正上方的单元格

Question

在我的 vba 代码中，目标是向按钮上方的单元格添加 500。现在有问题的按钮在单元格“c7”中。我希望它正上方的单元格是“b7”，每次按下按钮时添加 500。我想复制按钮以在整个工作表中为单元格添加。所以代码必须类似于 cell.above +500 或类似的东西。我在下面添加了我当前的代码。

Range("b7").Value = Range("b7").Value + 500

Answer 1

如果您使用的是表单按钮，则如下所示：

Sub FormButtonClick()
With Shapes(Application.Caller).TopLeftCell.Offset(-1, 0)
    .Value = IIF(Not IsNumeric(.Value),500,.Value + 500)
End With
End Sub

您可以添加 IIF 以查看它是否为空白，并在 500（或其他）处“初始化”它，如果您愿意的话。

确保您看到的是正确的 sheet - 这是在 Sheet1 目标代码模块中添加的。

否则，您可能需要指定一个 sheet。

此外，当您复制它们时，您需要重命名它们（默认情况下它们以相同的名称复制）。

将 vba 函数应用于按钮正上方的单元格

Apply vba function to cell directly above button

excel

vba

copy

button