Excel VBA質問箱 IV

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

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


41095 / 76732 ←次へ | 前へ→

【40721】Re:オートフィルタの解除
発言  いなば  - 06/7/21(金) 13:41 -

引用なし
パスワード
   ▼福神漬 さん:
>オートフィルタで抽出したデータを別シートに転記するマクロを作りました。
>AutoFilterMode = Falseとしているのですが、管理表マスターのオートフィルタは
>解除されません。
>解除させるにはどうすればいいですか?
>よろしくお願い致します。
>
>Sub Macro1()
>  Dim r As Long
>  Dim WS As Worksheet
>  Set WS = Worksheets("管理表マスター")
>  r = Worksheets("管理表マスター").Range("E65536").End(xlUp).Row
>  If AutoFilterMode = False Then
>    With Worksheets("管理表マスター").Range("K3:AE" & r)
>    .AutoFilter Field:=21, Criteria1:="="
>    .AutoFilter Field:=1, Criteria1:=">2005/10/1", Operator:=xlAnd
>    .AutoFilter Field:=3, Criteria1:="ユーザー"
>    End With
>      Sheets("管理表マスター").Range("B513:F" & r).Copy
>      With Sheets("Sheet1").Range("B5")
>      .PasteSpecial xlValues
>      End With
>      Sheets("管理表マスター").Range("H537:I" & r).Copy
>      With Sheets("Sheet1").Range("G5")
>      .PasteSpecial xlValues
>      End With
>      Sheets("管理表マスター").Range("H513:I" & r).Copy
>      With Sheets("Sheet1").Range("G5")
>      .PasteSpecial xlValues
>      End With
>      Sheets("管理表マスター").Range("K573:K" & r).Copy
>      With Sheets("Sheet1").Range("I5")
>      .PasteSpecial xlValues
>      End With
>      Sheets("管理表マスター").Range("K513:K" & r).Copy
>      With Sheets("Sheet1").Range("I5")
>      .PasteSpecial xlValues
>      End With
>      Sheets("管理表マスター").Range("M513:N" & r).Copy
>      With Sheets("Sheet1").Range("J5")
>      .PasteSpecial xlValues
>      End With
>      Sheets("管理表マスター").Range("W513:W" & r).Copy
>      With Sheets("Sheet1").Range("L5")
>      .PasteSpecial xlValues
>      End With
>      Sheets("管理表マスター").Select
>      Application.CutCopyMode = False
>      AutoFilterMode = False
>  End If
>End Sub

コードの内容を詳しく見てませんが、
If AutoFilterMode = False Then
これだと、ActiveSheetに対しての命令になりませんか?

ActiveSheetがなにか分かりませんが、管理表マスターがActiveでないとしたら、Worksheetオブジェクトが指定されてないからだと思います。

面倒でも親オブジェクトを省略しないとか、規定のValueプロパティを省略しないとかけっこう大事ですよね。

まったく見当違いのことでしたらゴメンなさい。
1 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 発言

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