小编srt*_*srt的帖子

Dim g1val, g2val As Integer

Set g1val = 0
Set g2val = 0

For i = 3 To 18
    If g1val > Cells(33, i).Value Then
        g1val = g1val
    Else
        g1val = Cells(33, i).Value
    End If
Next i

For j = 32 To 57
    If g2val > Cells(31, j).Value Then
        g2val = g2val
    Else
        g2val = Cells(31, j).Value
    End If
Next j

在第二行我得到一个错误,说明对象是必需的.我试图使g1val和g2val为"Double",并试图首先给它们的值为1.但那些没有成功.你可以帮忙?? ....

Sub openwb()  
    ChDir "E:\sarath\PTMetrics\20131004\D8 L538-L550 16MY"
    Workbooks("D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm").Open    
End sub

在这里,我Subscript out of range在第3行收到错误.如何打开指定其路径的工作簿？

'Application.Calculate = xlManual'

我将这一行放入代码中以手动模式进行计算，但它显示“预期函数或变量”错误。你能帮我吗？

Set rmdvsheet = ActiveWorkbook.Sheets(11)

    rmdvsheet.Range("A1:K103").AutoFilter Field:=10, Criteria1:= _
        "D7u L462-L494 17MY"

在第 2 行，我收到一条错误消息，提示“范围类的自动过滤方法失败”。