エクセルの学校：全文検索：Hyper Estraier：オートフィルタ

Results of 1 - 1 of about 4267 for オートフィルタ (0.004 sec.)

[[20080718132424]]: #score: 4240; @digest: 3aff6573ad7e8976539ef29734cb8404; @id: 39161; @mdate: 2008-07-19T21:02:23Z; @size: 2990; @type: text/plain; #keywords: 者番 (15478), 号業 (10312), 様了 (5863), 業者 (4974), 社も (4052), 名品 (3214), ・" (2328), 名金 (2313), 号2 (1925), も12 (1874), バラ (1520), autofilter (1516), 丸様 (1438), トフ (1351), 者名 (1156), オー (1154), isnumeric (1078), 覧表 (1056), ラバ (1026), ルタ (967), criteria1 (961), フィ (811), ター (773), ィル (771), 額2 (748), 有難 (704), 了解 (662), 番号 (602), 純丸 (574), 一覧 (561), hatch (543), target (487); 『オートフィルターを使った印刷』（とっちゃん）
一覧表をオートフィルターを使って印刷しようと思っています。その際に、一覧表外に記入されたオートフィルターのリスト名を使って、オートフィルターで選択するというマクロを教えていただけませんか? ---- 一覧表のレイアウトが不明です。業者番号業者名品名金額 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)様、(みやほりん)様有難うございました。これを加工させて頂き、みんなで使わせて頂きます。本当に有難うございました。（とっちゃん） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200807/20080718132424.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