[已解决]请问改表达式怎么比大小 谢谢。。

ccc919

    If Cells(i, 2) Like "DN*"  And Cells(i, 2) Like "×*" Then
此VBA 只是对满足DN和×进行条件判断
那请问我如何对 DN后面的变量进行比大小判断
    If Cells(i, 2) Like 0 > "DN*" < 150 And Cells(i, 2) Like 0 > "×*" < 8.2 Then
这样写貌似不对
我就是想对 DN后面数字进行判断和×后面数字进行判断
如上面红色标记处
如 DN后面数字在（0到150之间）和×后面数字（在0到8.2之间）则进行条件判断！
求解谢谢

最佳答案

月排行榜 / 总排行榜

lichuanboy44

2016-4-20 21:04

不是一两句就能搞定的

1. Sub try()
   
2.     For i = 1 To 5
   
3.         s = Cells(i, 2)
   
4.         If s Like "DN*" Then
   
5.             ss = Val(Replace(s, "DN", ""))
   
6.             If ss > 0 And ss < 150 Then
   
7.                 MsgBox ss & "为0-150"
   
8.             Else
   
9.                 MsgBox ss & "不为0-150"
   
10.             End If
    
11.         ElseIf s Like "×*" Then
    
12.             ss = Val(Replace(s, "×", ""))
    
13.             If ss > 0 And ss < 8.2 Then
    
14.                 MsgBox ss & "为0-8.2"
    
15.             Else
    
16.                 MsgBox ss & "不为0-8.2"
    
17.             End If
    
18.         End If
    
19.     Next
    
20. End Sub

复制代码

跳转到最佳答案楼层

lichuanboy44

不是一两句就能搞定的

1. Sub try()
   
2.     For i = 1 To 5
   
3.         s = Cells(i, 2)
   
4.         If s Like "DN*" Then
   
5.             ss = Val(Replace(s, "DN", ""))
   
6.             If ss > 0 And ss < 150 Then
   
7.                 MsgBox ss & "为0-150"
   
8.             Else
   
9.                 MsgBox ss & "不为0-150"
   
10.             End If
    
11.         ElseIf s Like "×*" Then
    
12.             ss = Val(Replace(s, "×", ""))
    
13.             If ss > 0 And ss < 8.2 Then
    
14.                 MsgBox ss & "为0-8.2"
    
15.             Else
    
16.                 MsgBox ss & "不为0-8.2"
    
17.             End If
    
18.         End If
    
19.     Next
    
20. End Sub

复制代码

ccc919

lichuanboy44 发表于 2016-4-20 21:04
不是一两句就能搞定的

你好DN变量×变量 是这样的- -求解。。
已上传附件谢谢
计算表.rar (8.94 KB, 下载次数: 9)

2016-4-20 21:19 上传

点击文件名下载附件

lichuanboy44

Sub try()
    '将数据一次性写入数组，判断分析后，再一次性写入工作表，速度较快
    '你示例数据在A列，但原程序的语句Cells(i, 2)在B列，自己结合实际修改
    Dim br
    Row1 = Range("A65536").End(xlUp).Row
    arr = Range("A2:A" & Row1)
    ReDim br(1 To Row1 - 1, 1 To 1)
    For i = 1 To Row1 - 1
        s = arr(i, 1)     '原为s = Cells(i, 1)
        If s Like "DN*" And s Like "*×*" Then
            p = InStr(3, s, "×")
            a = Val(Mid(s, 3, p - 1))
            b = Val(Mid(s, p + 1, Len(s) - p))
            If a > 0 And a < 150 And b > 0 And b < 8.2 Then
                br(i, 1) = "末端"     'Cells(i, 5) = "末端"
            End If
        End If
    Next
    [E2].Resize(Row1 - 1, 1) = br
End Sub

pengyx

ccc919 发表于 2016-4-20 21:19
你好DN变量×变量 是这样的- -求解。。
已上传附件谢谢

试试

ccc919

lichuanboy44 发表于 2016-4-20 22:09
Sub try()
    '将数据一次性写入数组，判断分析后，再一次性写入工作表，速度较快
    '你示例数据在A列 ...

谢谢经过部分修改完美解决我的问题了谢谢

ccc919

pengyx 发表于 2016-4-20 22:14
试试

谢谢你的方法，我借鉴了下。都不错谢谢了！！