Question

我有一个单元格，比如说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)，但是我在循环中使用它来解决这个问题的问题。

Answer 1

三种解决方案
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))

Excel宏将年增加1

1 个答案: