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（内置热键＆＃34; Cut＆＃34;命令）来热键这个宏程序？

带有messageBox的简单Do ... Loop，提示您继续（或退出）和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

Excel VBA代码自动化

1 个答案: