Excel宏,dd.mm日期+1

时间:2016-07-05 11:09:06

标签: excel vba excel-vba date macros

第一次来到这里,对不起,如果我做错了什么

我刚刚发现了excel宏,我认为它们会对我有很大的帮助,但我并没有真正参与编程和所有这些事情

我做了一些宏,这很简单,但这个不是,至少不适合我,我希望你能帮助我

我已经尝试了很多像NumberFormat和Format(...)这样的东西,但它并没有起到我希望它如何工作的作用

我想要的是:

我在单元格[F6](格式化dd.mm)中获得带有特定日期的excel文档,如下所示:" 01.08" ,它总是01(月的第一天)

现在我想要一个宏,这将占用该日期,每次我使用宏我希望它在第二天粘贴我当前选择的单元格(ActiveCell)

因此,当我第一次在该文档中使用我的宏时,我希望它粘贴" 02.08"进入我选择的当前单元格

下次我使用它" 03.08"等。

我希望你能理解我并能帮助我

1 个答案:

答案 0 :(得分:0)

试试这个。请注意,关闭工作簿时i将重置为0。如果要在会话之间存储i,则必须将其写入单元格,然后引用该单元格 单元格F6必须正确格式化为日期。

Dim i As Long

Sub next_day()
    i = i + 1
    Selection = Range("F6").Value + i
    Selection.NumberFormat = "dd.mm"
End Sub