[已解决]当年龄单位为“月”或“天”时，怎样判断其年龄小于15岁？

gwfzh

各位老师：请帮帮忙！

      要求是：在“report .xls”工作薄中，计算当j列的值小于或等于“15岁”时，判断相应行的f列是否有“家长姓名”，否则提示信息应修改，相应行的数据显示为粉红色。

      现在的问题是: 当j列的年龄单位为"月"或"天"（即小于"1岁"或"30天"）时怎样按上述要求进行小于15岁的判断？

     

最佳答案

月排行榜 / 总排行榜

suye1010

2012-10-29 10:04

1.    ' 判断年龄
   
2.     cellValue = Sheet1.Cells(ii, COL_AGE).Value '当年龄单位为"月"或"天"即小于"1岁"或"30天"时怎样判断？
   
3.      If Val(cellValue) <= 15 Or InStr(cellValue, "岁") = 0 Then
   
4.       cellValue = VBA.Trim(Sheet1.Cells(ii, COL_PARENT).Value)
   
5.       If cellValue = "" Then
   
6.          Sheet1.Cells(ii, COL_PARENT).Interior.Color = 16711935
   
7.         MsgBox "第 " & ii & " 行，病人年龄小于15岁，但无家长姓名"
   
8.       End If
   
9.     End If

复制代码

另外代码里面引用外部工作簿是一定要注意名称要跟实际文件的名称一致。 避免添加空格等字符导致引用失败。

跳转到最佳答案楼层

rebornxldeng

上个附件吧...这样不知道怎么下手啊{:181:}

gwfzh

rebornxldeng 发表于 2012-10-29 08:54
上个附件吧...这样不知道怎么下手啊

附件怎么上传不了？

rebornxldeng

gwfzh 发表于 2012-10-29 08:55
附件怎么上传不了？

要先压缩的... ...RAR格式和ZIP格式均可

gwfzh

rebornxldeng 发表于 2012-10-29 08:56
要先压缩的... ...RAR格式和ZIP格式均可

年龄判断.zip (24.9 KB, 下载次数: 6)

2012-10-29 09:07 上传

点击文件名下载附件
现好不容易传上附件！请各位老师帮忙了！

suye1010

1.    ' 判断年龄
   
2.     cellValue = Sheet1.Cells(ii, COL_AGE).Value '当年龄单位为"月"或"天"即小于"1岁"或"30天"时怎样判断？
   
3.      If Val(cellValue) <= 15 Or InStr(cellValue, "岁") = 0 Then
   
4.       cellValue = VBA.Trim(Sheet1.Cells(ii, COL_PARENT).Value)
   
5.       If cellValue = "" Then
   
6.          Sheet1.Cells(ii, COL_PARENT).Interior.Color = 16711935
   
7.         MsgBox "第 " & ii & " 行，病人年龄小于15岁，但无家长姓名"
   
8.       End If
   
9.     End If

复制代码

另外代码里面引用外部工作簿是一定要注意名称要跟实际文件的名称一致。 避免添加空格等字符导致引用失败。

gwfzh

suye1010 发表于 2012-10-29 10:04
另外代码里面引用外部工作簿是一定要注意名称要跟实际文件的名称一致。 避免添加空格等字符导致引用失败。

谢谢老师帮助！另外：
   语句：“startDate = CDate(Workbooks("report .xls").Worksheets(1).Cells(ii, COL_EXAMINE).Value)”
               在取诊断时间格式为“2012-10-2 16:00:00:”时，出现类型不匹配的错误，startDate是空值“ ”，该语句怎样更改？请老师能继续帮忙！