Excel宏将年增加1

时间:2016-07-05 19:52:51

标签: excel vba excel-vba

我有一个单元格,比如说A1有一个日期/月/年格式的日期,我希望能够创建一个宏,当按下时,它只会在日期上添加1年。我已经google了一下,找到了函数let buildView()=StackPanel() //Build it with natural code type MyView()=inherit UserControl(Content=buildView()) let factory=FrameworkElementFactory(typeof<MyView>) let template=DataTemplate(VisualTree=factory) let list=ItemsControl(ItemsSource=makeData(),ItemTemplate=template) ,但是我在循环中使用它来解决这个问题的问题。

1 个答案:

答案 0 :(得分:0)

三种解决方案
Credit @ @Scott Craner

Sub test1()
    ActiveSheet.Range("A1") = DateSerial(Year(ActiveSheet.Range("A1") )+1,Month(ActiveSheet.Range("A1")) ,Day(ActiveSheet.Range("A1")))
End Sub

Credit @Kyle

Sub test2()
    ActiveSheet.Range("a1") = DateAdd("yyyy",1,ActiveSheet.Range("a1"))
End Sub

Credit @Ditto

将公式放入A2

=DATE(YEAR(A1)+1,MONTH(A1),DAY(A1))