07/01/16 19:45:06
>>41
レスありがとうございます。
やはり Cells(i,2).Value でもエラーが出ました。一応プログラムを載せてみます。
Sub count256()
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
c = 0
For i = 2 To 1883
a = Cells(i, 3).Value
b = Cells(i, 4).Value
If a >= 256 Then
If b >= 256 Then
c = c + 1
End If
End If
Next i
Cells(7, 1).Fomula = c
End Sub
ブックとシートの指定はどこでやればいいのでしょうか？