標題: [發問] 關於 存儲格顏色 [打印本頁]

---

作者: EGBT    時間: 2016-5-11 16:15     標題: 關於 存儲格顏色

如標題：關於 存儲格顏色

要怎麼知道ColorIndex=34在A欄最後一個在哪裡呢?

麻煩各位大大解盲了~! 感恩!

---

作者: luhpro    時間: 2016-5-11 22:18

回復 1# EGBT

1. Sub nn()
   
2.   Dim lI&, lRow&
   
3.   
   
4.   Cells.Clear
   
5.   lI = Int(Rnd * 1000 + 1)
   
6.   For lRow = 1 To lI
   
7.     Cells(lRow, 1).Interior.ColorIndex = Int(Rnd * 1000 + 1) Mod 50
   
8.   Next
   
9.   
   
10.   For lRow = Rows.Count To 1 Step -1
    
11.     If Cells(lRow, 1).Interior.ColorIndex = 34 Then
    
12.       DoEvents
    
13.       MsgBox ("A" & lRow)
    
14.       Exit For
    
15.     End If
    
16.   Next
    
17. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)