Excel VBA代碼自動執行

Question

我已經在Excel中記錄了以下VBA宏

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

我需要做的是能夠插入不同的年，月和日，然后循環返回以在下面的單元格中重復該過程。 上面的代碼僅插入定義的日期。 我想輸入月份，按[ENTER]，輸入日期，按[ENTER]，輸入年份，按[ENTER]，顯示日期並向下移動到下一個單元格，重復循環直到停止執行。

Answer 1

出於好奇，您為什么要使用Ctrl + x（“剪切”命令的內置熱鍵）熱鍵此宏過程？

簡單Do ... Loop使用messageBox提示您繼續（或退出），並使用InputBox捕捉要放置在工作表上的值。

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