No.1
- 回答日時:
こんばんは
こんな感じでしょうか?
Dim d, v, rw As Long
d = Int(Now() - 13)
For rw = 2 To Cells(Rows.Count, 2).End(xlUp).Row
v = Cells(rw, 2).Value
If IsDate(v) And v < d Then Rows(rw).Hidden = True
Next rw
※ すでに非表示になっている行は、条件外でも表示にはしません。
>自動で(エクセルを開いたら)非表示にしたいです
Workbook_Open() に登録してください。
回答ありがとうございますm(__)m
一応動きましたが毎回開くたびに非表示状態でも
同じ動きをする感じですかね?
10秒以上動かなくなりますね(;^_^A
No.2ベストアンサー
- 回答日時:
No1です。
>10秒以上動かなくなりますね
シートの使用行数が非常に多いのか、マシンの性能がかなり低いかのどちらかだと推測します。
多少速くするなら、こんな感じでしょうか。
Dim d, v, u As Range, rw As Long
d = Int(Now() - 13)
v = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)).Value
For rw = 2 To UBound(v)
If IsDate(v(rw, 1)) And v(rw, 1) < d Then _
If u Is Nothing Then Set u = Rows(rw) Else Set u = Union(Rows(rw), u)
Next rw
If Not u Is Nothing Then u.EntireRow.Hidden = True
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Visual Basic(VBA) 【Excel VBA】条件に合った行の表示・非表示を行う方法 3 2023/03/18 12:31
- Excel(エクセル) 【マクロ】リボン、行列、数式・ステータスバを非表示に 4 2022/12/12 07:32
- Visual Basic(VBA) VBAで列の再表示設定 1 2023/04/25 10:19
- Excel(エクセル) エクセル 該当行だけを表示したい。 削除でもいいし、非表示でもいいです。 手動でひひょうじにするので 6 2024/01/26 14:38
- Visual Basic(VBA) ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面 3 2023/12/14 16:10
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- その他(悩み相談・人生相談) 先日iOS16が実装され、写真の非表示の項目がロックできるようになりました。 自分はアニメの写真など 2 2022/09/14 16:24
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで質問があります
Visual Basic(VBA)
-
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
Visual Basic(VBA)
-
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
-
4
【VBA】カーソルのある行の1行目のセルをコピペし,最後にそのセルに戻る方法
Visual Basic(VBA)
-
5
引数に数値、文字列の混在
Visual Basic(VBA)
-
6
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
7
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
8
ExcelVBAコードについて
Visual Basic(VBA)
-
9
excel VBA文字化け
Excel(エクセル)
-
10
ファイル名の日付について教えて頂けますかExcel
Visual Basic(VBA)
-
11
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
12
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
13
VBA
Visual Basic(VBA)
-
14
Excel VBAで値を変えながら、pdf出力したい
Visual Basic(VBA)
-
15
マクロについて質問です。 セルの内容をクリアするコマンドボタン(AX) を作成しました。 指定範囲が
Visual Basic(VBA)
-
16
エクセルファイルのデータ転記について
Visual Basic(VBA)
-
17
VBA(えくせる)ってなんでメンテできない人が多いんですか?
Excel(エクセル)
-
18
Excel関数またはVBAでの質問になります
Visual Basic(VBA)
-
19
Excel VBA 文字列のセルを反映させたいです
Visual Basic(VBA)
-
20
配列のペースト出力結果の書式について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
エクセルのVBAで日付を検索し転...
-
コンボボックスに日付を表示する
-
DataGridViewでyyyy/MM/dd
-
日時の表示の仕方
-
JSPからYYYYMMDDで日付入力する
-
<Access>2つの抽出条件が合致...
-
テキストボックスにカレンダー...
-
Eclipseの対応する括弧の強調表...
-
VisualBasic6.0のFormat関数で...
-
エクセルのユーザーフォームに...
-
エクセルVBAで機械の稼働時間を...
-
今日より前の書き方 マクロ
-
【VBA】土日をスキップして日付...
-
日付が近い順に表示
-
「eclipseで作るカレンダー(ス...
-
VBで時間計算
-
VBA 日付、未来の日付はエラー...
-
日報の時間計算
-
VB 日付範囲チェック
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Eclipseの対応する括弧の強調表...
-
ユーザーフォームのラベルに日...
-
VBAの質問になります 行の非表示
-
エクセルのVBAで日付を検索し転...
-
VisualBasic6.0のFormat関数で...
-
DataGridViewでyyyy/MM/dd
-
3人のじゃんけんのプログラム
-
システム日付とは?
-
コンボボックスに日付を表示する
-
今日より前の書き方 マクロ
-
【VBA】土日をスキップして日付...
-
エクセルVBAで機械の稼働時間を...
-
VBA 日付、未来の日付はエラー...
-
DataGridViewの和暦表示について
-
VBAで当月の1日を表示するには...
-
「eclipseで作るカレンダー(ス...
-
テキストボックスにカレンダー...
-
ExcelVBAでSQLサーバの日付時刻...
-
【Excel VBA】条件に合った行の...
-
VBAのapplication.ontime メソ...
おすすめ情報