Excel VBA質問箱 IV

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

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


50425 / 76732 ←次へ | 前へ→

【31196】Re:全シートでのループ処理
回答  Kein  - 05/11/14(月) 14:33 -

引用なし
パスワード
   では、こーいうことですか ?

Sub Test3()
  Dim Sh As Worksheet
  Dim Ck1 As Variant
  Dim FR As Range

  For Each Sh In Worksheets
   Ck1 = Application.Match("イベントA", Sh.Range("E:E"), 0)
   If IsError(Ck1) Then GoTo NLine
   Sh.Cells(Ck1, 6).Resize(, 2).Value = Array("○○", "○○○")
    Set FR = Sh.Range("E:E") _
   .Find("イベント*", Sh.Cells(Ck1, 5), xlValues, xlPart)
   If Not FR Is Nothing Then
     On Error Resume Next
     With Sh.Range(Sh.Cells(Ck1 + 1, 5), FR.Offset(-1)).SpecialCells(4)
      .Offset(, -1).ClearContents
      .EntireRow.Interior.ColorIndex = 16
     End With
     If Err.Number <> 0 Then Err.Clear
     On Error GoTo 0: Set FR = Nothing
   End If
NLine:
  Next
End Sub
1 hits

【31108】全シートでのループ処理 Duca 05/11/11(金) 17:00 質問
【31109】Re:全シートでのループ処理 Kein 05/11/11(金) 17:08 回答
【31112】Re:全シートでのループ処理 Duca 05/11/11(金) 17:40 発言
【31116】Re:全シートでのループ処理 Kein 05/11/11(金) 20:30 回答
【31174】Re:全シートでのループ処理 Duca 05/11/14(月) 9:50 質問
【31180】Re:全シートでのループ処理 Kein 05/11/14(月) 12:02 回答
【31195】Re:全シートでのループ処理 Duca 05/11/14(月) 14:18 質問
【31196】Re:全シートでのループ処理 Kein 05/11/14(月) 14:33 回答
【31202】Re:全シートでのループ処理 Duca 05/11/14(月) 14:56 お礼
【31333】Re:全シートでのループ処理 Duca 05/11/17(木) 18:38 質問
【31335】Re:全シートでのループ処理 Kein 05/11/17(木) 19:58 発言
【31339】Re:全シートでのループ処理 Duca 05/11/17(木) 21:37 発言
【31365】Re:全シートでのループ処理 Kein 05/11/18(金) 14:31 回答
【31367】Re:全シートでのループ処理 Duca 05/11/18(金) 14:44 質問
【31369】Re:全シートでのループ処理 Kein 05/11/18(金) 14:51 発言
【31371】Re:全シートでのループ処理 Duca 05/11/18(金) 15:08 発言
【31372】Re:全シートでのループ処理 Kein 05/11/18(金) 15:12 発言
【31374】Re:全シートでのループ処理 Duca 05/11/18(金) 15:17 発言
【31377】Re:全シートでのループ処理 Kein 05/11/18(金) 15:31 発言
【31380】Re:全シートでのループ処理 Duca 05/11/18(金) 15:43 発言
【31382】Re:全シートでのループ処理 Kein 05/11/18(金) 15:52 回答
【31386】Re:全シートでのループ処理 Duca 05/11/18(金) 16:12 発言
【31392】Re:全シートでのループ処理 Kein 05/11/18(金) 16:34 回答
【31395】Re:全シートでのループ処理 Duca 05/11/18(金) 16:58 発言
【31396】Re:全シートでのループ処理 Kein 05/11/18(金) 17:07 回答
【31401】Re:全シートでのループ処理 Duca 05/11/18(金) 17:56 発言
【31193】Re:全シートでのループ処理 Duca 05/11/14(月) 13:59 発言
【31200】Re:全シートでのループ処理 Duca 05/11/14(月) 14:49 発言

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