|
|
|
2017.12.11
カテゴリ：マクロ
Sub filter(filter_area) '引数＝フィルタ範囲（例："A1:B9"） 'A1：A9セルにフィルターをかけ、1行目にその日の日付で絞り込みをかける Dim date_today date_today = RTrim(Date) 'フィルター範囲の設定 + 絞り込み ActiveSheet.Range(filter_area).AutoFilter Field:=1, Criteria1:=date_today Debug.Print date_today End Sub
お気に入りの記事を「いいね！」で応援しよう
最終更新日
2017.12.11 00:28:38
コメント(0) | コメントを書く
[マクロ] カテゴリの最新記事
|
