Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
50441 / 76732 ←次へ　｜　前へ→
【31180】Re:全シートでのﾙｰﾌﾟ処理
回答  Kein  - 05/11/14(月) 12:02 -
引用なし
パスワード
   >"ｲﾍﾞﾝﾄA"から次に出てくるﾗﾝﾀﾞﾑなｲﾍﾞﾝﾄ名までの範囲
ということは
「先にｲﾍﾞﾝﾄAを探し、必ずその下にあるｲﾍﾞﾝﾄ名を見つけて、そこまでの範囲」
という意味ですか ?　ならばこんな感じかな ?

Sub Test2()
　 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)
　　　If Not FR Is Nothing Then
　　　　 On Error Resume Next
　　　　 With Sh.Range(Sh.Cells(Ck1, 5), FR).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 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
50441 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free