[已解决]请老师看一下这段代码，关于如何使取值变为日期格式

haohaizi007

wayy 发表于 2015-6-15 16:31
可以加判断用if，如果大于today()，then,0

老师，再宏里怎么用datedif语句？

我直接插入   
Dim i%, m%
m = [g65536].End(xlUp).Row

For i = 4 To m

=DATEDIF([G,i];TODAY();"M")

这句话就提示错误了

wayy

haohaizi007 发表于 2015-6-15 17:27
老师，再宏里怎么用datedif语句？

我直接插入   

MsgBox DateDiff("d", [a1], [a2])
代码中与函数不太一样。a1与a2为存放日期的单元格，你试着改一下吧。

haohaizi007

wayy 发表于 2015-6-15 17:42
MsgBox DateDiff("d", [a1], [a2])
代码中与函数不太一样。a1与a2为存放日期的单元格，你试着改一下吧。 ...

Sub 第三步()

Application.WorksheetFunction.DateDiff
Dim i%, m%
m = [g65536].End(xlUp).Row

For i = 4 To m
   MsgBox DateDiff("m", ["u" & i], TODAY())
   Next


End Sub


老师，运行的时候显示找不到功能 datediff
还有就是    MsgBox DateDiff("m", ["u" & i], TODAY())  这句话，我为了和今天做差，直接像我这样写 TODAY()
可以吗？

高山之岫

谢谢

wayy

1. Sub 第三步()
   
2. Dim i%, m%
   
3. m = [g65536].End(xlUp).Row
   
4. For i = 4 To m
   
5.    MsgBox DateDiff("m", Cells(i, "u"), Date)
   
6. Next
   
7. End Sub

复制代码

注意学习一下range和cells的用法，如果行或者列是变量，用这两个函数。