エクセルのVBA 特定のセルでエンターキーでマクロ実行

B3へ数字を入力後にエンターキー押下で、作成したマクロを実行させたいです。


◆作成したマクロのコード：B3をD列の最終行の下のセルにコピペ
※※※※※※※※※※※※※※※※※※※※※※※
Sub リストへ追加()
'
' リストへ追加 Macro
'
'セルB3をコピー
Range("b3").Copy

'D列の最終行+1を取得
d = Cells(Rows.Count, "D").End(xlUp).Row + 1
Range("D" & d).Select

'値のみを貼り付け
Selection.PasteSpecial Paste:=xlPasteValues

End Sub
※※※※※※※※※※※※※※※※※※※※※※※

No.2 ベストアンサー 回答者： ママチャリ 回答日時： 2020/03/21 22:42

ThisWorkbook モジュールに、この名前のイベントプロシジャって、ありましたっけ?

Sheet モジュールに貼るべきでは。

この回答へのお礼

回答ありがとうございます。
無事解決できました！！

お礼日時：2020/03/21 23:50

No.1 回答者： ママチャリ 回答日時： 2020/03/21 18:05

サンプルのコードを書いてみました。

これで分かりますか？
それにしても、このままでは使い物にならないですね！！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Call リストへ追加
End If
End Sub

この回答へのお礼

回答ありがとうございます。
VBAのウインドウで、ThisWorkbookをダブルクリックして右上のリストをWorksheet_Changeに変更し教えていただいたコードを貼り付けてみました。
エクセル再起動してもうまく動かないです。

お礼日時：2020/03/21 19:17