|
▼猫おじさん、皆さん、こんばんは。
何で? ぴかるさんとこうちゃんのレスが同じなんでしょう?
まっ、いいか・・・。
以下のようにしてみました。
'===============================
Sub test()
For II = 1 To 27
For KK = 1 To 12
With Cells(II + 1, KK + 1)
If .Value <> "" Then
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment 'コメントの追加を宣言
.Comment.Text Text:="いろいろ" 'コメントの作成
.Comment.Visible = False
With .Comment.Shape
'コメント枠の大きさの指定
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
'フォントの種類と大きさの指定
With .TextFrame.Characters.Font
.Name = "MS ゴシック"
.Size = 12
End With
End With
End If
End With
Next KK
Next II
End Sub
|
|