我使用if/else语句检查是否单击了Cancel按钮,但它没有退出sub;无论我单击OK还是cancel,代码都会运行。我认为要么是取消按钮没有返回'false‘,要么是我的if语句被破坏了。代码如下:'This Sub Appends Cell Contents to Cell Comment
Dim rng AsApplication.InputBox("Range", xT
我使用了一个输入框,因为我不知道我还会怎么做: filepath2 = Application.InputBox("Enter your User FDIC", "UFDIC")If filepath2 = False Then Exit Sub Dir(filepath3)
Loop While Not Dir(filepat
我正在使用一个子程序,它调用一个输入框,从工作表中复制选定的单元格,并将它们粘贴到多个列表框中。我终于使一切正常工作,除了当用户取消输入框时出现的错误424。我希望外面的人能告诉我,下面的代码是否出了问题(除了1200万次退出子试图阻止错误),或者可能给我另一个领域的想法(声明、初始化、激活?)我应该检查一下。任何想法都很感谢,谢谢。Private Sub CopyItemsBtn_Click()Dim rSelected As Range, c As Range
Di
我正在寻找一种方法,只有当我输入整数1-12时才能通过输入框。其中的任何字符串、双精度值、空或逸出(取消)按钮都将抛出Exit Sub 我知道网上有很多例子,我都试过了!到目前为止,我有这个,但它在取消时出现错误: dMonth = InputBox("Which month to count?"And Int(dMonth) <= 12)) Or StrPtr(dMonth) = 0 Or StrPtr(dMonth) = 698279968 Or dMonth = "" T