Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45131 / 76732

←次へ　｜　前へ→


	【36604】Re:連続したワークシートのデータ読み込み

ハト - 06/4/5(水) 11:42 -


	引用なし

	パスワード

▼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

8 hits

▼

【36561】連続したワークシートのデータ読み込み salt 06/4/3(月) 19:28