![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4
- 回答日時:
No3です
>SpecialCells(xlCellTypeBlanks)
関数のCOUNTBLANCとは異なり、SpecialCellsだと計算式で空白になっているセルは含まれないようです。
対象範囲を順に空白(="")か否かをチェックするのが地道ですが簡単な方法かと。
なお、ご質問には、関係ありませんが、
>If [Counta(j3:j300)] < 300 Then
仮に全部が該当しても、298 < 300 なので、その条件がFalseになることはないので、意味のない条件判断になっています。
以下は、範囲を順にチェックする例です
For Each c In Range("j3:j300")
If c.Value = "" Then c.EntireRow.Hidden = True
Next c
事前に全ての行が表示されているとは限らない場合は、
For Each c In Range("j3:j300")
c.EntireRow.Hidden = (c.Value = "")
Next c
※ 上の例では1行ずつ処理していますので若干時間がかかります。
(と言っても、問題にはならないと思いますが…)
仕分けだけ先に行ってUNIONなどでまとめておいて、全部の表示処理をまとめて行うようにすれば、それなりに速くなるはずです。
ありがとうございます!…しかしダメでした他の列で試したら動作してくれるのですが判定の対象になってる列に対して行うと無反応です。
その方法は数式が入ってるセルには無効のようです。
No.3
- 回答日時:
こんにちは
>空白なら空白扱いにするにはどうしたらいいでしょうか
普通にCOUNTBLANKなどで数えれば空白扱いされるはずです。
逆に、どうやって「非空白」扱いと判断しているのかが不明なのですけれど・・・
>VBAでボタンを押すと~~
VBAで行っているのなら、そちらの空白判定のロジックを修正すれば良いだけでしょう。
(現状が不明ですが、COUNTBLANKでも良いしVALUEやTEXT値を調べても良い)
もしかして、質問者様は「空白」としているけれど、セルにスペース等が入っていて、(見えないので)空白だと思っているだけといった可能性はないでしょうか?
そんなことも考慮しておくなら、空白かどうか調べる前に、スペースや改行などを除いてから判定する方が良いかも知れませんね。
回答ありがとうございます。
もともとはこんなマクロでした。
Sub 空白行を非表示()
If [Counta(j3:j300)] < 300 Then
Range("J3:J300").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End If
End Sub
>VBAで行っているのなら、そちらの空白判定のロジックを修正すれば良いだけでしょう。
まだ初心者なので他で使われている物を編集して使用している感じです。
>もしかして、質問者様は「空白」としているけれど、セルにスペース等が入っていて、(見えないので)空白だと思っているだけといった可能性はないでしょうか?
セルは空白でしたリンク貼り付けによるアドレスが数式バーに入力されてるだけのように見えますがもしかして他の原因ですか…?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】甲子園での思い出の残し方
「球場の砂を持って帰る」はもう古いと思った高校球児が、甲子園で負けた際に、思い出に残そうと思って行ったこと
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
Excelで数式の入っているセルを空白と認識させたい
Excel(エクセル)
-
空白セル内の数式を残したままで空白セル扱いとしたいのですが
Excel(エクセル)
-
-
4
数式による空白を無視して最終行までコピーするマクロ
Excel(エクセル)
-
5
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
6
EXCELの条件付き書式で数式を空白と認識してくれる方法
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
10
ExcelVBAで、数式を含むセルを値貼り付けしたセルをCountAで取得すると空白と認識されない
Excel(エクセル)
-
11
EXCEL VBA 指定範囲内で特定の列に空白セルを含む行を非表示
Excel(エクセル)
-
12
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
13
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
14
[Excel] ファイル名を変数指定して保存するマクロ
Excel(エクセル)
-
15
別のシートから値を取得するとき
Visual Basic(VBA)
-
16
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
17
条件に応じて特定の行を非表示にしたい
Excel(エクセル)
-
18
空白を0とみなす関数
Excel(エクセル)
-
19
【Excel マクロ】関数での空白を無視して最終行を取得
Excel(エクセル)
-
20
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
Excel > ピボットテーブル「(空...
-
エクセルでCSVを編集するとき、...
-
関数TRANSPOSEで空白セルを0に...
-
エクセルで上の行の値を自動的...
-
「データ要素を線で結ぶ」がチ...
-
数式による空白を無視して最終...
-
《Excel2000》SUMPRODUCT関数で...
-
エクセル VLOOKUP関数 日付は日...
-
色つき行の一括削除は?
-
リンクされているセルを空白と...
-
空白セル内の数式を残したまま...
-
SUMPRODUCT関数のエラー
-
ピボットテーブルで空白セルの...
-
EXCEL ピボット集計表の (空白...
-
空白セルがないのにオートフィ...
-
Excelで、入力文字の後に自動で...
-
Excel:関数が入っているセルに...
-
エクセル&メモ帳での改行の空...
-
SUMIFS関数で「計算式による空...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
関数TRANSPOSEで空白セルを0に...
-
数式による空白を無視して最終...
-
エクセルでCSVを編集するとき、...
-
ピボットテーブルで空白セルの...
-
excel2010 空白セルにのみ貼り...
-
「データ要素を線で結ぶ」がチ...
-
Excel > ピボットテーブル「(空...
-
エクセル 連番が途切れていると...
-
Excel:関数が入っているセルに...
-
色つき行の一括削除は?
-
Excelで、入力文字の後に自動で...
-
空白セル内の数式を残したまま...
-
エクセルで上の行の値を自動的...
-
《Excel2000》SUMPRODUCT関数で...
-
SUMIFS関数で「計算式による空...
-
エクセルで、「複数のセルの中...
-
形式貼り付けの「空白を無視す...
-
エクセルのグラフで式や文字列...
-
【Excel】 Ctrl+方向キー で空...
おすすめ情報