未記入箇所がある場合メッセージボックス

質問

お世話になります。
以前https://okwave.jp/qa/q9623125.htmlで質問させて頂きました。

ベストアンサー様や他の回答者様のおかげで解決しましたが、
選択セルを増やさないといけなくなりました。

ベストアンサー様の
Dim i As Long

For i = 10 To 24
If MFind(i) = False Then Exit Sub
Next
For i = 28 To 39
If MFind(i) = False Then Exit Sub
Next

'VBA高速（終わり）
Application.ScreenUpdating = True

End Sub
Function MFind(ByVal i As Long) As Boolean
Dim URange As Range

MFind = True
Set URange = Union(Range(Cells(i, "B"), Cells(i, "C")), Cells(i, "N"), Range(Cells(i, "Q"), Cells(i, "R")))
If WorksheetFunction.CountA(URange) > 0 And _
WorksheetFunction.CountA(URange) < URange.Count Then
MsgBox i & "行に未記入箇所があります。", vbInformation
MFind = False
End If
End Function

を使わせて頂いていますが、
この参照セルを『B C N Q R』ではなく『B C D H J K M N O P Q R』にするには
どうすれば良いでしょうか？

※過去の質問にも記載していますが、1行だけではありません。
※B～Rのセルで行により結合させているセルもあります。

回答No.2

kkkkkm · ベストアンサー

> For i = 28 To 39は「i」
> For i = 40 To 45は「a」

前者は最初のエリアで後者が今回のエリアとして1と2で振り分けます。
ただ、行により結合セルがあるという事なのでうまくいかない感じはします。

Sub Example()
Dim i As Long

For i = 10 To 24
If MFind(i, 1) = False Then Exit Sub
Next
For i = 28 To 39
If MFind(i, 2) = False Then Exit Sub
Next

End Sub

Function MFind(ByVal i As Long, ByVal mArea As Integer) As Boolean
Dim URange As Range
Dim j As Long, k As Long

MFind = True
If mArea = 1 Then
Set URange = Union(Range(Cells(i, "B"), Cells(i, "C")), Cells(i, "N"), Range(Cells(i, "Q"), Cells(i, "R")))
ElseIf mArea = 2 Then
Set URange = Union(Range(Cells(i, "B"), Cells(i, "D")), Cells(i, "H"), Range(Cells(i, "J"), Cells(i, "K")), _
Range(Cells(i, "M"), Cells(i, "N")), Range(Cells(i, "O"), Cells(i, "R")))
End If
If WorksheetFunction.CountA(URange) > 0 And _
WorksheetFunction.CountA(URange) < URange.Count Then
MsgBox i & "行に未記入箇所があります。", vbInformation
For j = 1 To URange.Areas.Count
For k = 1 To URange.Areas(j).Count
If URange.Areas(j).Cells(1, k).Value = "" Then
URange.Areas(j).Cells(1, k).Select
MFind = False
Exit Function
End If
Next
Next
End If
End Function

お礼

ありがとうございます！！

おかげさまで思い描いていたものが
出来ました！！！

前回から何度もご回答頂きありがとうございます。
感謝感謝です！！

回答No.3

kkkkkm

結合セルについて
結合セルが同一エリア(先の回答の1もしくは2)では同じ列が結合されているのでしたら
たとえば
O P Q R
の範囲で
OPが結合されているのでしたら
結合している最初のセルを指定して
Cells(i, "O"), Range(Cells(i, "Q"), Cells(i, "R")
(P列はO列に含まれるので無視する)としてください。

回答No.1

kkkkkm

Set URange = Union(Range(Cells(i, "B"), Cells(i, "C")), Cells(i, "N"), Range(Cells(i, "Q"), Cells(i, "R")))

の所を

Set URange = Union(Range(Cells(i, "B"), Cells(i, "D")), Cells(i, "H"), Range(Cells(i, "J"), Cells(i, "K")), _
Range(Cells(i, "M"), Cells(i, "N")), Range(Cells(i, "O"), Cells(i, "R")))

に変更してください。

また増減がある場合には
範囲を指定するには
Range(Cells(i, "B"), Cells(i, "D"))
と指定します。
ひとつのセルを指定するには
Cells(i, "H")
と指定して
間をコンマ「,」で繋いでいってください。

補足

前回に続きありがとうございます。

すみません。
自分が勘違いしていました。

----------
(1)前回の行のセル『B C N Q R』は前回教えていただいた方法で解決しました。
※『B～R』の『C D H J K M O P』には計算式が入っていて
『B C N Q R』は空欄です。

(2)今回の行のセル『B C D H J K M N O P Q R』は計算式が入っていません。
全て空欄です。
----------

今回の行のセルに自分が質問したように参照セルを増やすと
(1)の計算式が入ったセルが邪魔してしまいます。

「i」ともう一つ別の定義を作ることは可能でしょうか？

For i = 28 To 39は「i」
For i = 40 To 45は「a」
のような感じで出来ればありがたいです。