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 質問
【36562】Re:連続したワークシートのデータ読み込み Kein 06/4/3(月) 19:46 回答
【36564】Re:連続したワークシートのデータ読み込み salt 06/4/3(月) 20:03 質問
【36566】Re:連続したワークシートのデータ読み込み Kein 06/4/3(月) 20:55 回答
【36567】Re:連続したワークシートのデータ読み込み salt 06/4/4(火) 8:37 発言
【36568】Re:連続したワークシートのデータ読み込み Blue 06/4/4(火) 8:57 回答
【36569】Re:連続したワークシートのデータ読み込み salt 06/4/4(火) 9:17 発言
【36575】Re:連続したワークシートのデータ読み込み Kein 06/4/4(火) 12:14 回答
【36604】Re:連続したワークシートのデータ読み込み ハト 06/4/5(水) 11:42 回答
【36671】Re:連続したワークシートのデータ読み込み salt 06/4/7(金) 13:57 お礼

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