ExcelVBAのコメント操作で色々手間取ったので備忘録

フォーム上のコントロールの値を特定のセルにセットするのと、コメントの背景色をセットするには：
例えば、こんな感じに。

[code]If TextBox8.Value <> "" Then
ActiveCell.Offset(, 5).AddComment TextBox8.Value ‘着日
ActiveCell.Offset(, 5).Comment.Shape.Fill.ForeColor.SchemeColor = 42
End If[/code]

特定のセルにコメントがついている/ついていないをチェックする：
例えば、こんな感じに。

[code]If Cells(actrow, actcol + 5).Comment Is Nothing Then
Else
TextBox8.Value = Cells(actrow, actcol + 5).Comment.Text ‘金額欄のコメントを使う
End If[/code]

‘色番号の参考：http://park11.wakwak.com/~miko/Excel_Note/19-01_keisen.htm
‘コメント存在判定の参考：http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_comment.html