|
kawataです、よろしくお願いします。
INAさん、ありがとうございました。
無事に完結です、また、よろしくお願いします。
これをどう組み込むかをこれから悩んでみます。
ありがとうございました。
Private Sub CommandButton1_Click()
Dim C As Long
Dim Cnt As Long
With Worksheets("Sheet1")
For C = 1 To .Range("A65536").End(xlUp).Row
If C <> .Range("A65536").End(xlUp).Row Then
If Month(.Cells(C, 1).Value) = Month(.Cells(C + 1, 1).Value) Then
If .Cells(C, 2).Value = "○" Then
Cnt = Cnt + 1
End If
Else
If .Cells(C, 2).Value = "○" Then
.Cells(C, 3).Value = Cnt + 1
Else
.Cells(C, 3).Value = Cnt
End If
Cnt = 0
End If
Else
If .Cells(C, 2).Value = "○" Then
.Cells(C, 3).Value = Cnt + 1
Else
.Cells(C, 3).Value = Cnt
End If
End If
Next C
End With
End Sub
|
|