我正在使用 VBA 代碼來過濾日期和主題名稱來執行一些分析。日期過濾作業正常，但我無法使用 InputBox 過濾主題名稱。我將 InputBox 分配給一個物件 a 并在過濾器中呼叫它，但它給了我運行時錯誤 1004、應用程式定義或物件定義錯誤。
這是我的代碼。有人可以幫我解決這個問題嗎？我在主題名稱過濾方面遇到錯誤。
Sub Quality_Check()
'
' Quality_Check Macro
'
'
Dim dte As Date
Dim a As String
Dim score As Integer
mBox = InputBox("Enter a date")
If IsDate(mBox) Then
dte = CDate(mBox)
Dim Lastrow As Long
Lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A1:AB" & Lastrow).AutoFilter field:=1, Criteria1:=">=" & dte, _
Operator:=xlAnd, Criteria2:="<" & dte 1
End If
a = InputBox("Enter the Subject Name")
With Sheets("Raw Data")
.Range("A1").Select
.Range(ActiveCell, Selection.End(xlDown)).Select
.Range(Selection, Selection.End(xlToRight)).Select
End With
Selection.AutoFilter field:=7, Criteria:=a
Selection.Copy
Sheets("Filtered").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
uj5u.com熱心網友回復：
應該Criteria1不是Criteria
Selection.AutoFilter field:=7, Criteria1:=a
你可以參考下面的問題
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/313363.html
上一篇：將單元格地址分配給陣列中的范圍
下一篇：逆向excel索引匹配