こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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の入れ方を教えてください。

投稿日時 - 2015-10-14 10:24:51

QNo.9063749

困ってます

質問者が選んだベストアンサー

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

投稿日時 - 2015-10-14 10:56:19

お礼

ありがとうございます!

投稿日時 - 2015-10-14 11:17:10

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

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

参考URL:http://officetanaka.net/excel/vba/function/MsgBox.htm

投稿日時 - 2015-10-14 10:49:19

お礼

ありがとうございます!

投稿日時 - 2015-10-14 11:17:02

あなたにオススメの質問