EXCEL VBA2010 MsgBox

質問

Sub 重複()
Dim i As Long, j As Long

For i = 6 To 500
For j = 3 To 3
If WorksheetFunction.CountIf(Range("C6:C500"), Cells(i, j)) > 1 Then
Cells(i, j).Interior.ColorIndex = 6
End If
Next j
Next i

End Sub

このVBAに重複が何件ありますよというメッセージを出したいです。
MsgBoxの入れ方を教えてください。

回答No.2

chie65536（@chie65535） · ベストアンサー

Sub 重複()
Dim i As Long, j As Long,k As Long

k = 0
For i = 6 To 500
For j = 3 To 3
If WorksheetFunction.CountIf(Range("C6:C500"), Cells(i, j)) > 1 Then
Cells(i, j).Interior.ColorIndex = 6
k = k + 1
End If
Next j
Next i

if K > 0 then
MsgBox "重複が" & k & "件あります"
Else
Msgbox "重複はありません"
Endif

End Sub

お礼

ありがとうございます！

回答No.1

heburusu

メッセージボックスを表示したい箇所で、
MsgBox関数を呼び出してあげればよいと思います。
>MsgBox("重複が何件ありますよ")

こちらで表示されませんでしょうか？

参考URL：

http://officetanaka.net/excel/vba/function/MsgBox.htm

お礼

ありがとうございます！