Excel VBA質問箱 IV

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

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


62657 / 76738 ←次へ | 前へ→

【18687】Re:オートフィルタについて
回答  Kein  - 04/10/5(火) 17:46 -

引用なし
パスワード
   Sub Test()
  Dim WS As Worksheet, Sh As Worksheet  
  Dim MyR As Range

  Set Sh = Worksheets("作業済")
  Application.ScreenUpdating = False
  For Each WS In Worksheets
   Select Case WS.Name
     Case "Sheet1", "Sheet2", "Sheet3", "作業済"
     Case Else
       Set MyR = WS.Range("F7", WS.Range("F65536").End(xlUp))
       WS.Range("F6", WS.Range("F65536").End(xlUp)) _
       .AutoFilter Field:=1, Criteria1:="100.0%"
       On Error Resume Next
      If IsEmpty(Sh.Range("A7").Value) Then
        MyR.SpecialCells(12).EntireRow.Copy Sh.Range("A7")
      Else
        MyR.SpecialCells(12).EntireRow _
        .Copy Sh.Range("A65536").End(xlUp).Offset(3)
      End If
       WS.AutoFilterMode = False
       Set MyR = Nothing: Err.Clear
   End Select
  Next
  Set Sh = Nothing
  Application.ScreenUpdating = True
End Sub

で、どうでしょーか ?

0 hits

【18544】オートフィルタについて xyz 04/9/29(水) 10:46 質問
【18545】Re:オートフィルタについて Kein 04/9/29(水) 11:24 回答
【18551】Re:オートフィルタについて xyz 04/9/29(水) 13:28 質問
【18553】Re:オートフィルタについて Kein 04/9/29(水) 14:45 発言
【18555】Re:オートフィルタについて xyz 04/9/29(水) 15:14 質問
【18557】Re:オートフィルタについて Kein 04/9/29(水) 15:38 回答
【18565】Re:オートフィルタについて xyz 04/9/29(水) 21:02 質問
【18581】Re:オートフィルタについて Kein 04/9/30(木) 8:42 回答
【18673】Re:オートフィルタについて xyz 04/10/5(火) 10:37 質問
【18674】Re:オートフィルタについて Kein 04/10/5(火) 11:08 回答
【18676】Re:オートフィルタについて xyz 04/10/5(火) 15:18 質問
【18687】Re:オートフィルタについて Kein 04/10/5(火) 17:46 回答
【18725】Re:オートフィルタについて xyz 04/10/7(木) 15:44 質問
【18745】Re:オートフィルタについて Kein 04/10/8(金) 10:28 回答
【18877】Re:オートフィルタについて xyz 04/10/15(金) 13:09 お礼

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