|
▼salt さん:
>ありがとうございます。
>で、For Each〜以外で処理することは可能なのでしょうか?
>
>With〜を使って処理すると、実行してくれません。
>
>For i As Long
>With WorkSheets("sh" & i)
>・・・
>End With
>
>色々なパターンでの処理の仕方を比較している最中で、他の方法もあればご教授いただくと助かります。
以下の様にFor〜Next 文でやってみたところ処理出来ました
Sub Test()
Dim i As Long
On Error GoTo ERR_TEST
For i = 1 To 50
With Worksheets("sh" & i)
Dim lastx As Long
lastx = .Range("a1").End(xlDown).Row
Dim x As Long
For x = 1 To lastx
If .Range("d" & x).Value = "○" Then
.Rows(x).Interior.ColorIndex = 6
End If
Next x
End With
NEXT_SH:
Next i
On Error GoTo 0
Exit Sub
ERR_TEST:
If Err.Number = 9 Then
Resume NEXT_SH
End If
MsgBox Error(Err.Number), vbOKOnly, "予想外のエラー"
End Sub
|
|