如何实现符合条件的内容标红

simba999

因为数据实在太多了每次筛选的时候太过麻烦，所以请各位大神支支招，就是分两个表，一个是进度表，一个是房间表，房间表中如果楼栋达到封顶就正常显示，如果是在建就让数据标红。提前谢谢各位大神
符合条件.zip (8.87 KB, 下载次数: 3)

2019-11-8 15:24 上传

点击文件名下载附件

astupig

条件格式就可以达到了, 不用VBA.

simba999

astupig 发表于 2019-11-8 15:30
条件格式就可以达到了, 不用VBA.

因为工程进度变化的很快，所以条件格式不适用

larer

工程进度再快,也没有条件格式的速度快.

simba999

有思路了，建立字典。

tigertc

请参考:

1. Sub lqh()
   
2. Dim arr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets("进度表").Range("A1:B" & Sheets("进度表").[A65535].End(3).Row)
   
5. For i = 2 To UBound(arr)
   
6.     If arr(i, 2) = "封顶" Then
   
7.         d(arr(i, 1)) = -4142
   
8.     Else
   
9.         d(arr(i, 1)) = 3
   
10.     End If
    
11. Next i
    
12. For i = 2 To [a65536].End(3).Row
    
13.     Rows(i).Interior.ColorIndex = d(Split(Cells(i, 1), "-")(1))
    
14. Next i
    
15. End Sub

复制代码

tigertc

............请参考附件

simba999

tigertc 发表于 2019-11-8 22:37
请参考:

我的房号表房号改到G列，我修改代码Cells(i, 7)却依然是从A列取数。需要从哪里修改？

simba999

1. Sub 调用数据表列对应值()
   
2. Dim arr, brr, crr(), r, rr, i%, ii%
   
3. 
   
4. arr = Sheets("数据").Range("a3:E" & Sheets("数据").Range("a65536").End(3).Row)
   
5. r = UBound(arr)
   
6. brr = Sheets("表格").Range("a4:c" & Range("a65536").End(3).Row)
   
7. rr = UBound(brr)
   
8. ReDim crr(1 To rr, 1 To 1)
   
9. For i = 1 To r
   
10.     For ii = 1 To rr
    
11.    
    
12.      If arr(i, 2) = "是" And InStr(1, brr(ii, 1), arr(i, 1)) > 0 Then
    
13.          crr(ii, 1) = arr(i, 2)
    
14.          Rows(ii + 3).Interior.ColorIndex = -4142
    
15.      ElseIf arr(i, 2) = "否" And InStr(1, arr(i, 1), brr(ii, 1)) > 0 Then
    
16.          crr(ii, 1) = arr(i, 2)
    
17.          Rows(ii + 3).Interior.ColorIndex = 3
    
18.      End If
    
19.      
    
20.     Next
    
21. Next
    
22. [c4].Resize(ii - 1, 1) = crr
    
23. End Sub
    

复制代码

符合条件.zip (13.62 KB, 下载次数: 6)

2019-11-10 15:22 上传

点击文件名下载附件

谢谢各位，自己琢磨了好几天终于满足了

simba999

tigertc 发表于 2019-11-8 22:49
............请参考附件

谢谢，已经解决了。