Excel VBA質問箱 IV

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

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


52204 / 76732 ←次へ | 前へ→

【29369】Re:コメントの挿入
お礼  VBA一年生  - 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" & "         j" & vbLf & _
>  "       df  gu  o" & vbLf & _
>  " sdfh jve j  svh  frimw" & vbLf & _
>  "afitmigehklhgr"
>  .Comment.Text Text:=ComTxt
>End With
>End Sub


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

1 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 お礼

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