[[20110815153817]]　『１つのシートで２種類のオートフィルタをマクロで』（ＡＫＯ）　ページの最後に飛ぶ

『１つのシートで２種類のオートフィルタをマクロで設定できますでしょうか？』（ＡＫＯ）

 Excel2003

 本日２回目で申し訳ございません。
 過去ログを探すも、どうもピンとこなくて・・・

 １つのシートで、Ａ列～Ｊ列までをオートフィルタするところ（①）と、
 Ａ列は結合していてＢ列からＪ列までをオートフィルタしたいところ（②）があります。
 どちらも空欄でないところを抽出してくるように指定したいのですが、
 もともと①は設定していたのですが、追加で②を設定しようと入力したら、
 ①に影響が出る始末です。

 ①
 With Sheets("データ表示").Range("A36:J76")
 AutoFilter Field:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), VisibleDropdown:=False
 AutoFilter Field:=1, Criteria1:="<>", VisibleDropdown:=False
 End With

 ②
 With Sheets("データ表示").Range("A6:J13")
 AutoFilter Field:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), VisibleDropdown:=False
 AutoFilter Field:=1, Criteria2:="<>", VisibleDropdown:=False
 End With

 ちなみに、A5:A13、B5:C5、D5:F5、は項目名のため結合しています。
 項目名に続く行は、B6:C6、B7:C7・・・・、と結合しています。

 このような形でもオートフィルタは可能でしょうか？
 いつもすみません。
 よろしくお願いいたします。

 回答の前に

 オートフィルターは、１つのシートでは、ある時点では１つの領域にしか設定できないけど、それは理解してる？
つまり、①　と　②　は　並存できないということだけど。

 以下のコードは、何を意図している？（わかりそうな気もするけど）
With Sheets("データ表示").Range("A36:J76")
With Sheets("データ表示").Range("A6:J13")

 そもそもが
AutoFilter Field:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), VisibleDropdown:=False
これは実行できてる？
AutoFilterメソッドは、必ず　Expression.AutoFilter と記述することが必要。（ヘルプに目を通してみて）

 A5:A13、B5:C5、D5:F5、は項目名のため結合しています。
この A5:A13 って？　もしこうなら、そのあとのA14以降も結合？

 (ぶらっと)

 一つの領域にしか設定できないんですね。
 ①は、実行できてたんです（これも、こちらで教えてもらったものでして・・・）
 ②については、A14以降は結合されていないんです。
 すみません・・・

 >①は、実行できてたんです（これも、こちらで教えてもらったものでして・・・）
実行できていたということは　実際のコードは　AutoFIlter の前に . (ピリオド) があるのかな？

 (ぶらっと)

 そうです！
 こちらに書き込む時に、消してしまってました。
 すみません。

 With Sheets("データ表示").Range("A36:J76")
  .AutoFilter Field:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), VisibleDropdown:=False
  .AutoFilter Field:=1, Criteria1:="<>", VisibleDropdown:=False
 End With

 このような形です。
 重ね重ね、すみません・・・

 上で書いたとおり、１つのシートには、同時に２つのオートフィルター領域を持つことはできないので
やるとすれば、２つのブロックのそれぞれの抽出結果を別シートに表示するといったことになるのでは？

 それ以前に、シートの姿が見えない。かつ、そこで、どんなフィルタリングをしようとしているのかが見えない。
②なんか、結合セルの真ん中あたりから始まる領域をオートフィルター領域にしていたり。

 ①、②　それぞれ、具体的なレイアウトと、オートフィルター用のタイトル（項目名）が、どこにどんなようにあるのか
