エクセル、シートＢからシートＡのアクティブセルへ

質問

シートＢに社員表があり、ダブルクリックでシートＡのアクティブセル（４０文字くらい入る）へ名前が追加されるようにしたいのですが、何かいい方法がありますでしょうか？
例）
田中、佐藤、石川、・・・

シートＢのダブルクリックで動くマクロに「シートＡのアクティブセルへ文字を追加する」という処理がしたいです。

よろしくお願いいたします。

回答No.1

x0000x · ベストアンサー

こんばんは。

以下のマクロで如何ですか？
Sheet1以外のシートでダブルクリックした場合、
ダブルクリックしたセルの値をSheet1で最後に位置づけていたセルに”、”区切りで追加します。

ThisWorkbookに以下を貼り付けます。
この処理では"Sheet1"以外で処理する様にしています。
適当に条件変更してください。

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

'対象外の判定
If ActiveSheet.Name = "Sheet1" Then
Exit Sub
End If

'現在のシートを保存
Dim curSht As Worksheet
Set curSht = ActiveSheet

Application.ScreenUpdating = False '画面表示の停止

'Sheet1に切り替え
Sheets("Sheet1").Select
If ActiveCell = "" Then
ActiveCell = Target.Value
Else
ActiveCell = ActiveCell & "、" & Target.Value
End If

curSht.Select
Application.ScreenUpdating = True '画面表示の再開

Set curSht = Nothing

End Sub

お礼

ありがとうございます。

できました！
すごく勉強になりました。

本当にありがとうございます。