[[20180301140256]]　『MsgBoxに表示をさせたい』（ふゆか）　ページの最後に飛ぶ

『MsgBoxに表示をさせたい』（ふゆか）

お世話になります
教えていただけたら幸いです

B列に文字列　8桁の日付（例　20180301）が1ヶ月分入力されてる予定です
この時　全て入力されてるか判定したいです

私が考えていた条件

B1の最初2文字は　01

最終はその当月の末日　恐らく　DateSerial　を使えば良いとおもってます

中間日は　検索セルに１足したのが一つ下のセルと同じ値だと
抜けがないと判断　
　
但しこの条件だと2日以上抜けると　正しく判断されない

よって条件はどの様にしたらよいかの相談と
またＭsgBoxの表示し方を教えて欲しいです

中間日の条件を下記の様に書いたのですが
表示されないみたい為　書き方を教えてください

Sub 判定()

    Dim i As Long　,msg As Variant
   　     
    i = 2
    Do While Cells(i, 2) <> ""

     If Cells(i + 1, 2) = Cells(i, 2) + 1 Then

       Else
       msg = Cells(i + 1, 2) - 1 & vbCrLf

        i = i + 1
    End If
    Loop
    MsgBox msg

End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 Sub 判定()
     Dim i As Long, msg As Variant

     i = 2

     Do While Cells(i + 1, 2) <> ""
         If Cells(i + 1, 2) = Cells(i, 2) + 1 Then

         Else
             msg = msg & Cells(i + 1, 2) - 1 & vbCrLf
         End If
         i = i + 1
     Loop

     If msg = "" Then
         MsgBox "歯抜けなし"
     Else
         MsgBox msg
     End If
 End Sub

（半平太） 2018/03/01(木) 16:04

コメント返信：