Question

Sub Button_Click()

    With Thiswoorkbook.sheets("abc")
      .Rows("2:"&.Rows.count).ClearContents
    End with

    with Thiswoorkbook.sheets("xyz")
      .Rows("1:"&.Rows.count).ClearContents
    End with

end sub

我正在使用上面提到的代码，但我需要点击两次清除内容是否有任何方法来修复代码，只需单击一下

Answer 1

根据您提供的信息，您似乎已将宏指定给形状，然后您必须双击该形状才能使其运行。只需单击一次即可运行ActiveX控件按钮。了解如何在Microsoft Office的链接文档中将ActiveX控件按钮放入电子表格中。 https://support.office.com/en-us/article/Assign-a-macro-to-a-Form-or-a-Control-button-d58edd7d-cb04-4964-bead-9c72c843a283

从宏文件中清除两张纸的内容

1 个答案: