Excel VBA代码自动执行

Question

I have recorded the following VBA macro in Excel

Sub EnterDate()
'
' EnterDate Macro

' Enter date at any point in a worksheet and move cursor down

'

' Keyboard Shortcut: Ctrl+x

'
    ActiveCell.FormulaR1C1 = "12/15/2014"

    ActiveCell.Offset(1, 0).Range("A1").Select

End Sub

What I need to be able to do is to be able to insert different years, months, and days, and loop back to repeat the process in the cells below. The above code only inserts the defined date. I would like to enter month, hit [ENTER], enter day, hit [ENTER], enter year hit [ENTER], display the date and move down to the next cell, repeating the loop until stopping execution.

Answer 1

Out of curiosity, why would you use Ctrl+x (built in hotkey for "Cut" command) to hotkey this macro procedure?

Simple Do ... Loop with a messageBox to prompt you to continue (or quit) and InputBox to capture the values you want to put on the sheet.

Sub EnterDate()
'
' EnterDate Macro

' Enter date at any point in a worksheet and move cursor down

'

' Keyboard Shortcut: Ctrl+x

Dim mb as VbMsgBoxResult
Dim y as String, m as String, d as String

Do 

    y = Application.InputBox("Year?")
    m = Application.InputBox("Month?")
    d = Application.InputBox("Day?")

    ActiveCell.Value = m & "/" & d & "/" & y
    ActiveCell.Offset(1, 0).Select

    mb = MsgBox("Continue?", vbYesNo)
Loop While Not mb = vbNo

End Sub