有没有更短,更优雅的书写方式?

时间:2019-09-12 09:52:45

标签: excel vba

大家好,谢谢您的宝贵时间,下面的代码运行完美,但是我正在成千上万的其他单元格中使用它,并且想知道是否有与此等效的较短版本?

   var HiddenElements = document.evaluate("//[@aria-hidden='true']",
       document, null, XPathResult.UNORDERED_NODE_SNAPSHOT_TYPE, null);
     for (var i = HiddenElements.snapshotLength - 1; i >= 0; i--) {
       var elmHidden = HiddenElements.snapshotItem(i);
       elmHidden.style.outline = 'rgb(255, 0, 78) dashed 3px';
       elmHidden.ariahidden = 'false';
   }

2 个答案:

答案 0 :(得分:3)

您可以通过编写一个程序来缩短它:

Private Sub CopyValue(Destination As String, Source As String)
    ThisWorkbook.Worksheets("Monthly").Range(Destination).Value = ThisWorkbook.Worksheets("Approved Series 2").Range(Source).Value
End Sub

所以您可以像这样使用它...

CopyValue "C7", "U3"
CopyValue "D7", "U4"
CopyValue "E7", "U6"
CopyValue "F7", "U7"

答案 1 :(得分:2)

在汤姆发表评论之后,您可以执行以下操作:

new_data = audioop.mul(data, 4, 4)

,依此类推。如果总是重复相同的操作,则可以使用循环,这样就不必多次编写该语句。

相关问题