マクロの判定文の書き方

Question

現在マクロを作成しており、
「Excelファイル内の入力必須セルに入力がない場合の処理」をコーディングしています。
入力必須セルは3つあり、未入力の項がある場合は
「入力必須の(～～～)が入力されていません」というエラー文を表示させます。
上記の(～～～)にあたる部分を作るに際し、

全て入力されている
Aが未入力
AとBが未入力
AとBとCが未入力
Bが未入力
BとCが未入力
Cが未入力
AとCが未入力

のパターンが考えられる為、下記のように仮実装しました。

'未入力判定
    If A = 1 & B = 1 & C = 1 Then
        error01 = ""
    ElseIf A = 0 And B = 1 And C = 1 Then
        error01 = "A"
    ElseIf A = 0 And B = 1 And C = 0 Then
        error01 = "A,B"
    ElseIf A = 0 And B = 0 And C = 0 Then
        error01 = "A,B,C"
    ElseIf A = 1 And B = 0 And C = 1 Then
        error01 = "B"
    ElseIf A = 1 And B = 0 And C = 0 Then
        error01 = "B,C"
    ElseIf A = 1 And B = 1 And C = 0 Then
        error01 = "C"
    ElseIf A = 0 And B = 0 And C = 1 Then
        error01 = "A,C"
    End If

※エラーが複数ある場合は間を「,」で区切りたい。(重要)

上記コードを簡略化(というか効率化…？)させたいのですが、どのような方法が考えられますでしょうか。
現在は3つ(A,B,C)の組み合わせですが、5つ 8つ などと個数が増える場合にも流用できるものであると助かります。

Answer 1

単純に、error01 にエラーを羅列（？）したいという事で良いでしょうか。
以下のような感じではどうでしょうか。

※VBAってあんまり触ったことがないのでコーディングがおかしかったら適宜修正してください。
※ロジックの一例です。

error01 = ""

If A = 0 Then
  If error01 <> "" Then error01 &= ","
  error01 &= "A"
End If

If B = 0 Then
  If error01 <> "" Then error01 &= ","
  error01 &= "B"
End If

If C = 0 Then
  If error01 <> "" Then error01 &= ","
  error01 &= "C"
End If

もしエラーだったら、まず error01 が空かどうかを調べて、空でなければカンマを追加します。
それからエラー文字列を追加していきます。
どうですかね。

---

【追記】

VBA も三項演算子 使えるのか。そっちのほうがすっきりしますかね。

If A = 0 Then
  error01 &= IIf(error01 <>　"", ",", "") & "A"
End If

本当に例示のように、変数の桁数が揃ってるなら、このくらいの長さなら一行で書いちゃいますかね 私なら。
変数名の桁数が異なるようだとガタガタして見辛い気がしますが。

If A = 0 Then error01 &= IIf(error01 <> "", ",", "") & "A"
If B = 0 Then error01 &= IIf(error01 <> "", ",", "") & "B"
If C = 0 Then error01 &= IIf(error01 <> "", ",", "") & "C"

(VB ではこの書き方ができますが、VBA はどうだろう)

Comments

[Toyoshima]

ネストしてるIF文に対応するEndIfが無いですが・・・
sk_3122さんのカンマ考慮、お見事です！

[Alice0225]

ご回答ありがとうございます。
3行で済んでしまうんですね…。

[sk_3122]

すみません、三項演算子の箇所の記述をミスっていたので直しておきました。一応。
誤：error01 &= IIf(error01 <> ",", "") & "A"
正：error01 &= IIf(error01 <> "", ",", "") & "A"

IIf(条件, Trueの場合の値, Falseの場合の値)

[Alice0225]

今回は「行数が少なく簡単に実装できる」sk_3122様の回答をベストアンサーとさせていただきました。
ご回答ありがとうございました！

Answer 2

ちょっと趣旨とズレるかもしれませんが、セル限定で汎用的にするならセル側に必須入力の目印をつけてしまって(たとえば背景色とか)、

コードでその目印を探すという手もあります。

Sub Sample()
    Const 薄黄色 = 19
    Dim セル As Range
    Dim エラー As String
    
    For Each セル In Sheets(1).Range("c4:c8")
        If セル.Interior.ColorIndex = 薄黄色 And セル = "" Then
            エラー = エラー & セル.Offset(0, -1).Value & ", "
        End If
    Next
    エラー = Left(エラー, Len(エラー) - 2)  'カンマをけずる。
    
    MsgBox エラー & "が未入力です。"
End Sub

Comments

[Alice0225]

ご回答ありがとうございます。
そのような手法もあるのですね…。
ちょっと今回はExcelファイルの仕様を変えることが出来ないので今後に活かさせて頂きます。

Answer 3

最近触ってない上、試してないのでエラーがあるかもしれませんがご参考になれば幸甚です。
項目がフォームではなくセルとのことですのでRangeオブジェクトで動的に値を取得できると思います。
これなら、5つ 8つ などと個数が増える場合にも流用できるかと思います。

下記は項目のセル位置が連続していない場合に有効です。

Dim cells() As String
Dim err As String

'入力必須カラムを「;」区切りで指定
cells = Split("A1;B1;C1", ";")
err = ""