具体的な説明がほしいね。それから、そこで、実際にどんなフィルタリングをしたいのかも（コードじゃなく言葉で）

 (ぶらっと)

 すみません。

 こんな感じでわかりますでしょうか？

 ②には、下記のように納品仕様みたいなのを
 　 Ａ ｜Ｂ　　　 ｜Ｃ｜Ｄ　｜Ｅ・・・Ｊ
  6 数 ｜メーカー ｜コード　｜納品日　
  7 量 ｜ﾊﾟﾅｿﾆｯｸ　｜123-456 ｜'11/8/31
  8 　 ｜　　　　 ｜　　　　｜
 ・    ｜         ｜        ｜ 　　
 ・

 ①には、上記②に続けて納品時の注意事項が記載できるようになっています。
 　 Ａ ｜Ｂ　　　 ｜Ｃ｜Ｄ　｜Ｅ・・・Ｊ
 　 その他特記事項
 36　・納品日厳守
 37  ・数量表を確認の事
 ・
 ・

 ①も②も何行か入力できるようになっているのですが、オートフィルタで文字が入っている行だけ
 抽出するようにしたいのです。
 もともと①だけの設定であったのですが、②も数量を入れない行を印刷するのが無駄かなと思い、
 オートフィルタができたらいいかなと思いました。

 昔どなたかが作られていたのを、四苦八苦しながら修正をかけています。
 先日のとおり、あまり仕組みをわかっていなくてすみません。

 レイアウト拝見。

 まず②
 6行目がタイトル行で、データは7行目からだよね。（パナソニックというのはタイトルではなくデータだよね。）
 で各行の数量をA列にいれて、数量があるものだけを表示させて印刷したいということでいいね。
 ここで、わからなくなるのは、8行目の数量は、A8に入力するんだろうと思うんだけど、7行目の数量はどこ？

 で、その②の領域は１３行目まででいいのかな？それより下、①の直前までデータ行として使うってことは
 ないの？

 次に①
 36行目から特記事項をフリーに記入、この領域が76行目まであって、A列の特記事項が空白のところを
 非表示にしたいということだよね。
 エクセルのフィルター機能はフィルターリストの領域の先頭行がタイトル行というきまりだけど、
 ここにはタイトル行はなく、いきなりデータ行ということだね。

 もう１つ。
 １４行目から３５行目まで、何が入っているのか（あるいは入っていないのか）わからないけど、
 ここはさわらなくてもいいということだよね。

 (ぶらっと)

 すみません。
 またしてもです。

 ②ですが、Ａ列は数量表という項目名でA6:A13までは結合されています。

 　 Ａ ｜Ｂ　　  ｜Ｃ｜Ｄ　｜Ｅ　 　　｜Ｆ　  ｜Ｇ・・・Ｊ
 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
  6 数 |メーカー ｜コード　｜納品日　 ｜数量  |
       |___＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
  7 量 |ﾊﾟﾅｿﾆｯｸ　｜123-456 ｜'11/8/31 ｜１　　｜
       |＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿_
  8 表 |　　　　 ｜　　　　｜　　　　 ｜　　　｜
 ・  　|         ｜        ｜ 　　　　｜　　　｜
 ・
 13
 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

 14行目から34行目は別の情報が入っているのですが触りません。
 14行目から34行目は②よりも更にいろんな結合をしています。

 ①ですが、35行目のA35にタイトルが入っています。
 A35:J37は結合していません。
 A36からの各々の行は、A36:J36 A37:J37・・・A76:J76と結合されています。
 もともと別のシートに並べられた情報をA36～A76までにコピーされます。
 それからA36～J76までをオートフィルタし、空欄でないところを抽出させています。

   Ａ ｜Ｂ　　　 ｜Ｃ｜Ｄ　｜Ｅ・・・Ｊ
 35その他特記事項
 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
 36●納品日厳守
 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
 37●数量表を確認の事
 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
 ・
 ・
 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
 76

 本当に重ね重ねすみません。

 ラッジャー。
最初にアップされた②のフィルタリングのコードからは、うかがいしれないレイアウトだったね。
（というより、そもそも、このコードはヘンだったけど）

 いずれにしても、レスしたように、１つのシートには、同じタイミングで２つ以上のオートフィルター領域を設定することはできない。
①も②もオートフィルターじゃない方法に変更する手もあるけど、今、少なくとも①についてはオートフィルターのコードで
問題なく動いているとのことなので、②だけを別方式で。
以下の「非表示」「再表示」のなかのコードを現在のコードに組み込んで。

 Sub 非表示()
    Dim c As Range
    With Sheets("データ表示")
        For Each c In .Range("B7:B13")
            If Len(c.Value) = 0 Then c.EntireRow.Hidden = True
        Next
    End With
 End Sub

 Sub 再表示()
    With Sheets("データ表示")
        .Rows("7:13").Hidden = False
    End With
 End Sub

 (ぶらっと)

 ありがとうございます。

 試してみたのですが、変化がないんです（T-T）
 ちなみに、①と同様に②も別シートからコピーされた情報が貼り付けられるようになっていて、
 計算式が入っているのですが、計算式が入っていたら空欄扱いにならないとかありますでしょうか？
 ①は計算式が入っていてもオートフィルタされるので関係ないですよね？

 すみません。

 う～ん・・・
