用VBA进行多条件判断

☆玉树临风

请教用VBA进行多条件判断，问题见附加！谢谢！
用VBA多条件判断.rar (19.11 KB, 下载次数: 47)

2012-2-24 08:30 上传

点击文件名下载附件

skyzxh

...............................

蓝桥玄霜

1. Sub 按钮34_单击()
   
2. Dim Arr, i&, d, Brr, x$
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Sheet1.Activate
   
5. Arr = [o2].CurrentRegion
   
6. For i = 3 To UBound(Arr)
   
7.     x = Arr(i, 2) & "|" & Arr(i, 3)
   
8.     d(x) = ""
   
9. Next
   
10. Brr = [a2].CurrentRegion
    
11. For i = 3 To UBound(Brr)
    
12.     x = Brr(i, 2) & "|" & Brr(i, 3)
    
13.     If Not d.exists(x) Then
    
14.         Brr(i, 10) = "没有"
    
15.     Else
    
16.         Brr(i, 10) = "有"
    
17.     End If
    
18. Next
    
19. [j1].Resize(UBound(Brr), 1) = Application.Index(Brr, 0, 10)
    
20. End Sub
    

复制代码

蓝桥玄霜

请见附件。

doitbest

第三问题，其他原理相同

1. Public Sub bd3()
   
2. Dim ar, br(), i%, str$
   
3. ar = Range("b3:j" & [b3].End(4).Row)
   
4. ReDim br(1 To Range("p4:p" & [p4].End(4).Row).Rows.Count)
   
5. For i = 4 To [p4].End(4).Row
   
6.     br(i - 3) = Join(Application.Transpose(Application.Transpose(Cells(i, "p").Resize(1, 8))))
   
7. Next i
   
8. 
   
9. For i = 1 To UBound(ar)
   
10.     str = Join(Application.Transpose(Application.Transpose(Cells(i + 2, 2).Resize(1, 8))))
    
11.     If IsNumeric(Application.Match(str, br, 0)) Then ar(i, 9) = "有"
    
12. Next i
    
13. Range("b3").Resize(UBound(ar), UBound(ar, 2)) = ar
    
14. End Sub

复制代码

☆玉树临风

2楼、5楼的好像有点问题，正在查找测试！！

巴文

来个好懂的.zip (557.88 KB, 下载次数: 0)

2023-4-5 16:18 上传

点击文件名下载附件