For Each cell In cells()
    If Range(cell).Value = "" Then
        err = err & cell & ","
    End If
Next cell

If err <> "" Then
    '末尾のカンマを削除
    err = LEFT(err, LEN(err) - 1)
End If

下記は項目のセル位置が連続している場合に有効です。

Dim rng As Range
Dim err As String

Set rng = Range("A1:C9")
err = ""

For Each r In rng
    If r.Value = "" Then
        err = err & r.Address(False, False) & ","
    End If
Next r

If err <> "" Then
    '末尾のカンマを削除
    err = LEFT(err, LEN(err) - 1)
End If

Comments

[Alice0225]

ご回答ありがとうございます。
cellsに範囲(A1:C9等)を指定することは可能なのでしょうか？

[xenbeat]

最初のサンプルコードは範囲指定できないものとなります。ポツポツと対象セルが散らばっている状況では有効かと思います。ロジック的にはあまり変わりませんが範囲指定できるサンプルを追記させていただきました。手元に実行環境がないのでこちらも未検証です。

[Alice0225]

追記ありがとうございます。
全てにおいて後ろにカンマをつけ、最後に一番後ろのカンマを消す手法なのですね。
私は頭が固いので柔軟な発想でびっくりです…

Answer 4

こんな感じでどうでしょう

error01 = ""
If A = 0 Then
  error01 = "A"
End If
If B = 0 Then
  error01 = error01 + IIf(Len(error01) > 0, ",B", "B")
End If
If C = 0 Then
  error01 = error01 + IIf(Len(error01) > 0, ",C", "C")
End If

個数が増えるなら関数にしたほうがよいでしょうね

ご参考までに

Comments

[Alice0225]

ご回答ありがとうございます。
この手法だとすっきりしていて見やすく使いやすそうですね！

Answer 5

手元に Excel がないので検証していませんが、こんなのはどうでしょう。

Dim xCellRows(3) As Long
Dim xCellCols(3) As Long
Dim strError(3) As String
xCellRows(0) = 3: xCellCols(0) = 4: strError(0) = "A" ' 3 行目 4 列目のセルが空かチェック。空の場合は "A" というメッセージ
xCellRows(0) = 5: xCellCols(0) = 5: strError(1) = "B" ' 5 行目 5 列目のセルが空かチェック。空の場合は "A" というメッセージ
xCellRows(0) = 6: xCellCols(0) = 5: strError(2) = "C" ' 6 行目 5 列目のセルが空かチェック。空の場合は "A" というメッセージ
'
Dim strMessages(3) As String
Dim indexMessage As Integer: indexMessage = 0
Dim indexCell As Integer: indexCell = 0 
For indexCell = 0 To 2
    If .Cells(xCellRows(indexCell), xCellCols(indexCell)) == "" Then
      strMessages(indexMessage) = strError(indexCell)
      indexMessage = indexMessage + 1
    End If
Next indexCell
Dim i As Integer
Dim strResult As String: strResut = ""
If indexMessage > 0 Then
    strResult = strMessage(0)
    For i = 1 To indexMessage - 1
        strResult = strResult & "," & strMessage(i)
    Next i
End If

最後のメッセージをカンマ区切りにする処理は、ReDim で配列の長さを変えて Join 関数でやるというのもいいかもしれません。

あと、これくらいの処理になると、私はクラスを作ってしまいます。その方が見通しがよくなるので。

あと、Excel 自体の機能で、セルに入力規則を設定して、空白の場合にはエラーメッセージを出すというのもできたと思いますが、それだとマクロを使うまでもないのですが、それでは駄目なんでしょうか。

Comments

[Alice0225]

ご回答ありがとうございます。
初心者なのでよくわからない部分がちょこちょこあるのですが、
これはどのような処理の流れになるのでしょうか。

[unau]

最初の 6 行が、「このセルは空じゃ駄目で、空だった場合にはこのエラーメッセージを出す」というのを 3 セル分記述してあるところです。「:」を使っているところは、ひとまとりまりの意味を持つ処理をまとめて書いたところです。複数行を「:」でつなげるのをマルチステートメントと呼びます。
8 行目からがメインの処理で、セルをチェックしていって、空のところがあったら strMessages という配列に格納していきます。次は配列の何番目に格納すればいいのか、というインデックスが indexMessage になります。
もし、VBA を動かす環境があるなら、デバッガで一つ一つ進めながら変数の中身がどうなるか見ていくのもよいのではないでしょうか。Excel はそういう統合開発環境としてもたいへん優れていると思います。

[Alice0225]

ご説明ありがとうございます。
中々初心者の自分には難しいですね…

Answer 6

検証してませんが・・・こうですかね・・・

Dim error1 As String
If A=0 Then
 error1 = "A"
EndIf
If B=0 Then
 error1 = error1 & ",B"
EndIf
If C=0 Then
 error1 = error1 & ",C"
EndIf

Comments

[Toyoshima]

ああ・・・・sk_3122さんのほうが正解です・・・。
Aの判定ブロックに入らないパターンが漏れてました。。
お恥ずかしい・・・。

[Alice0225]

ご回答ありがとうございます。
私も最初同じ様な考えで作成をし、途中で破綻していることに気付きまして…
そのあとはずっと混乱してしまっています(笑)