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
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
お探しの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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBAで質問があります
Visual Basic(VBA)
-
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
Visual Basic(VBA)
-
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
-
4
引数に数値、文字列の混在
Visual Basic(VBA)
-
5
【VBA】カーソルのある行の1行目のセルをコピペし,最後にそのセルに戻る方法
Visual Basic(VBA)
-
6
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
7
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
8
excel VBA文字化け
Excel(エクセル)
-
9
ExcelVBAコードについて
Visual Basic(VBA)
-
10
ファイル名の日付について教えて頂けますかExcel
Visual Basic(VBA)
-
11
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
12
VBA
Visual Basic(VBA)
-
13
マクロについて質問です。 セルの内容をクリアするコマンドボタン(AX) を作成しました。 指定範囲が
Visual Basic(VBA)
-
14
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
15
Excel VBAで値を変えながら、pdf出力したい
Visual Basic(VBA)
-
16
エクセルファイルのデータ転記について
Visual Basic(VBA)
-
17
配列のペースト出力結果の書式について
Visual Basic(VBA)
-
18
Excel関数またはVBAでの質問になります
Visual Basic(VBA)
-
19
VBA(えくせる)ってなんでメンテできない人が多いんですか?
Excel(エクセル)
-
20
10行目にフィルターを使用して見出しがあります。列はA:DFで11行目以降(2000行ぐらい)はデー
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DataGridViewでyyyy/MM/dd
-
エクセルのVBAで日付を検索し転...
-
コンボボックスに日付を表示する
-
ユーザーフォームのラベルに日...
-
【Excel VBA】条件に合った行の...
-
今日より前の書き方 マクロ
-
DataGridViewの和暦表示について
-
DateTimePickerを西暦表示にす...
-
システム日付とは?
-
VBA 日付、未来の日付はエラー...
-
Eclipseの対応する括弧の強調表...
-
C#で日付をdateTimePickerに読...
-
今週は第何週ですか?
-
テキストボックスにカレンダー...
-
3人のじゃんけんのプログラム
-
VBAのvalueとvalue2の違いに...
-
テキストボックスに今日の日付...
-
VBAで当月の1日を表示するには...
-
防衛機制の種類を教えてくださ...
-
SqlCommandBuilder 使用時のサ...
マンスリーランキングこのカテゴリの人気マンスリー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 メソ...
おすすめ情報