在其他工作表中使用带有ActiveX按钮的VBA范围命令

Question

在构建用户界面时，我使用了VBA2010中的ActiveX按钮。我首先编写了宏，检查它们，然后将它们复制到ActiceX按钮代码中。

宏然后在另一个工作表的范围命令处崩溃。为了测试它我分开了命令：

Sheets("Data").Visible = xlSheetVisible 
Sheets("Data").Select                   
Columns("O:O").Select         ' The code crashes here

结果我得到1004运行时错误。 我发现了一个似乎未解决的类似话题。

Unable to Execute Macro With ActiveX Controls (Excel VBA)

非常感谢帮助。 提前谢谢！

Answer 1

不建议选择。将代码修改为

 document.getElementById("btnPrint").onclick = function() {
 var password;

 var pass1 = "cool";

 password = prompt('Please enter your password to view this page!', ' ');

 if (password == pass1) {
   printElement(document.getElementById("example"));
   //console.log(elem);
  }
 }
   //console.log(elem);
   function printElement(elem) {
     var domClone = elem.cloneNode(true);
     console.log(elem);
     var $printSection = document.getElementById("printSection");

   if (!$printSection) {
     $printSection = document.createElement("div");
     $printSection.id = "printSection";
     document.body.appendChild($printSection);
   }

    $printSection.innerHTML = "";
    $printSection.appendChild(domClone);
    window.print();
   }