エクセルVBAのコメント設定について教えていただけないでしょうか。
エクセルVBAのコメント設定について教えていただけないでしょうか。
セルK2に、「8/13」など、日付を投入します。
セルL2には「=DAY(K2)」と投入して、日付だけを表示させています。
セル11行目から下方向に、1日から31日まで表示されています。
セルK2に表示された日付を元に、M列の対象となる日付に以下の
ようにコメントを入れようと思っています。
K2が13日でしたら、M23にコメントを入れたいと思っています。
「13(金) ←←改行する。
通知予定」
次のようにマクロを設定しましたが、(1)曜日の情報をコメント欄に入れることがで
きません。
また、(2)コメントの書式設定がうまくいきません。
コメント欄を「MSゴシック」のフォントで「14ポイント」のサイズで
「自動サイズ調整」をしたいのですが、コメントが挿入されたセルの書式が変更さ
れてしまいます。
曜日の情報入れて、コメントの書式を設定する方法を教えていただけないでしょうか。
---------------------------------------------------------------------
Sub コメント書式設定2()
Dim 通知日 As Long
通知日 = Range("l2").Value
Cells(通知日 + 10, 13).Select
ActiveCell.AddComment Text:=通知日 & Chr(10) & "通知予定"
With Selection.Font
.Name = "MS Pゴシック"
.FontStyle = "太字"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub
お礼
マクロで出来ました。 ありがとうございました。