Excel VBA質問箱 IV

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

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


13201 / 13644 ツリー ←次へ | 前へ→

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

【6515】AのシートのコメントにBのシートの値を...
質問  初心者おじさん  - 03/7/7(月) 0:15 -

引用なし
パスワード
   はじめまして。
いろいろと試したのですが、分からず、お知恵を貸してください。

Aのシートに作ったコマンドボタンを押すと、Bのシートの値をコメントとして、Aのシートに追加するには、どうしたらよいのでしょうか?
つまり、シートAのA1のセルのコメントにシートBのA1のセルの値をコメントで入れるという事です。(シートAのコメントを見れば、シートBのそのセルの値がすぐに分かるようにしたいのです)

Addcommentを使っていろいろと試していますが、うまくいきません。

宜しくお願いします。

【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

こんな感じです。

【6563】Re:AのシートのコメントにBのシートの値...
お礼  初心者おじさん  - 03/7/9(水) 23:40 -

引用なし
パスワード
   こんばんわ

りんさん
ありがとうございます。
出来ました。

しかし

>  Dim r(1 To 2) As Range, cm1 As Comment
↑の使い方が理解できないわたし。

勉強しまs。

ありがとうございました!

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