各位老师:请帮帮忙!
要求是:在“report .xls”工作薄中,计算当j列的值小于或等于“15岁”时,判断相应行的f列是否有“家长姓名”,否则提示信息应修改,相应行的数据显示为粉红色。 现在的问题是: 当j列的年龄单位为"月"或"天"(即小于"1岁"或"30天")时怎样按上述要求进行小于15岁的判断?
- ' 判断年龄
- cellValue = Sheet1.Cells(ii, COL_AGE).Value '当年龄单位为"月"或"天"即小于"1岁"或"30天"时怎样判断?
- If Val(cellValue) <= 15 Or InStr(cellValue, "岁") = 0 Then
- cellValue = VBA.Trim(Sheet1.Cells(ii, COL_PARENT).Value)
- If cellValue = "" Then
- Sheet1.Cells(ii, COL_PARENT).Interior.Color = 16711935
- MsgBox "第 " & ii & " 行,病人年龄小于15岁,但无家长姓名"
- End If
- End If
复制代码另外代码里面引用外部工作簿是一定要注意名称要跟实际文件的名称一致。 避免添加空格等字符导致引用失败。
|