| |
初心者おじさん さん、こんばんわ。
>Ａのシートに作ったコマンドボタンを押すと、Ｂのシートの値をコメントとして、Ａのシートに追加するには、どうしたらよいのでしょうか？
以下のコードをコマンドボタンのイベントモジュールに書きます。
（イベントモジュールは、シートに配置したボタンをダブルクリックしたら表示されます）
Ａ、Ｂという名前のシートがあり、Ａシート上にCommandButton1があるとして。
Private Sub CommandButton1_Click()
ActiveCell.Activate '念のため
'
Dim r(1 To 2) As Range, cm1 As Comment
Set r(1) = Worksheets("Ａ").Range("A1")
Set r(2) = Worksheets("Ｂ").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
こんな感じです。
|
|
- 03/7/8(火) 0:12 -
