Excel 中的按钮错误

Question

我在 Excel 中使用代码创建了一个命令按钮

Private Sub CommandButton1_Click(ByVal Target As Range)

Dim a As Integer
Dim z As Integer
Dim q As Integer

z=0
q=0

If Target.Address = "$F$2" Then
  z = z + 1
Else
  q = 0
End If

If z = 1 Then
  ActiveSheet.PrintOut preview:=True
Else
  If q = 0 Then
    a = MsgBox("?????", vbYesNo)
    If a = vbNo Then
      Cancel = True
    Else: ActiveSheet.PrintOut preview:=True
    End If
  End If
End If
End Sub

我得到了这个

我该怎么办？

Answer 1

错误消息是正确的：过程声明与事件描述不匹配。

这CommandButton 控件 VBA 事件例程没有参数。它应该是：

 Private Sub CommandButton1_Click ()

Answer 2

您有一个带有目标参数的命令按钮。这是不可能的，因此您会收到错误。

您必须删除该部分，然后使用worksheet.activecell或获取选定的单元格selection.target。但是我已经有一段时间没有进行 VBA 编码了，而且我目前手边没有 VBA，所以我现在无法提供正确的代码。