Excel VBA質問箱 IV

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

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


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

52216 / 76732

←次へ　｜　前へ→


	【29357】コメントの挿入

ＶＢＡ一年生 - 05/10/2(日) 20:16 -


	引用なし

	パスワード

すいません。
日曜日をつぶして調べまくったんですけどわかりません。
マクロで下の文字列をアクティブセルのコメントに挿入したいんですけど、
入ってくれません。この形を崩すことはできないんです。

　a　　　　s　　　　r t 　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　y　u　　　h　　　　f　　　　　d　　　　a　　　　　
　　　　　s　　　　g　 n 　u 　　　　　　　　　　　　　　　　　　　　　　
　　　d　　　　r　　 b　z　　　awwbjkfjkgfykf 　　　　　　　　　　　　　
　　　　　　 kej y　d 　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　dqcd　e　t　y　　　　f　　　　　y　　　　f　　　w　　　　　　
　　　　　　tt　　　　　f 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　w dg　　　　j k　　　　b　　　　c　　　　　s　　　w　r 　　　
　　　　　hjk n　　　k　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　 a　　　　c n　　　　j　　　　　u　　　　t　　　　　r　　　　　　　　　ｊ
　　　　　　 df　　gu　 o
　sdfh　jve j　　svh　 frimw
afitmigehklhgr　

なんでこんな文字列が必要なのかはできれば聞かないで欲しいです。
コードは

Sub コメント()

　　With ActiveCell
　　　　.ClearComments
　　　　With .AddComment.Shape
　　　　　　 .Width = 252.08
　　　　　　.Height = 184.67
　　　　　 ' .Parent.Visible = True
　　　　
　　　　　　　Dim iyaho1 As String, iyaho2 As String, iyaho3 As String
　　　　　　　Dim iyaho4 As String, iyaho5 As String
　　　　　
　　　　　iyaho1 = "１行目" & Chr(10) & "２行目" & Chr(10) & "３行目" & Chr(10)　
　　　　　iyaho2 = "４行目" & Chr(10) & "５行目" & Chr(10) & "６行目" & Chr(10)　　　　　
　　　　　iyaho3 = "７行目" & Chr(10) & "８行目" & Chr(10) & "９行目" & Chr(10)　　　　
　　　　　iyaho4 = "10行目" & Chr(10) & "11行目" & Chr(10) & "12行目" & Chr(10) & "13行目"
　　　　　　　　
　　　　　 .TextFrame.Characters.Text = iyaho1 & iyaho2 & iyaho3 & iyaho4 & iyaho5
　　
　　　　End With
　　End With

End Sub

変数で五つに分けたのは、少しでも見やすくするためです。
あと"n行目"とかいうのは
あの文字列をそのまま書くと大変見づらいからです。
エディタの中ではそのまま書きます。

　どこがいけないのでしょうか、教えて頂けるとありがたいです。
　よろしくお願いします。

0 hits

▼

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

≪