Excel VBA質問箱 IV

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

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


40961 / 76732 ←次へ | 前へ→

【40859】Re:オートフィルタの解除
回答  Statis  - 06/7/25(火) 12:58 -

引用なし
パスワード
   こんにちは

Withステートメントを使う事で同じ内容を何回も書く必要がなくなります。
下記のコードの場合は「Sheets("管理表マスター")」です
せっかく「Setステートメント」でセットしたのに
なぜ、「Sheets("申請書未返送リスト(2005.10.01以降)")」何回も
記載するのでしょうか?意味がありませんよ
見比べてみてください。

こんな感じです。

Sub Macro1()
  Dim r1 As Long
  Dim r2 As Long
  Dim WS As Worksheet
  
  Set WS = Sheets("申請書未返送リスト(2005.10.01以降)")
  r2 = WS.Range("B65536").End(xlUp).Row
  
  With Sheets("管理表マスター")
    r1 = .Range("E65536").End(xlUp).Row
    If r2 > 6 Then
      WS.Range("B5:K" & r1).ClearContents
    End If
    If .AutoFilterMode = False Then
      .Range("B3:AE3").AutoFilter
    End If
    .Range("B3:AE" & r1).AutoFilter Field:=1, Criteria1:="製品出荷"
    .Range("B3:AE" & r1).AutoFilter Field:=30, Criteria1:="="
    .Range("B3:AE" & r1).AutoFilter Field:=10, Criteria1:=">2005/10/1", Operator:=xlAnd
    .Range("B3:AE" & r1).AutoFilter Field:=12, Criteria1:="ユーザー"
    .Range("B4:F" & r1).Copy
    WS.Range("B5").PasteSpecial xlValues
    .Range("H4:I" & r1).Copy
    WS.Range("G5").PasteSpecial xlValues
    .Range("K4:K" & r1).Copy
    WS.Range("I5").PasteSpecial xlValues
    .Range("N5:N" & r1).Copy
    WS.Range("J5").PasteSpecial xlValues
    .Range("W4:W" & r1).Copy
    WS.Range("K5").PasteSpecial xlValues
    WS.Application.CutCopyMode = False
    .AutoFilterMode = False
  End With
  
  WS.Range("B5:K" & r2).Sort Key1:=WS.Range("G5"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
    :=xlPinYin, DataOption1:=xlSortNormal
  
  Set WS = Nothing
End Sub

0 hits

【40716】オートフィルタの解除 福神漬 06/7/21(金) 12:09 質問
【40718】Re:オートフィルタの解除 Jaka 06/7/21(金) 12:33 回答
【40719】Re:オートフィルタの解除 Statis 06/7/21(金) 12:34 発言
【40722】Re:オートフィルタの解除 福神漬 06/7/21(金) 13:49 お礼
【40748】Re:オートフィルタの解除 Statis 06/7/22(土) 8:43 回答
【40790】Re:オートフィルタの解除 福神漬 06/7/24(月) 12:19 発言
【40791】Re:オートフィルタの解除 福神漬 06/7/24(月) 12:23 発言
【40859】Re:オートフィルタの解除 Statis 06/7/25(火) 12:58 回答
【40917】Re:オートフィルタの解除 福神漬 06/7/26(水) 10:05 お礼
【40928】Re:オートフィルタの解除 Statis 06/7/26(水) 13:53 回答
【40721】Re:オートフィルタの解除 いなば 06/7/21(金) 13:41 発言
【40728】Re:オートフィルタの解除 福神漬 06/7/21(金) 15:51 質問
【40736】Re:オートフィルタの解除 いなば 06/7/21(金) 17:38 発言

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