在我的 vba 代碼中，目標是在按鈕上方的單元格中添加 500。現在有問題的按鈕在單元格“c7”中。我希望它正上方的單元格是“b7”，每次按下按鈕時添加500。我想復制按鈕以在整個作業表中添加單元格。所以代碼必須類似于 cell.above 500 或類似的東西。我在下面添加了我當前的代碼。
Range("b7").Value = Range("b7").Value 500
uj5u.com熱心網友回復：
如果您使用的是表單按鈕，則如下所示：
Sub FormButtonClick()
With Shapes(Application.Caller).TopLeftCell.Offset(-1, 0)
.Value = IIF(Not IsNumeric(.Value),500,.Value 500)
End With
End Sub
您可以添加IIF以查看它是否為空白，并在（或其他）處“初始化”它，500如果這是您想要的。
確保您正在查看正確的作業表 - 這是在Sheet1目標代碼模塊中添加的。
否則，您可能需要指定作業表。
此外，當您復制它們時，您需要重命名它們（默認情況下它們以相同的名稱復制）。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/473446.html