Question

我正在编写一个数据记录器程序，我需要编写一段excel VBA代码来创建给定月份的某些信息的运行总计。即如果该条目是在一月份期间输入的，并且该条目是某种类型的，则在摘要表中会连续运行该类型的很多条目。我有以下代码，但似乎不起作用：

 Dim DateCheck As Range

Set DateCheck = Worksheets("Jan").Range("Data_Start").End(xlDown)
Set SumCountLim1 = Worksheets("Jan").Range("Data_Start").End(xlDown).Offset(0, 3)
Set SumCountLim2 = Worksheets("Jan").Range("Obs_Start").End(xlDown)

If DateCheck.Value Like "##-01-##" Then        '-Should I use the month worksheet funct here?'
     Sheets("Site Visit Summary").Range("DateJan").Offset(17, 0).Value = 2

     Sheets("Site Visit Summary").Range("DateJan").Offset(1, 0) = _
     Sheets("Site Visit Summary").Range("DateJan").Offset(1, 0).Value + _
     Application.WorksheetFunction.CountIf(Range(SumCountLim1, SumCountLim2), "Housekeeping and Other Hazards")
Else 
End If

我希望我的解释清楚。预先谢谢你！

P.S。我在用户表单中使用了Microsoft日期选择器，以允许用户选择输入日期。我不知道这些添加的信息是否有帮助！

Answer 1

早安，

您似乎没有End if或

if DateCheck.value = Month(<Cell_Location_Of_Month) Then <some_action_here>

或

if DateCheck.value = Month(<Cell_Location_Of_Month) goto <some_location_here>

或

if DateCheck.value = Month(<Cell_Location_Of_Month) Then
    'Some_Action_here
else
    'Some_Other_Action_Here
end if

如何根据单元格中的日期继续执行If语句，Excel VBA

1 个答案: