|
お世話になります。
題名の通り、複数ファイルでの処理で困っています。
For l = 1 To Workbooks.Count
For j = Sti To Worksheets.Count
a = 0
MyR = 11
With Workbooks(l).Worksheets(j)
While Worksheets(j).Cells(MyR, 7) <> ""
If .Cells(MyR, 5).Value = "△" Then
.Cells(MyR, 6).Value = "□"
.Cells(MyR, 7).Value = "■"
a = 1
ElseIf .Cells(MyR, 5).Value = "" Then
If a = 1 Then
.Range("D" & MyR & ":AS" & MyR).Interior.ColorIndex = 16
.Range("D" & MyR).Value = ""
End If
Else
a = o
End If
MyR = MyR + 1
Wend
End With
Next j
Next l
End Sub
上記のような処理を複数ファイルに行いたいと思っております。
ですが、例えばファイル1(複数Sheet)とファイル2(複数Sheet)を選択し実行した場合、
ファイル2のあるSheet(仮にSheet3)の途中の"△"からの処理が行われず
その次のSheet4以降は正常に処理が行われました。
初心者なため原因がまったくわかりません。
どなたか教えていただけいないでしょうか。
宜しくお願いします。
|
|