Excel VBA質問箱 IV

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

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


50434 / 76738 ←次へ | 前へ→

【31193】Re:全シートでのループ処理
発言  Duca  - 05/11/14(月) 13:59 -

引用なし
パスワード
   自分で試行錯誤してみたところ、
下記コードにて思うような処理が行えましたが
もっとスッキリとしたコードにならないものかと思っています。
  
  Flg = True
  For Each Sh In Worksheets
    Sh.Select (Flg)
    Flg = False
    
    Columns("E").Select
    Selection.Find(What:="イベントA", After:=ActiveCell, LookIn:=xlFormulas, _
      LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
    
    If ActiveCell.Value <> "イベントA" Then
      GoTo Exitsub
    
    ElseIf ActiveCell.Value = "イベントA" Then
      J = ActiveCell.Address
      Range(J).Offset(1, 0).Select
      Row = ActiveCell.Row
    
        Do Until Range("E" & Row).Value <> ""
          Range("D" & Row & ":AS" & Row).Interior.Color = RGB(192, 192, 192)
          Range("D" & Row).Value = ""
  
          Row = Row + 1
         Loop
  
        lngRow = Range("F65536").End(xlUp).Row
          If lngRow = 1 Then
            If Range("F11").Value = "" Then
            Exit Sub
            Else
              lngRow = 65536
             End If
          End If
      Application.ScreenUpdating = False
    
      For i = lngRow To 2 Step -1
        If Range("E" & i).Value = "イベントA" Then
          Range("F" & i).Value = "○○"
          Range("G" & i).Value = "○○○"
        End If
      Next i
      
    End If
  Next Sh
    Application.ScreenUpdating = True

Exitsub:
End Sub

初心者な為、必要のない処理などを加えてるかもしれません。
必要のない箇所がございましたらご教授をお願いします。

0 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 発言

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