如何在Excel中从左/右箭头更改日期字符串？

Question

在Excel 2010中，我有一个日期“01-01-2012”和一个左右箭头。

我需要应用宏或其他内容，以便日期中的日期会相应减少/增加。怎么办呢？

实施例： “01-03-2012”，按下右箭头时，日期应更改为“02-03-2012”，下次“03-03-2012”依此类推..从[01-31] 请注意，月份和年份永远不会改变。

我制作了一个宏，它可以改变录制宏时输入的固定日期的日期，但这还不够好。我需要它来添加/减去。

Answer 1

我将日期命名为“theDate”的单元格命名。 SubtractDay的Sub几乎相同，DateAdd函数的第二个参数为-1。

Sub AddDay()

Dim theDate As Date
Dim newDate As Date

theDate = Sheet1.Range("theDate")

newDate = DateAdd("d", 1, theDate))

Sheet1.Range("theDate") = newDate

End Sub

请注意，这是一个快速的VBA Sub，因为这不是我的“强项”，但它会起作用......

Answer 2

这绝对可以通过VBA宏来完成。

在开发者标签下 - ＆gt; Visual Basic，双击存在相关单元格的工作表，并实现以下事件：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

参数Target将包含所选的单元格（检查其中一个箭头是否为所选单元格），然后相应地减去/增加日期值。