Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8732 / 13644 ツリー ←次へ | 前へ→

【31482】複数ファイルの処理 お世話になります 05/11/22(火) 17:47 質問[未読]
【31485】Re:複数ファイルの処理 だるま 05/11/22(火) 18:49 回答[未読]
【31512】Re:複数ファイルの処理 お世話になります 05/11/24(木) 10:14 お礼[未読]

【31482】複数ファイルの処理
質問  お世話になります  - 05/11/22(火) 17:47 -

引用なし
パスワード
   お世話になります。

題名の通り、複数ファイルでの処理で困っています。


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以降は正常に処理が行われました。

初心者なため原因がまったくわかりません。
どなたか教えていただけいないでしょうか。
宜しくお願いします。

【31485】Re:複数ファイルの処理
回答  だるま WEB  - 05/11/22(火) 18:49 -

引用なし
パスワード
   こんにちは

とりあえず

>For j = Sti To Worksheets.Count
For j = Sti To Workbooks(i).Worksheets.Count

>While Worksheets(j).Cells(MyR, 7) <> ""
While .Cells(MyR, 7) <> ""

こんな感じかな。^d^

【31512】Re:複数ファイルの処理
お礼  お世話になります  - 05/11/24(木) 10:14 -

引用なし
パスワード
   だるまさんありがとうございます!
おかげでバッチリできました。

ありがとうございました!

8732 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free