过滤空值

pgzxliu

下边是excel的一段宏，意思是大于50mm以上的站点重点提示，但是为什么当站点的数值为空时，也会被挑选呢。。。怎么修改才能过滤点空值呢


Private Sub Worksheet_Activate()
    Dim rng As Range, strCT As String
    For Each rng In Range("d7:d20,h7:h20")
        If rng.Value >= 50 Then
            strCT = strCT & "," & rng.Offset(, -1).Value
        End If
    Next
    [i7] = ""
    If strCT > "" Then [i7] = Mid(strCT, 2) _
        & "站点已达暴雨量级，发生气象灾害及气象次生、衍生灾害可能性较高，请注意防范。"
End Sub

pgzxliu

朱荣兴 发表于 2018-7-29 17:28
请上传你的附件，方便测试代码

这个是附件

DevilW

If IsNumeric(rng) And rng.Value >= 50 Then
修改下判断条件：单元格是数值而且不小于50

BenjaminToo

1. Private Sub Worksheet_Activate()
   
2.     Dim rng As Range, strCT As String
   
3.     For Each rng In Range("d7:d20,h7:h20")
   
4.         If Val(rng)>= 50 Then           ’改这里，将rng 强行转为数值
   
5.             strCT = strCT & "," & rng.Offset(, -1).Value
   
6.         End If
   
7.     Next
   
8.     [i7] = ""
   
9.     If strCT > "" Then [i7] = Mid(strCT, 2) _
   
10.         & "站点已达暴雨量级，发生气象灾害及气象次生、衍生灾害可能性较高，请注意防范。"
    
11. End Sub
    
12. 
    

复制代码

这样，看标识

pgzxliu

谢谢，已经正常了

pgzxliu

BenjaminToo 发表于 2018-7-29 18:03
这样，看标识

还有个问题，就是修改完数据的话，必须要切换下sheet才能转换过来，有没有别的办法，不用切换也能填写的。

BenjaminToo

pgzxliu 发表于 2018-7-29 18:32
还有个问题，就是修改完数据的话，必须要切换下sheet才能转换过来，有没有别的办法，不用切换也能填写的 ...

你的意思是修改Sheet1 还是 小时降水 的数据。