[已解决]多条件VBA代码求助

曾予曦

谢谢高手帮忙解决！刚才疏漏了一个条件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-6-19 11:44

1. Private Sub CommandButton1_Click()
   
2.     Dim ar, i
   
3.     ar = Range("a1:d" & Range("a1048576").End(3).Row)
   
4.     For i = 2 To UBound(ar)
   
5.         If ar(i, 2) = 6 Then
   
6.             If ar(i, 3) < 16 Then
   
7.                 ar(i, 4) = "短料"
   
8.             ElseIf ar(i, 3) < 21 Then
   
9.                 ar(i, 4) = "常规料"
   
10.             Else
    
11.                 ar(i, 4) = "长料"
    
12.             End If
    
13.         ElseIf ar(i, 2) = 8 Then
    
14.             If ar(i, 3) < 20 Then
    
15.                 ar(i, 4) = "短料"
    
16.             ElseIf ar(i, 3) < 41 Then
    
17.                 ar(i, 4) = "常规料"
    
18.             Else
    
19.                 ar(i, 4) = "长料"
    
20.             End If
    
21.         End If
    
22.     Next
    
23.     Range("a1").Resize(UBound(ar), UBound(ar, 2)) = ar
    
24. End Sub
    

复制代码

IF语句双条件求助.rar (19.3 KB, 下载次数: 22)

2014-6-19 11:46 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

1. Private Sub CommandButton1_Click()
   
2.     Dim ar, i
   
3.     ar = Range("a1:d" & Range("a1048576").End(3).Row)
   
4.     For i = 2 To UBound(ar)
   
5.         If ar(i, 2) = 6 Then
   
6.             If ar(i, 3) < 16 Then
   
7.                 ar(i, 4) = "短料"
   
8.             ElseIf ar(i, 3) < 21 Then
   
9.                 ar(i, 4) = "常规料"
   
10.             Else
    
11.                 ar(i, 4) = "长料"
    
12.             End If
    
13.         ElseIf ar(i, 2) = 8 Then
    
14.             If ar(i, 3) < 20 Then
    
15.                 ar(i, 4) = "短料"
    
16.             ElseIf ar(i, 3) < 41 Then
    
17.                 ar(i, 4) = "常规料"
    
18.             Else
    
19.                 ar(i, 4) = "长料"
    
20.             End If
    
21.         End If
    
22.     Next
    
23.     Range("a1").Resize(UBound(ar), UBound(ar, 2)) = ar
    
24. End Sub
    

复制代码

IF语句双条件求助.rar (19.3 KB, 下载次数: 22)

2014-6-19 11:46 上传

点击文件名下载附件

曾予曦

非常感谢！致敬！

含月化烛

Range("a1048576").End(3).Row这一句是什么意思呢

含月化烛

为什么是.end(3)呢

含月化烛

end(3)与end（xlup）区别在哪呢

含月化烛

qh8600 发表于 2014-6-19 11:44

为什么是.end(3)呢，与end(xlup)区别在哪呢？

qh8600

含月化烛 发表于 2014-6-19 14:28
为什么是.end(3)呢，与end(xlup)区别在哪呢？

一样的，枚举 xlup枚举值是3
还可以写成  ar=Range("a1:d" & Cells(Rows.Count, 1).End(xlUp).Row)

含月化烛

qh8600 发表于 2014-6-19 15:03
一样的，枚举 xlup枚举值是3
还可以写成  ar=Range("a1:d" & Cells(Rows.Count, 1).End(xlUp).Row)

非常感谢，什么时候我的vba也能这么厉害，我现在还是菜鸟。。。。

含月化烛

含月化烛 发表于 2014-6-19 14:21
end(3)与end（xlup）区别在哪呢

非常感谢！