하나의 상자에 여러 메시지 상자 표시

Question

데이터가 일부 조건을 충족하는지 확인하는 매크로가 있습니다. 일치하는 기준마다 하나의 메시지 상자가 표시됩니다.

나는 고유 한 메시지 상자와 일치하는 모든 조건을 표시하고 싶습니다.

이 문제를 해결하는 가장 좋은 방법은 무엇입니까? 아래 예제는 지금까지 내가 가지고있는 것입니다.

N I Esp    Par  T DBH  H_m  Cod 
2 111 E_cit   432  1     1 
2 111 E_cit   432  2     1 
2 111 E_cit   432  3     1 
2 111 E_cit   432  4 3  17.4  
2 111 E_cit   432  5     
2 111 E_cit   432  6 14.48 15 

매크로 (예로서 두 조건)

Option Explicit 

Dim DBH As Range 
Dim Cod As Range 

Sub Conditions_1() 

'------------------------------------------------ 
'DBH should be between 5 and 45 cm 

    For Each DBH In Range("F2:F7") 
     If DBH < 5 And DBH <> 0 Or DBH > 45 And DBH <> 0 Then 
     MsgBox "1 - DBH is not between 5 cm and 45 cm" 
      Exit For 
     End If 
    Next DBH 

'------------------------------------------------ 
'There can't be an empty cell on DBH column 
'together with an empty cell on the Code column 

    For Each DBH In Range("F2:F7") 
     If DBH = 0 And DBH.Offset(, 2) = 0 Then 
     MsgBox "2 - DBH is empty and also the Code" 
      Exit For 
     End If 
    Next DBH 

End Sub 

---

이 현재 코드 별도로 두 개의 메일 박스를 산출,

1. "1- DBH 5 사이 아니다 cm 및 45cm "
2. "2- DBH는 비어 있으며 코드 "

그러나 모든 조건을 한 번 나열하는 단일 상자가 있어야합니다. 어떤 도움을 주셔서 감사합니다.

Answer 1

Option Explicit 

Dim DBH As Range 
Dim Cod As Range 


Sub Conditions_1() 

Dim msg as string 

msg="" 

'------------------------------------------------ 
'DBH should be between 5 and 45 cm 

    For Each DBH In Range("F2:F7") 
     If DBH < 5 And DBH <> 0 Or DBH > 45 And DBH <> 0 Then 
      msg = msg & "1 - DBH in " & DBH.Address() & _ 
         " is not between 5 cm and 45 cm" & vbLf 
     End If 
    Next DBH 

'------------------------------------------------ 
'There can't be an empty cell on DBH column 
'together with an empty cell on the Code column 

    For Each DBH In Range("F2:F7") 
     If DBH = 0 And DBH.Offset(, 2) = 0 Then 
      msg = msg & "2 - DBH in " & DBH.Address() & _ 
         " is empty and also the Code" & vbLf 
     End If 
    Next DBH 

    If Len(msg) > 0 Then MsgBox msg 


End Sub