最大1万円超分の電子書籍プレゼント♪

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
※※※※※※※※※※※※※※※※※※※※※※※

「エクセルのVBA 特定のセルでエンターキ」の質問画像
gooドクター

A 回答 (2件)

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


Sheet モジュールに貼るべきでは。
    • good
    • 0
この回答へのお礼

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

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

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Call リストへ追加
End If
End Sub
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング