エクセルマクロで２つのセルに入っているコメントを比較したい

質問

よろしくお願いします。
エクセルマクロで異なる２つのセルＡとＢに入っているコメントを比較しその結果を表示させたいと思ってます。具体的には、

１．セルＡのコメントなし
　　セルＢのコメントなし
　　⇒比較結果として「１」を表示
２．セルＡのコメントあり
　　セルＢのコメントなし
　　⇒比較結果として「２」を表示
３．セルＡのコメントなし
　　セルＢのコメントあり
　　⇒比較結果として「３」を表示
４．セルＡのコメントあり
　　セルＢのコメントあり
　　かつ両コメントが等しい
　　⇒比較結果として「４」を表示
５．セルＡのコメントあり
　　セルＢのコメントあり
　　かつ両コメントが等しくない
　　⇒比較結果として「５」を表示
というものです。

何卒よろしくお願い申し上げます。

回答No.1

misatoanna · ベストアンサー

こんにちは。

Sub Test()
　Dim rng(2), cmt(2), chk
　rng(1) = "D2"
　rng(2) = "C11"
　cmt(1) = Range(rng(1)).NoteText
　cmt(2) = Range(rng(2)).NoteText
　Select Case cmt(1)
　　Case Is <> ""
　　　Select Case cmt(2)
　　　　Case Is = ""
　　　　　chk = 2
　　　　Case Else
　　　　　If cmt(1) = cmt(2) Then chk = 5 Else chk = 4
　　　End Select
　　Case Else
　　　If cmt(2) <> "" Then chk = 3 Else chk = 1
　End Select
　MsgBox chk
End Sub

とか・・・

お礼

早速のご回答ありがとうございました。
なるほど「NoteText」というのでコメントを取得できるのですね！
やってみます。ありがとうございました。

回答No.2

merlionXX

Sub test01()
Dim a As Range, b As Range
Dim ans As String

Set a = Range("A1")
Set b = Range("B1")

If a.Comment Is Nothing And b.Comment Is Nothing Then
If b.Comment Is Nothing Then ans = "「１」を表示"
If Not b.Comment Is Nothing Then ans = "「３」を表示"
Else
If b.Comment Is Nothing Then ans = "「２」を表示"
If Not b.Comment Is Nothing Then
If a.Comment.Text = b.Comment.Text Then
ans = "「４」を表示"
Else
ans = "「５」を表示"
End If
End If
End If

MsgBox ans, vbInformation, " （￣ー￣）v "

End Sub

ではどうでしょう。

お礼

早速のご回答ありがとうございました。
こういう方法もあるのですね。参考になります。
ありがとうございました。