は、私は、二重の基準でシンプルなカウンタを設定しようとしています、あなたが怒鳴る見ての通り、私は</p> <blockquote> <p>ランタイムエラー13</p> </blockquote> <p>によって停止していますランタイムエラー13原因

Question

を見つけることができません複数のカウンターがあり、すべて整数として、列DとAの値によってロックされたすべてのヒットをカウントします）。重要な場合：列Dのテキストは、他の2つのDates-comparissonによって生成されています列として表示されますが、テキストとして書式設定されています）。

Private Sub Workbook_Open() 

Dim lr, i, k, a, b, c, d, e, f, g, h, j, l, m, n, o, p, q, r, s As Integer 

a = b = c = d = e = f = g = h = j = l = m = n = o = p = q = r = 0 

Worksheets("overdue").Activate 

lr = Range("D" & Rows.Count).End(xlUp).Row 

k = 1 

For i = 1 To lr 

If Cells(i, "D").Value = "OVERDUE" And Cells(i, "A") Like "*φίλτρου*" Then 
a = a + 1 
ElseIf Cells(i, "D").Value = "OVERDUE" And Cells(i, "A") Like "*Λιπαντικού*" Then 
b = b + 1 

k = k + 1 

End If 
Next i 

私も右

If Worksheets("overdue").Cells(i, "D").Value = "OVERDUE" And Worksheets("overdue").Cells(i, "A") Like "*ößëôñïõ*" Then 

のような細胞の構文でワークシート名を再配置しようとしたが、助けていないようです。誰か提案がありますか？ 私が追加したことを忘れて、デバッガが、Ifが先頭に立っている行を示しているので、最初のカウンタのステートメントが表示されます。

はまた、私は根本的にコードを変更し、この

Sub testcounter() 

Dim cell As Range 
Dim a As Integer 

For Each cell In Worksheets("Sheet2").Range("D1:D3500") 

If cell.Value = "1" Then 
a = a + 1 
End If 
Next 

MsgBox a 

End Sub 

のように、可能な限りそれを簡略化する場合、それはまだ

エラーを与えることを、参照13

は、IF文の最初の行にあります。

Answer 1

1. sを除くすべての変数は、Integerではありません。

2. すべての変数（Integer）は、自動的にゼロに初期化されます。

3. a = b = c = d = e = f = g = h = j = l = m = n = o = p = q = r = 0論理比較をもたらし、すなわちRは、この比較の結果がそのようにqとと比較され、0に等しいかどうかチェックします。

Answer 2

Dim a, b, c, d As Integer '<< only d is integer... 

a = b = c = d = 0 

Debug.Print "a", a 
Debug.Print "b", b 
Debug.Print "c", c 
Debug.Print "d", d 

出力：

a    True 
b    
c    
d    0