Question

我试图用宏来衡量时间。我在excel中有这种数据集：

A   B       C       D       E       F       G       H       I
M   0.455   0.365   0.095   0.514   0.2245  0.101   0.15    15
M   0.35    0.265   0.09    0.2255  0.0995  0.0485  0.07    7
F   0.53    0.42    0.135   0.677   0.2565  0.1415  0.21    9
M   0.44    0.365   0.125   0.516   0.2155  0.114   0.155   10

目前我使用这个宏：

Sub Macro1()
'
' Macro1 Macro
'

Dim StartTime As Double
Dim SecondsElapsed As Double

'Remember time when macro starts
StartTime = Timer

ActiveSheet.Range("$A$1:$E$151").AutoFilter Field:=1, Criteria1:="=M", _
    Operator:=xlAnd
ActiveSheet.Range("$A$1:$E$151").AutoFilter Field:=2, Criteria1:="<0.3"

    'Determine how many seconds code took to run
  SecondsElapsed = Round(Timer - StartTime, 4)

'Notify user in seconds
  MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation


End Sub
Add Comment`

我＆＃39;试图测量不同公式的执行时间。

我有3个公式：

A =＆＃39; M＆＃39; ＆B＆gt; 0.4
（A =＆＃39; M＆＃39;或B> 0.4）并且C＆lt; 0.5
（A =＆＃39; M＆B;或B> 0.4）和（C <0.5或D> 0.1）

上面的宏只适用于第一个公式，但不适用于其他公式。我也尝试添加OR语句，如下所示：

ActiveSheet.Range("$A$1:$E$151").AutoFilter Field:=1, Criteria1:="=M", _
        Operator:=xlOr
ActiveSheet.Range("$A$1:$E$151").AutoFilter Field:=2, Criteria1:="<0.3", _
        Operator:=xlAnd
ActiveSheet.Range("$A$1:$E$151").AutoFilter Field:=3, Criteria1:=">0.3"

但这并没有给出正确的结果。

我该如何解决这个问题？

如何在excel vb脚本中添加括号？

0 个答案: