Excel VBA質問箱 IV

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

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


52216 / 76732 ←次へ | 前へ→

【29357】コメントの挿入
質問  VBA一年生  - 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         j
       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 = "1行目" & Chr(10) & "2行目" & Chr(10) & "3行目" & Chr(10) 
     iyaho2 = "4行目" & Chr(10) & "5行目" & Chr(10) & "6行目" & Chr(10)     
     iyaho3 = "7行目" & Chr(10) & "8行目" & Chr(10) & "9行目" & 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】コメントの挿入 VBA一年生 05/10/2(日) 20:16 質問
【29358】Re:コメントの挿入 かみちゃん 05/10/2(日) 20:23 発言
【29359】Re:コメントの挿入 VBA一年生 05/10/2(日) 21:08 お礼
【29362】Re:コメントの挿入 awu 05/10/3(月) 1:22 回答
【29369】Re:コメントの挿入 VBA一年生 05/10/3(月) 17:33 お礼
【29378】Re:コメントの挿入 awu 05/10/4(火) 0:13 発言
【29382】Re:コメントの挿入 ichinose 05/10/4(火) 7:20 発言
【29458】Re:コメントの挿入 VBA一年生 05/10/5(水) 20:59 お礼

52216 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free