Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52211 / 76732

←次へ　｜　前へ→


	【29362】Re:コメントの挿入

awu - 05/10/3(月) 1:22 -


	引用なし

	パスワード

こんな感じで如何でしょうか。

但し、コメントの改行位置は、この掲示板の表示通りにしていますので、
行の文字数制限に影響されている場合は、修正が必要かも知れません。

Sub コメント()
Dim ComTxt As String
With ActiveCell
　　.ClearComments
　　With .AddComment.Shape
　　　　.Width = 360
　　　　.Height = 160
　　End With
　　ComTxt = _
　　"　a　　　　s　　　　r t" & vbLf & _
　　"　　　　　　　　　　　　y　u　　　h　　　　f" & _
　　"　　　　　d　　　　a" & vbLf & _
　　"　　　　　s　　　　g　 n 　u" & vbLf & _
　　"　　　d　　　　r　　 b　z　　　awwbjkfjkgfykf" & vbLf & _
　　"　　　　　　 kej y　d" & vbLf & _
　　"　　　　　　dqcd　e　t　y　　　　f　　　　　y" & _
　　"　　　　f　　　w" & vbLf & _
　　"　　　　　　tt　　　　　f 　　　　　　　　　　" & _
　　"　　　　　　　　　　　　　　　" & _
　　"　　　　　w dg　　　　j k　　　　b　　　　" & vbLf & _
　　"c　　　　　s　　　w　r" & vbLf & _
　　"　　　　　hjk n　　　k" & vbLf & _
　　"　　　　　　　 a　　　　c n　　　　j　　　　　u" & _
　　"　　　　t　　　　　r" & "　　　　　　　　　ｊ" & vbLf & _
　　"　　　　　　 df　　gu　 o" & vbLf & _
　　"　sdfh　jve j　　svh　 frimw" & vbLf & _
　　"afitmigehklhgr"
　　.Comment.Text Text:=ComTxt
End With
End Sub

1 hits

▼

【29357】コメントの挿入 ＶＢＡ一年生 05/10/2(日) 20:16