式が入っていても、値として空白であれば機能するんだけどなぁ・・・
（こちらでは、問題なく機能している）
まさか、コピペした別のところのセルを、たとえば、それが Z10 だったとして、=Z10 なんて式だと
Z10が空白の場合でも、 「0」 になって「空白じゃなくなる」けど、そこはどうなんだろう？

 いずれにしても、どんな式がB7:B13に入っているのかアップしてもらえる？

 (ぶらっと)

 本当にすみません

 B7:B13まで下記のような式が入っています。
　
 =IF(入力画面!C16="","",入力画面!C16)

 B7にはC16、B8にはC17・・・となっていきます。

 C7には、
 =IF(入力画面!D16="","",入力画面!D16)

 E7には、上記の式にF16と展開しています。

 ちなみに、①のA36:A76は、
 下記の式が入っています。

 =IF(Sheet1!E69<>"",Sheet1!E69,"")

 こちらも、A36にはE69、A37にはE70・・・となっていきます。

 作業の流れは、
 『入力画面』というシートに情報を入力します。
 ①については一旦『印刷画面』というシートの
 =CONCATENATE(" ",入力画面!C121,"")
 という式が入っているところにコピーされます。
 これを更にマクロで、『Sheet1』というシートにコピーされます。
 最後に『データ表示』のA36:A37にコピーされます。

 ②については、
 『入力画面』に入れると直接　『データ表示』のB7:B13～J7:J13に
 コピーされます。

 すみません。
 何だか本当にすみません。

 同じような環境を作り、同じ式をいれて試したけど、やはり「正常」だなぁ。
仮に空白なのに非表示にならないというのがB10だったとして、データ表示シートの、どこかのセルに
=LEN(B10) と打ち込んで、「0」かどうか試してみてくれる？

 =IF(入力画面!D16="","",入力画面!D16)　これが
 =IF(入力画面!D16=""," ",入力画面!D16)　とか
 =IF(入力画面!D16="","　",入力画面!D16)　になってたりして・・・・

 (ぶらっと)

 なんとなく想像が・・・
たぶん、B7:B13 に入っている式は「正しい」
でも、入力画面!C16からはじまる元ネタは人間が入力しているので、空白のつもりでも、半角スペースや全角スペースがあるのかも。
そうすると、=IF(入力画面!C16="","",入力画面!C16)　で、「空白じゃないので」その「スペース」という値をセットする。
一方、アップしたコードは、「空白かどうか」をきいていて、スペースは空白じゃないので非表示にならない。

 この想像が当たっていれば、上でお願いした =Len(B10)が「0」じゃないはず。

 で、こうだった場合の対応策は
１．ちゃんと空白にしてもらう。でも、これは困難かな？見た目わからないからね。
２．空白なら非表示とするのではなく、何かマークをきめておいて、たとえば"○"なら表示というふうに変更する。
３． If Len(c.Value) = 0 Then c.EntireRow.Hidden = True
　　これを
    If Len(Trim(c.Value)) = 0 Then c.EntireRow.Hidden = True
    に変更する。

 とりあえず、３．でいきますか？

 (ぶらっと)

 やっと③をチャレンジしてみました。
 でも、やはりダメでした。
 何かが邪魔してるのだと思います。
 やはり初心者レベルの私には無理があったのかと・・・

 ぶらっとさま
 ありがとうございました。
 もう少し整理して、またチャレンジしてみます。

コメント返信：

[ 一覧(最新更新順) ]

[[20110815153817]] 『１つのシートで２種類のオートフィルタをマクロで』（ＡＫＯ） ページの最後に飛ぶ

[[20110815153817]]　『１つのシートで２種類のオートフィルタをマクロで』（ＡＫＯ）　ページの最後に飛ぶ