VBA CountIf issue

Question

vba（最後の2行目）のcountif関数に問題があります。それは特定の範囲で特定の値を計算しなければなりませんが、絶対にすべての値をmp3としてカウントし、mp4としては何もカウントしません。

変数を渡さずにプロシージャを新しいモジュールにコピーすると、すべて正常に動作し、適切な値が返されます。ここで何が間違っていますか？おかげ

Private Sub FindValue(ByVal fileno As String, ByVal deadline As String) 

Dim i As Integer 
Dim xWs As Worksheet 
Dim rng As Range 
Dim olApp As Object 
Dim olMail As Object 
Dim var As Integer 
Dim user As String 
Dim uplDate As String 
Const olMailItem = 0 
Dim lastrow As Long 
Dim mp3 As Long 
Dim mp4 As Long 

Sheets("Add_User_ID").Select 
var = Sheets("Add_User_ID").Range(("A2"), Sheets("Add_User_ID").Range("A2").End(xlDown)).Rows.Count 
If fileno = "" Then 
fileno = InputBox("File number") 
End If 
If deadline = "" Then 
deadline = InputBox("Deadline, any format(e.g. 27th of August EOD)") 
End If 
uplDate = Format(Date, "YYYYMMDD") 

For i = 2 To var + 1 
user = Sheets("Add_User_ID").Cells(i, "A").Value 
Sheets("allocation").Select 
With ActiveSheet 
    .AutoFilterMode = False 
    .Range("A:I").AutoFilter 
    .Range("A:A").AutoFilter field:=1, Criteria1:=user 
End With 

Sheets("allocation").Range("A1").Select 
Set rng = ActiveCell.CurrentRegion 
Application.Workbooks.Add 
Set xWs = Application.ActiveSheet 
rng.Copy Destination:=xWs.Range("A1") 
lastrow = xWs.Cells(Rows.Count, 2).End(xlUp).Row - 1 
mp3 = WorksheetFunction.CountIf(Range(Cells(2, 4), Cells((lastrow + 1), 4)), 3) 
mp4 = WorksheetFunction.CountIf(Range(Cells(2, 4), Cells((lastrow + 1), 4)), 4) 

Answer 1

変更し、これにコードの末尾：

with xWs 
    mp3 = WorksheetFunction.CountIf(.Range(.Cells(2, 4), .Cells((lastrow + 1), 4)), 3) 
    mp4 = WorksheetFunction.CountIf(.Range(.Cells(2, 4), .Cells((lastrow + 1), 4)), 4) 
end with 

でWtihout

と.、CellsとRangeはactivesheetを参照してください。したがって、自分で参照することをお勧めします。

次に、あなたはそれのように感じる場合は、次のようにコードをリファクタリング：

• 変更""
Is there any difference between vbNullString and ""? vbNullStringに変更 Integer Longにどこでも Why Use Integer Instead of Long?
• あなたが常にワークシートあなたを参照していることを確認してくださいActiveSheetとSelectを使用しています。オートインデントのためのソリューションのHow to avoid using Select in Excel VBA
• 考える - RubberDuckかSmartIndenter