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

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

[[20130618200543]]: #score: 4241; @digest: 44c7ba06d33b3f0dfd0116fac7f41d5b; @id: 62695; @mdate: 2013-06-19T12:14:22Z; @size: 3559; @type: text/plain; #keywords: 日幸 (22494), 日ド (20163), パ6 (15241), ツ6 (15209), 送日 (9987), 日レ (8505), 月18 (7350), 前6 (5812), 発送 (5574), ッツ (4449), タ設 (4445), ドー (4329), ン6 (4235), ナッ (4067), 日"" (3967), 月"" (3779), usamiyu (3694), mydate (3565), 日名 (3552), ルタ (2905), レモ (2827), ーナ (2809), ッパ (2631), フィ (2433), 月19 (2431), ィル (2315), autofilter (2275), 今日 (2192), 当日 (1711), モン (1580), トフ (1544), field (1478); 『オートフィルタを一発でやり遂げる』（ゆらん）
D列に発送日 E列に名前 D2から下に発送日が入力されます。その発送日を毎日当日分だけフィルタをかけてコピーして別のブックに貼り付けます。最近当日分だけフィルタをかけるのが手間になってきました。ざっくりした感じだとこのようなモノです。 D E 発送日名前 6月18日ドーナッツ 6月2日レモン 6月17日みんな取り消しファイト 6月5日青い空保留ラッパ 6月18日幸せ 6月19日ドーナッツ 6月19日レモン 6月15日みんな待ちファイト待ち青い空待ちラッパ 6月5日幸せこれをボタンひとつでこうなって発送日名前 6月18日ドーナッツ 6月18日幸せボタンひとつで元に戻せたらいいのに...とズボラなことを思いはじめています。 オートフィルタを面倒くさがるなんて...ですけど、よろしくお願いします。 WindowsXP Excel2007 ---- 今やっている、そのままをマクロ記録してみた? (ぶらっと) ---- フィルタオプションで検索条件にTODAY関数を入れておくというのは如何でしょうか? 指定したセルに検索結果を出すようにしておけば元のリストはいじりませんし。 (コナミ) ---- 日付はシリアル値で、表示形式で6月18日となっているとして、マクロの記録をとってみました。 (usamiyu) するとこんな風になりますね。 Sub Macro3() ' Macro3 Macro ' マクロ記録日 : 2013/6/18 Columns("D:D").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="6月18日" Range("D2").Select End Sub ということは、引数Criteriaにはセルの表示形式のとおりの日付を文字列で指定する必要ありってことですよね。で、当日の日付を得る関数はVBAではDateになるので、Dateで求めた日付をセルの表示形式のようにしてあげればいいんじゃないかなぁ。次のようにしてみるとどうでしょう。 Sub オートフィルタをかける() Dim myDate As String myDate = Format(Date, "m""月""dd""日""") Range("D1").AutoFilter Field:=1, Criteria1:=myDate 'Fieldはリストの左端から数えた番号 End Sub Sub オートフィルタを解除する() Range("D1").AutoFilter End Sub ---- 2007ですと、日付フィルタの中に「今日」という項目がありますので、ユーザー設定のビューなども如何でしょうか? 今日でフィルタした状態で、表示タブ→ユーザー設定のビュー→追加ボタン→お好きな名前を付ける→OK これでフィルタの条件が登録されましたので、次の日になったら、再度ユーザー設定のビューを選択し、登録している名前をクリックすれば、今日の日付でフィルタされます。 オートフィルタをクリアするときはフィルタボタンの横のクリアで。（コナミ） ---- 2007以降だと「今日」っていうフィルタがあるんですね。いいなぁ。色フィルタもあるみたいですし。あとで2010が入っている別PCで見てみようっと。ところで自分のコメント、ひとつのプロシージャにまとめてみました。現在選択しているシートがオートフィルタ設定してなければ、今日の日付でフィルタ、してあれば オートフィルタ解除します。これをボタン登録するとどうかな。 Sub オートフィルタ設定解除() Dim myDate As String If ActiveSheet.AutoFilterMode = False Then myDate = Format(Date, "m""月""dd""日""") Range("D1").AutoFilter Field:=1, Criteria1:=myDate 'Fieldはリストの左端から数えた番号 Else Range("D1").AutoFilter End If End Sub (usamiyu) ---- ありがとうございます。実は「今日」というフィルタがあるのを...今日発見しました。これで全然OKです。今まで数ある日付の中から今日の日付を探してフィルタをかけていたのでそれに比べてずいぶん早く出来ました。ぶらっとさまコナミさま usamiyuさまお礼が遅くなりましたが、とても参考になりました。ところでコードも書いていただいておりますのでぜひともそちらも参考にさせてください。ありがとうございました。ゆらん ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201306/20130618200543.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