- ベストアンサー
ExcelVBAでの空白セルの判断方法
Wendy02の回答
- Wendy02
- ベストアンサー率57% (3570/6232)
こんにちは。 >ExcelのVBAでセルに文字（数字又は文字）が書かれているかの判断に”Empty”を使用していますが、 たぶん、ご質問が正確に伝わっていないようです。 Cells(1,1).Value =Empty を判定に使っているということでしょうか？コードを見せないと良く分かりません。 If Cells(1,1).Value ="" '長さ0の文字列 は、Cells(1,1).Value =Empty と同じ判定です。 通常は、 IsEmpty(Cells(1,1)) などとしますが、 VarType(ActiveCell) = vbEmpty という方法もあります。 >本当に文字だけ書かれているかどうかを判別する方法はないでしょうか、 その場合は、 VarType(ActiveCell) = vbString を使用します。なお、IsNumeric では、文字列の数字なのかは判定出来ません。 なお、場合によっては、Rangeオブジェクトは、Valueプロパティを加えてください。
関連するQ&A
- ＶＢＡ スペースが入力されていても、空白セルと判断する方法
VBAで、空白ではないときに処理するようなマクロを組みたいのですが、空白のはずのセルにスペースが入っている場合があり、 IF cells(i,j)<>empty then のような記述では、スペースが入力されているセルも該当してしまいます。 スペースのみのセルを消去するか、それか、数値か文字列の何かが入力されていることを判断するような方法はありますか？ よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 空白と空白じゃないセルを判断するには？
いつもお世話になっております。 条件により別のセルへ文字列を入力するという物を組みたいのですが、あてはめるべき表現の仕方がわからなくて困っております。 例で申しますと、 Ｄ列とＥ列に文字列が入っていたり空白だったりするセルが存在します。 条件は 「Ｄ列に何かしらの文字列が入っていて（特に決まった形が無い）、Ｅ列は空白の時だけ、Ｆ列へ「■」と入力し、Ｇ列は空白とする。」 「それ以外の条件はすべて、Ｆ列は空白、Ｇ列には「□」と入力する」 と、いうようにしたいのですが、空白は Dim i As Long For i = 3 To Range("B65536").End(xlUp).Row If Range("D" & i).Value = "" Then のように表現すればよいのかと思ったのですが、 「空白ではない」場合の条件をどのようにすればよいのかわかりません。（その為、全文を作る段階へ進めておりません。） ｜Ｄ｜Ｅ｜Ｆ｜Ｇ １｜あ｜ ｜■｜ ２｜あ｜え｜ ｜□ ３｜ ｜か｜ ｜□ ４｜ ｜ ｜ ｜□ 「空白ではない」と判断するコードの書き方をお教えいただきたく、よろしくお願いいたします。 環境はWindowsXP、Excel2003です。
- ベストアンサー
- Visual Basic
- 空白セルの記述方法
Excel VBAで日付データがA列、通貨データがB列にあるとして シート１のセル(A:1)、セル(B:2)が空白セルとして条件式を作りたいのですが記述方法はどのようになりますか? 下記でよろしいでしょうか? If CDate(sheet1.cell(A:1).value) = Empty then If CCur(sheet1.cell(B:1).value) = Empty then
- ベストアンサー
- Visual Basic
- エクセルで空白セルを寄せたい
エクセル２００２使用です ＶＢＡは使わずに関数だけで空白セルがあるセルを詰めて表示したいのですが・・・ Ａ｜Ｂ｜Ｃ｜Ｄ｜Ｅ｜Ｆ｜Ｇ １ あ い う え お か き ２ ○ ○ ○ ○ の表を Ａ｜Ｂ｜Ｃ｜Ｄ｜Ｅ｜Ｆ｜Ｇ １ あ う え か ２ ○ ○ ○ ○ のように表を書き換えたいのです。 1行目には必ず文字が入力されています。 2行目には入力されているセルと空白セルが不定期に入力されています。 2行目のセルが空白ならば、1行目のセルも削除して左へ詰めて 表を転記したいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ExcelVBA 赤字のセルを黄色で塗りつぶす
Excel VBA初心者です。 赤いフォントの数字と黒いフォントの数字を使って表を作ります。（空白のセルも有） 列（C～Y) 行(5～1000) 赤いフォントで数字を入力したら、自動的にセルが黄色で塗りつぶされるようにしたいのですが どうしたらいいでしょうか？回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 空白セルにハイフンを表示
エクセル2010です。 ある表の空白のセルに常にハイフンを表示させておき、数字や文字を入力するとハイフンが消えて、その文字が表示されるという設定や数式はあるのでしょうか。 もしも分かる方がいらっしゃいましたら、ご教示いただけないでしょうか。
- ベストアンサー
- Excel（エクセル）
- countaで空白セルもカウントされてしまう
エクセル2003で、counta関数を使って何かが入力されているセルの数を数えているのですが、 何も入力されていないセルまでカウントされてしまいます。 その何も入力されていないように見えるセルは、スペースもなにも入力されておらず、 そのセルの上でDelキーを押すと、そのセルはカウントされなくなります。 空白に見えるセルをDelキー押していけばいいのですが、空白に見えるセルが大量にあるので、１つ１つDelキーを押していくのは大変です。 空白に見えるセルをカウントしないようにする方法ありますでしょうか？
- ベストアンサー
- Excel（エクセル）
- エクセルＶＢＡで セルの空白を識別する
早速ですが IF Application.ISBLANK(Q17)=TRUE Then って やると Q17 が 未定義エラーとなります。 セルに書き込む関数と ＶＢＡとは 異なるらしいのですが・・・イマイチでして。 ＶＢで使う ISNULLも 変数しか 受付ないようですので、一旦 tanka=cells(3,17) isnull(tanka) とやるようです。 ＶＢＡから 空白を 識別する方法は無いものでしょうか 厳密には 未入力 DELE SPACE すべて 空白でいいのですが 数字のゼロに 置き換えると ゼロの時に おかしくなりそうで・・・
- ベストアンサー
- Visual Basic
- セルを空白にしたら「０（ゼロ）」を表記させる方法
セルを空白にしたら「０（ゼロ）」を表記させる方法の質問です。 「Ｆ５～Ｆ３８」「Ｈ５～Ｈ３８」「Ｊ５～Ｊ３８」「Ｌ５～Ｌ３８」「Ｎ５～Ｎ３８」「Ｐ５～Ｐ３８」「Ｒ５～Ｒ３８」「Ｄ６～Ｄ３８」「Ｅ５～Ｅ３６」「Ｔ５～Ｔ３６」「Ｕ５～Ｕ３８」の範囲のセルに数字や文字を入力します。 上記範囲のセルに入力した数字や文字を消して、空白表示にした場合は自動で「０（ゼロ）」と表記させる方法はあるのでしょうか？
- ベストアンサー
- Excel（エクセル）
お礼
早々にありがとうございました。 VarType(ActiveCell) = vbEmptyはEmptyと同じになります。 LemとTrimでうまくいきました。