- 帖子
- 824
- 主題
- 6
- 精華
- 0
- 積分
- 904
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2023-12-24
|
2#
發表於 2016-5-11 22:18
| 只看該作者
回復 1# EGBT - Sub nn()
- Dim lI&, lRow&
-
- Cells.Clear
- lI = Int(Rnd * 1000 + 1)
- For lRow = 1 To lI
- Cells(lRow, 1).Interior.ColorIndex = Int(Rnd * 1000 + 1) Mod 50
- Next
-
- For lRow = Rows.Count To 1 Step -1
- If Cells(lRow, 1).Interior.ColorIndex = 34 Then
- DoEvents
- MsgBox ("A" & lRow)
- Exit For
- End If
- Next
- End Sub
|
|
