No.3ベストアンサー
- 回答日時:
こんばんは。
'標準モジュールが良いです。
Sub Test1()
Dim myDate As Long
Dim i As Variant
myDate = Date
i = Application.Match(myDate, Range("A:A"), 0)
If IsError(i) Then
MsgBox "本日の" & Format$(myDate, "yy/MM/dd") & "が見つかりません。", 48
Exit Sub
End If
On Error Resume Next
'B列に対して(かならず、1行目から行うこと)
With Range("B1").Resize(i).SpecialCells(xlCellTypeBlanks)
If Err.Number > 0 Then
MsgBox "非表示にすべきセルが見つかりません!", 48
Exit Sub
Else
.EntireRow.Hidden = True 'True 非表示
MsgBox .Cells.Count & "行が非表示になっています。", 64
End If
End With
On Error GoTo 0
End Sub
メッセージ等が不必要でしたら、その部分は削除してください。
No.2
- 回答日時:
Sub test01()
Dim cl As Range
Range("B2:B100").SpecialCells(xlCellTypeBlanks).Select
For Each cl In Selection
r = cl.Row
'MsgBox r
Rows(r).EntireRow.Hidden = True
Next
End Sub
--
SpecialCells(xlCellTypeBlanks).Select
を使うところがミソか
1つづつB列のセルを空白か聞いていっても出来るが。
早速のご回答ありがとうございます。
A列の日付が本日まで、というところでちょっと躓いています。
お知恵を拝借できるとありがたいのですが・・・
No.1
- 回答日時:
「EXCEL VBA」と明示してあるので
>何かいい方法はないでしょうか?
は「丸投げでお願いします」ということですね。 ご自身はトライされましたか。どこでつまづきましたか? それがないと身に付きませんよ。
A列の日付が昇順になっているのか、ランダムなのかも書かれていないので、ランダムと見なします。また空白とは「式も何も入力されていないセル」と見なします。マクロサンプルを書きますから条件が違うならご自身で修正してください。
Sub Macro1()
Dim r, trg As Range
Set trg = Range("B1", Range("A1").End(xlUp).Offset(0, 1))
For Each r In trg.SpecialCells(xlCellTypeBlanks)
If IsDate(r.Offset(0, -1)) Then
If r.Offset(0, -1) <= Date Then
r.EntireRow.Hidden = True
End If
End If
Next r
End Sub
早速のご回答ありがとうございます。
自分の求めているとおりのご回答でありがたく思います。
残念ながら実行してみると、 If IsDate(r.Offset(0, -1)) Then のところで、実行時エラー'1004'アプリケーション定義またはオブジェクト定義のエラーです、の表示が出ます。
ただし、結果はきちんとB列が空白の行が非表示になります。
これは、どこが悪いのでしょうか?
ついでに、自分なりに考えたのはJ列に作業列を作って、日付が今日以前の場合は"0"、明日以降の場合は"1"を表示させて、Bが空白でJが"0"の場合に非表示にしたら良いのでは?ということでトライしていました。
大変すっきりしたコードで感心しています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) エクセルの関数で質問です。 3 2023/02/24 14:07
- Visual Basic(VBA) 範囲を指定して別シートにコピペ 2 2022/09/15 07:32
- Excel(エクセル) 列の複数ある空白セルを飛ばして、セルに並べて表示したい 3 2023/02/12 16:49
- Excel(エクセル) 条件付き書式 ある範囲で色がついているセルと同行の別のセルに色を付けたい 4 2022/04/20 07:04
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) excel 表計算 加算するセルが空白の時累計を表示しない又は塗りつぶして表示しないようにしたい 4 2023/07/02 11:50
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
特定のセルが空白の行を非表示にするマクロについて
Excel(エクセル)
-
エクセル~空白のセルのある行を非表示に。
Excel(エクセル)
-
-
4
エクセルで特定の列が0表示の場合、その行を非表示にしたい
Excel(エクセル)
-
5
EXCELマクロで、ある列の値が0の場合、非表示/表示ボタンで該当列を非表示切り替えしたいんです。
Excel(エクセル)
-
6
エクセルで特定の文字列が入った行を非表示にしたい
Excel(エクセル)
-
7
エクセルでセルが空白だったらその行を表示させない方法を教えてください。
Excel(エクセル)
-
8
セルの値が0はクリアするマクロ
Excel(エクセル)
-
9
エクセルで特定の値を含む列のみVBAで非表示にしたい
Excel(エクセル)
-
10
エクセルで空白行を削除する 2列とも空白の場合のみ
その他(Microsoft Office)
-
11
エクセルのマクロで、選択範囲の空白行を削除する方法
Excel(エクセル)
-
12
エクセルVBAのEntireRow.Hiddenをスピードアップしたいのですが・・・。
Excel(エクセル)
-
13
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
14
列から特定の文字列検索→該当以外の「行」隠すマクロ
その他(Microsoft Office)
-
15
条件に応じて特定の行を非表示にしたい
Excel(エクセル)
-
16
【VBA】全て空白のセルの列の非表示
Excel(エクセル)
-
17
数式の結果が空白の時の空白扱い
Excel(エクセル)
-
18
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
19
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
20
空白セル内の数式を残したままで空白セル扱いとしたいのですが
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル 指定した文字列を含...
-
EXCEL VBA 指定範囲内で特定の...
-
エクセルで同じ名前ごとの合計...
-
桁数が混在する並び替えの方法
-
エクセルの関数SUBSTITUTEを、...
-
EXCELである列を上から順にチェ...
-
Excelで自動的に並べ替えなんて...
-
エクセルで一部除外した数字を...
-
エクセルで列内の同じIDの商品...
-
エクセルVBA Unionはなぜ遅い?
-
パソコンで簡易検索を作るには
-
EXCEL 指定した曜日に番号を振...
-
Excelで数値→文字列変換で指数...
-
テキストボックス内の文字のふ...
-
Excelで行ごとコピー、同じ行を...
-
エクセルにおける、グラフの指...
-
Excelの関数について、特定の文...
-
エクセルでグラフタイトルが折...
-
エクセル 入力中に表示されな...
-
C+vのvは英語で何の頭文字...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル 指定した文字列を含...
-
エクセルで同じ名前ごとの合計...
-
エクセルの関数SUBSTITUTEを、...
-
エクセルVBA Unionはなぜ遅い?
-
桁数が混在する並び替えの方法
-
EXCEL VBA 指定範囲内で特定の...
-
エクセルで一部除外した数字を...
-
エクセルで列内の同じIDの商品...
-
Excelで自動的に並べ替えなんて...
-
エクセル マクロで列を連続し...
-
エクセルvba 一つ上の行を指定...
-
EXCELである列を上から順にチェ...
-
EXCEL 指定した曜日に番号を振...
-
エクセルで2列を検索し2列とも...
-
エクセル 並び替え
-
ExcelVBA:列方向の並び替え O...
-
アクティブセルのある行の任意...
-
エクセル VLOOKUPが反映されない
-
オートフィルについて(急ぎ!)
-
VBA マクロの組み方
おすすめ情報