Excel VBA質問箱 IV

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

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


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

52208 / 76736

←次へ　｜　前へ→


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

ＶＢＡ一年生 - 05/10/3(月) 17:33 -


	引用なし

	パスワード

▼awu さん：
>こんな感じで如何でしょうか。
>
>但し、コメントの改行位置は、この掲示板の表示通りにしていますので、
>行の文字数制限に影響されている場合は、修正が必要かも知れません。
>
>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

できました！！
返信ありがとうございます！
vbLfというコードについては自分でしらべることにします。
本当にありがとうございました。

0 hits

▼

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