[[20080718132424]]　『オートフィルターを使った印刷』（とっちゃん）　ページの最後に飛ぶ

『オートフィルターを使った印刷』（とっちゃん）

 一覧表をオートフィルターを使って印刷しようと思っています。
その際に、一覧表外に記入されたオートフィルターのリスト名を使って、オートフィルターで選択するというマクロを教えていただけませんか？

 一覧表のレイアウトが不明です。

 業者番号　業者名　品名　金額　　　　　　　　
 　1        A社　　もも　　100　　　　　
 　1　　　　A社　　りんご　120
　 2　　　　B社　　すいか　300　　　
 　2　　　　B社　　もも　　120

 これを業者番号でオートフィルターをかけると

               業者番号　2

 業者番号　業者名　品名　金額　
　　
 　2　　　　B社　　すいか　300
 　2　　　　B社　　もも　　120
 　2　　　　B社　　もも　　120

 たとえば、業者番号2を入力して、マクロボタンを押すことにより、
 オートフィルターで[2]を選択する。ということなんです。（とっちゃん）
 表示されたものを見ると行がバラバラになっています。どうして良いのか分かりません（とっちゃん）

 > 表示されたものを見ると行がバラバラになっています。どうして良いのか分かりません

 ←ココに半角スペースを入れると、うまく表示出来ます。
 整形しておきました。
　
（純丸）(o^-')b

純丸様　了解しました。有難うございます。皆様よろしくお願いします。（とっちゃん）

 このようなことでしょうか?
 データリストがA1:D10　業者番号がG1に入力されているとき、オートフィルタで抽出します。
 　　(Hatch)
Sub Macro1()
    Dim l As Long
    Dim d As Range, s As Integer
    l = Cells(Rows.Count, 1).End(xlUp).Row
    Set d = Range("A1:D" & l)
        If IsNumeric(Range("G1").Value) Then
            s = Range("G1").Value
        Else
            d.AutoFilter
            MsgBox "G1セルは数値を入力してね･･･"
            Exit Sub
        End If
        d.AutoFilter Field:=1, Criteria1:=s
End Sub

やりたかったことを実現して頂き、有難うございました。もう一点欲を言ってよろしいでしょうか。G1セルに数値を記入した後、エンターキーを押すことでマクロを実行することは出来ないでしょうか？マクロはマクロの記録でしかできない者です。よろしくお願いします。（とっちゃん）

 こんな感じで・・・　(Hatch)
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim l As Long
    Dim d As Range, s As Integer
    If Target.Address() <> "$G$1" Then Exit Sub
    l = Cells(Rows.Count, 1).End(xlUp).Row
    Set d = Range("A1:D" & l)
        If IsNumeric(Target.Value) Then
            s = Target.Value
            d.AutoFilter Field:=1, Criteria1:=s
        Else
            d.AutoFilter
            MsgBox "G1セルは数値を入力してね･･･"
        End If
End Sub

Private Sub Worksheet　というものは、標準モジュールに貼り付けて良いのでしょうか？よく分かっていなくてすみません。

 そのマクロを実行したいシート名を右クリック＞コードの表示
で現れる「シートモジュール」にコードを記載します。
　
(みやほりん)(-_∂)b

(Hatch)様、(みやほりん)様　有難うございました。これを加工させて頂き、みんなで使わせて頂きます。本当に有難うございました。（とっちゃん）

コメント返信：

[ 一覧(最新更新順) ]

[[20080718132424]] 『オートフィルターを使った印刷』（とっちゃん） ページの最後に飛ぶ

[[20080718132424]]　『オートフィルターを使った印刷』（とっちゃん）　ページの最後に飛ぶ