Excel VB计算两个单元格之间的周数

Question

大家好，偷看

我是VB的新手，我一直在尝试一些Web代码，以尝试创建非常简单的东西。 我试图让excel计算具有日期值的两个单元格之间的星期数。 第一个单元格位于固定位置，第二个单元格是该列使用范围内的最后一个单元格。

Last是我从网络上提取的一个功能。 我根本无法使用它，任何帮助将不胜感激。

   Sub test_date_calc()



   Dim LastCell As String
   Dim nwks As Integer
   Dim rng As Range

   Set rng = Sheets("data13").UsedRange
   LastCell = Last(3, rng)
   nwks = (Cells(3, 2) - LastCell.Value) / 7
   If nwks > 13 Then

   MsgBox "greater"
   Else

   MsgBox "Less"

   End If
   End Sub

下面的Last功能，可能会有所帮助

Function Last(choice As Long, rng As Range)
'Ron de Bruin, 5 May 2008
' 1 = last row
' 2 = last column
' 3 = last cell
    Dim lrw As Long
    Dim lcol As Long

    Select Case choice

    Case 1:
        On Error Resume Next
        Last = rng.Find(What:="*", _
                        After:=rng.Cells(1), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Row
        On Error GoTo 0

    Case 2:
        On Error Resume Next
        Last = rng.Find(What:="*", _
                        After:=rng.Cells(1), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByColumns, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Column
        On Error GoTo 0

    Case 3:
        On Error Resume Next
        lrw = rng.Find(What:="*", _
                       After:=rng.Cells(1), _
                       Lookat:=xlPart, _
                       LookIn:=xlFormulas, _
                       SearchOrder:=xlByRows, _
                       SearchDirection:=xlPrevious, _
                       MatchCase:=False).Row
        On Error GoTo 0

        On Error Resume Next
        lcol = rng.Find(What:="*", _
                        After:=rng.Cells(1), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByColumns, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Column
        On Error GoTo 0

        On Error Resume Next
        Last = rng.Parent.Cells(lrw, lcol).Address(False, False)
        If Err.Number > 0 Then
            Last = rng.Cells(1).Address(False, False)
            Err.Clear
        End If
        On Error GoTo 0

    End Select
End Function

Answer 1

我认为您的错误是由于以下原因造成的：

 nwks = (Cells(3, 2) - LastCell.Value) / 7

LastCell是一个字符串，因此不需要.Value

 nwks = (Cells(3, 2) - LastCell) / 7

---

您可以在VBA中使用DATEDIFF函数。

  DateDiff( interval, date1, date2, [firstdayofweek], [firstweekofyear] )

用法示例：

nwks = DateDiff("ww", Cells(3, 2).Value, LastCell.Value)

您可以在此处查看DATEDIFF的文档