|
いつの間にか、シート名が変わってましたね。(^_^;)
現在の記述はこうなっております。
Private Sub CommandButton1_Click()
Dim LastRow As Long, i As Long
Dim KaiinNo As Long, CellGyo As Variant
KaiinNo = Worksheets("解析").Cells(i, 3).Value
CellGyo = Application.Match(KaiinNo, Worksheets("データ").Columns(1), 0)
LastRow = Worksheets("解析").Range("A65536").End(xlUp).Row
For i = 2 To LastRow
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("解析").Cells(i, 3).Value
でエラーが発生します。
エラーが出たときの右辺とは、どう言う意味でしょうか?
|
|