[已解决]求日期的VBA代码

安全网

求日期天数的VBA代码，如果E/F都为空就不计算

最佳答案

月排行榜 / 总排行榜

zjdh

2016-8-25 14:43

求日期VBA代码.rar (7.51 KB, 下载次数: 8)

2016-8-25 14:43 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

Sub Test()
    For I = 12 To Range("E65536").End(3).Row
        If Cells(I, 5) = "" Then GoTo 10
        If Cells(I, 6) = "" Then
            D = Date
        Else
            D = Cells(I, 6)
        End If
        Cells(I, 7) = D - Cells(I, 5)
10  Next
End Sub

zjdh

求日期VBA代码.rar (7.51 KB, 下载次数: 8)

2016-8-25 14:43 上传

点击文件名下载附件

安全网

zjdh 发表于 2016-8-25 14:43

如果想应用到多个工作表内怎么设置一次性按钮就可以实现

zjdh

你看一下语句，程序是有指对性的，除非各表格式位置一致，否则不可能通用。