excel - 所有日期变量的 IF 逻辑为空
问题描述
我正在尝试修改以下函数以包含逻辑,如果变量和PPD_1_Date
都是空的(空白)然后输出到我的“错误”工作表。PPD_2_Date
TSpot_Date
我有应该属于这种逻辑的行,但是它们却属于 Else 条件。
Function PPDdate()
Dim PPD_1_Date As Date
Dim PPD_2_Date As Date
Dim TSpot_Date As Variant
Dim i As Long, j As Long, k As Long
j = Worksheets("PPDCI").Range("A" & Rows.Count).End(xlUp).Row + 1
k = Worksheets("Error").Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 2 To lstrow
PPD_1_Date = Worksheets("Data").Range("AW" & i)
PPD_2_Date = Worksheets("Data").Range("BA" & i)
Entity = Worksheets("Data").Range("J" & i)
Dept = Worksheets("Data").Range("M" & i)
TSpot_Date = Worksheets("Data").Range("AS" & i)
If PPD_1_Date > PPD_2_Date Then
Worksheets("PPDCI").Range("A" & j & ":C" & j).Value = Worksheets("Data").Range("A" & i & ":C" & i).Value
Worksheets("PPDCI").Range("F" & j).Value = PPD_1_Date
Worksheets("PPDCI").Range("G" & j).Value = Worksheets("Data").Range("AX" & i).Value
Worksheets("PPDCI").Range("H" & j).Value = Worksheets("Data").Range("AZ" & i).Value
Worksheets("PPDCI").Range("I" & j).Value = Worksheets("Data").Range("AY" & i).Value
j = j + 1
Else
If PPD_1_Date < PPD_2_Date Then
Worksheets("PPDCI").Range("A" & j & ":C" & j).Value = Worksheets("Data").Range("A" & i & ":C" & i).Value
Worksheets("PPDCI").Range("F" & j).Value = PPD_2_Date
'Worksheets("PPDCI").Range("G" & j).Value = "ELSE IF CONDITION"
Worksheets("PPDCI").Range("G" & j).Value = Worksheets("Data").Range("BB" & i).Value
Worksheets("PPDCI").Range("H" & j).Value = Worksheets("Data").Range("BD" & i).Value
Worksheets("PPDCI").Range("I" & j).Value = Worksheets("Data").Range("BC" & i).Value
j = j + 1
Else
'If IsEmpty(Worksheets("Data").Range(PPD_1_Date & i).Value) = True And IsEmpty(Worksheets("Data").Range(PPD_2_Date & i).Value) = True Then
'GoTo EmptyRange
'Else
If (InStr(1, Entity, "CNG Hospital") Or InStr(1, Entity, "Home Health") Or InStr(1, Entity, "Hospice") Or InStr(1, Dept, "Volunteers") Or ((IsEmpty(PPD_1_Date) = True) And (IsEmpty(PPD_2_Date) = True))) And IsEmpty(TSpot_Date) = True Then
Worksheets("Error").Range("A" & k & ":H" & k).Value = Worksheets("Data").Range("A" & i & ":C" & i).Value
Worksheets("Error").Range("F" & k).Value = "REVIEW PPD DATA"
k = k + 1
Else
Worksheets("PPDCI").Range("A" & j & ":C" & j).Value = Worksheets("Data").Range("A" & i & ":C" & i).Value
Worksheets("PPDCI").Range("F" & j).Value = TSpot_Date
Worksheets("PPDCI").Range("G" & j).Value = Worksheets("Data").Range("AX" & i).Value
Worksheets("PPDCI").Range("H" & j).Value = Worksheets("Data").Range("AY" & i).Value
Worksheets("PPDCI").Range("I" & j).Value = "NO PPD DATES BUT HAS TSPOT DATE1"
j = j + 1
End If
End If
End If
'EmptyRange:
'k = k + 1
Next i
End Function
这是我添加到其他 OR 逻辑的代码;
Or ((IsEmpty(PPD_1_Date) = True) And (IsEmpty(PPD_2_Date) = True))
示例行在 AW、BA 和 AS 列中有空单元格,因此它应该写入我的错误工作表。是否存在语法或逻辑问题?我最初确实将 TSPOT_Date 定义为 Date 变量,但是我收到了“1004”运行时错误(我认为是因为某些列行是空的)所以我更改为 Variant,但是逻辑仍然无法按预期工作。
解决方案
您遇到的问题是您无法检查Date
变量是否为“空” usingisEmpty()
甚至 withLen()
因为 date 的默认值为30-Dec-1899 00:00:00
,因此 Date 变量中始终存在一个值。
相反,您应该检查Date
变量是否为空/尚未像这样填充
If PPD_2_Date = 0 Then
...
推荐阅读
- jsonata - 如何使用 JSONata 将嵌套对象展平为单个深度对象?
- prolog - 如何在 Prolog 的另一个谓词中使用列表?
- android - Android Management API 设备安装、删除等
- php - 带有 Firebase JWT 的 PHP Slim
- c# - Xml 反序列化。是否可以从xml保存字符串格式?
- python - 应用 GA 运算符后,原始列表发生了变异
- python-3.x - 在标签类别下输入用户名
- android - ffmpeg 无法确定输入流 0:0 的格式后 EOF 错误将某些 mkv 视频的过滤器标记为已完成
- excel - 移动工作表后,Excel 中的替换功能不再起作用
- java - Java Android OpenCV - 添加饱和语法