|
何度も何度もすいません。
感謝の言葉もないくらいです。
現在の記述はこうなっております。
Private Sub CommandButton1_Click()
Dim LastRow As Long, i As Long
LastRow = Worksheets("解析").Range("A65536").End(xlUp).Row
For i = 2 To LastRow
Dim KaiinNo As Long, CellGyo As Variant
KaiinNo = Worksheets("解析").Cells(i, 3).Value
CellGyo = Application.Match(KaiinNo, Worksheets("データ").Columns(1), 0)
If Not IsError(CellGyo) And Worksheets("解析").Cells(i, "B").Value = 0 Then
Worksheets("データ").Cells(CellGyo, "AC").Value = Worksheets("データ").Cells(CellGyo, "AC") + 1
End If
Next i
End Sub
以上で実行した所、
>KaiinNo = Worksheets("JIHARAI").Cells(i, 3).Value
で、『実行エラー'13':/型が一致しません』とエラーが出ます。
まぁ、 i が引っ掛かってると思いますが、ここで i を外すと動かないですよね?
i = *** の何かを書かないとダメなんでしょうか?
完全に「教えて君」になっておりますが、宜しくお願い致します。m(_ _)m
|
|