- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
回復 1# jj369963
老版EXCEL不能經VBA選出"條件格式"的顏色.
可以真表用代碼寫出- Sub test()
- Dim lngRowPwd As Long, lngRowNoAns As Long
- lngRowPwd = 1
- lngRowNoAns = 1
- For Each c In Range(Range("A1"), Range("A65536").End(xlUp))
- If Application.WorksheetFunction.CountA(Range(c, c.Offset(0, 1))) = 0 Then 'A:B
- Worksheets("無帳密").Rows(lngRowPwd).Value = Rows(c.Row).Value
- lngRowPwd = lngRowPwd + 1
- ElseIf Application.WorksheetFunction.CountA(Range(c.Offset(0, 7), c.Offset(0, 94))) <> 88 Then 'H:CQ
- Worksheets("無作答").Rows(lngRowNoAns).Value = Rows(c.Row).Value
- lngRowNoAns = lngRowNoAns + 1
- End If
- Next
- End Sub
|
|
發表於 2013-11-1 00:27
| 