Excel VBA質問箱 IV

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

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


45169 / 76732 ←次へ | 前へ→

【36566】Re:連続したワークシートのデータ読み込み
回答  Kein  - 06/4/3(月) 20:55 -

引用なし
パスワード
   それを、シート名の最初の2文字が "sh" になっているシートすべてで処理したい、
ということなら

Sub Test()
  Dim WS As Worksheet
  Dim MyR As Range   

  For Each WS In Worksheets
   If Left$(WS.Name, 2) = "sh" Then
     Set MyR = WS.Range("A1", WS.Range("A65536").End(xlUp))
     If Application.CountIf(MyR.Offset(, 3), "○") > 0 Then
      With MyR.Offset(, 26)
        .Formula = "=IF($D1=""○"",1,"""")"
        .SpecialCells(3, 1).EntireRow.Interior.ColorIndex = 6
        .ClearContents
      End With
     End If
     Set MyR = Nothing
   End If
  Next
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 お礼

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