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

我需要做的是能够插入不同的年份、月份和天数，并在下面的单元格中循环回来重复这个过程。上面的代码只插入定义的日期。我想输入月份，点击进入，进入日，进入进入，输入年命中进入，显示日期并向下移动到下一个单元格，重复循环直到停止执行。

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