質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.59%

Excel VBA 0と空白の比較

解決済

回答 5

投稿

  • 評価
  • クリップ 0
  • VIEW 11K+

nuko3

score 28

 前提・実現したいこと

Excelで表を作り、VBAで比較を行うようにしたいのですが、0と空白セルの比較が同じになり、比較がうまくいきません。
例1か例2に1以上の数字があったら空の判定は出来るのですが、どちらかに0があると空の判定が出来ません。。
どちらかに空のセルがあったら判定が空にしたいです。
理想形↓

列1 列2 判定
1 1
1 2
1  
0  

 該当のソースコード

If (Cells(ii, 1).Value = Cells(ii, 2).Value) Then
 Cells(ii, 3).Value = "正"
 ElseIf (Cells(ii, 1).Value = Empty) Or (Cells(ii, 2).Value = Empty) Then
    Cells(ii, 3).Value = "空"
 Else
    Cells(ii, 3).Value = "誤"
  End If


結果

列1 列2 判定
1 1
1 2
1  
0  

 試したこと

空白の比較などを調べてみて.Value = ""、.HasFormula、.Formula = ""などを試してみましたが、同じでした。

 補足情報(FW/ツールのバージョンなど)

Excel 2016

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • takasima20

    2018/11/05 16:28

    (チェックの順番的な意味で)最初に empty を確認したら?

    キャンセル

  • nuko3

    2018/11/05 17:22

    確認の順番を変えるという方法は試していませんでした...これが正解でした。ありがとうございます。

    キャンセル

回答 5

+3

takasima20さんも書いてますが、先にemptyを見ればいいような気がします。
その他の案としては、文字列として比較すればいけます。
最初のIf文を次のようにしてみてください。

' 方法1:Valueを文字列に変換する
If CStr(Cells(1, 1).Value) = CStr(Cells(1, 2).Value) Then

' 方法2:Textプロパティで比較する
If Cells(1, 1).Text = Cells(1, 2).Text Then

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

checkベストアンサー

+2

以下のようにしてください。
0のセルの場合もEmptyが成立しますので、空白セルは""で判定してください。
msgboxへ表示しているのは、0の場合に、Emptyが成立が成立することを確認する為です。

Public Sub 空白試験()
    Dim ii As Long
    For ii = 1 To 4
        If Cells(ii, 1).Value = "" Or Cells(ii, 2).Value = "" Then
            Cells(ii, 3).Value = "空"
        ElseIf Cells(ii, 1).Value = Cells(ii, 2).Value Then
            Cells(ii, 3).Value = "正"
        Else
            Cells(ii, 3).Value = "誤"
        End If
        If Cells(ii, 1).Value = Empty Then
            MsgBox (Cells(ii, 1).Address & "=Empty")
        End If
    Next
End Sub

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/11/05 17:18

    ありがとうございます。空の判断を先にしてみると、0も空になってしまいましたが、書いてある通り、=Enptyを=""にしてみると理想の形になりました。

    キャンセル

+2

追記・修正の依頼にてtakasima20さんがおっしゃっている通りなので回答として改めて記載するのも恐縮ですが…
以下の通りチェックの順番を入れ替えることで解決すると思います。

If (Cells(ii, 1).Value = Empty) Or (Cells(ii, 2).Value = Empty) Then
  Cells(ii, 3).Value = "空"
ElseIf (Cells(ii, 1).Value = Cells(ii, 2).Value) Then
  Cells(ii, 3).Value = "正"
Else
  Cells(ii, 3).Value = "誤"
End If

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

+2

まあ、取りあえずは評価順序を変更するのが手っ取り早くはあります。

If (Cells(ii, 1).Value = Empty) Or (Cells(ii, 2).Value = Empty) Then
  Cells(ii, 3).Value = "空"
ElseIf (Cells(ii, 1).Value = Cells(ii, 2).Value) Then
  Cells(ii, 3).Value = "正"
Else
  Cells(ii, 3).Value = "誤"
End If

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

+2

Cells().Value = Empty ではなく、
IsEmpty(Cells())で判定するべきですね。

空文字も含めて、空かどうか判定したい時は、
CStr(Cells().Value) = "" と、自分は書きます。
※型を意識して、明示的に文字列型で判定させましょう。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/11/05 20:12

    IsEmpty関数が用意されている意味、セルがエラー値の場合を想定すると、私もこの方法がベストだと思います。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.59%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る