Excel VBA質問箱 IV

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

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


74653 / 76732 ←次へ | 前へ→

【6541】Re:AのシートのコメントにBのシートの値を入れるには?
回答  りん E-MAIL  - 03/7/8(火) 0:12 -

引用なし
パスワード
   初心者おじさん さん、こんばんわ。

>Aのシートに作ったコマンドボタンを押すと、Bのシートの値をコメントとして、Aのシートに追加するには、どうしたらよいのでしょうか?

以下のコードをコマンドボタンのイベントモジュールに書きます。
(イベントモジュールは、シートに配置したボタンをダブルクリックしたら表示されます)

A、Bという名前のシートがあり、Aシート上にCommandButton1があるとして。

Private Sub CommandButton1_Click()
  ActiveCell.Activate '念のため
  '
  Dim r(1 To 2) As Range, cm1 As Comment
  Set r(1) = Worksheets("A").Range("A1")
  Set r(2) = Worksheets("B").Range("A1")
  'コメントの有無チェック
  On Error Resume Next
  Set cm1 = r(1).Comment
  On Error GoTo 0
  'なければ追加
  If cm1 Is Nothing Then _
    Set cm1 = r(1).AddComment
  '文字列設定
  cm1.Text Text:=r(2).Text
  '
  Erase r: Set cm1 = Nothing
End Sub

こんな感じです。
0 hits

【6515】AのシートのコメントにBのシートの値を入れるには? 初心者おじさん 03/7/7(月) 0:15 質問
【6541】Re:AのシートのコメントにBのシートの値を... りん 03/7/8(火) 0:12 回答
【6563】Re:AのシートのコメントにBのシートの値を... 初心者おじさん 03/7/9(水) 23:40 お礼

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