- 帖子
- 21
- 主題
- 4
- 精華
- 0
- 積分
- 35
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- office2007
- 閱讀權限
- 10
- 註冊時間
- 2011-3-2
- 最後登錄
- 2016-2-3
|
感謝各位大大的幫忙, 試了多次終於成功.
待取的紅色儲存格
取的紅色儲存格
- Option Explicit
-
- Sub Ex()
-
- Dim A As Range, A_Po As String
- Dim AA As Range, Sh As Worksheet
-
- 'FindFormat 屬性 設定或傳回要尋找之儲存格格式類型的搜尋準則。
-
- With Application.FindFormat
-
- .Clear '清除以前的設定
-
- .Interior.Color = vbRed '設定儲存格圖樣顏色(紅色)
-
- ' .Interior.ColorIndex = 3 '設定儲存格圖樣顏色(紅色)
-
- '.Font.Bold = True '粗體
-
- '.Font.Size = 12 '字型大小
-
- End With
-
- 'Set Sh = ActiveSheet
-
- 'Set A = Sh.Cells.Find("", AFTER:=Sh.Cells(Sh.Cells.Count), SearchFormat:=True) 'SearchFormat 選擇性的 Variant。搜尋的格式。
-
- Set Sh = ActiveSheet
-
- '2003-> Sh.Cells.Count 是沒錯誤的
- ' Set A = Sh.Cells.Find("", AFTER:=Sh.Cells(Sh.Cells.Count), SearchFormat:=True) 'SearchFormat 選擇性的 Variant。搜尋的格式。
-
- Set A = Sh.Cells.Find("", AFTER:=Sh.Cells(Sh.Cells.Rows.Count, Sh.Cells.Columns.Count), SearchFormat:=True) 'SearchFormat 選擇性的 Variant。搜尋的格式。
-
-
-
-
- Do While Not A Is Nothing
-
- If A_Po = "" Then
-
- A_Po = A.Address
-
- Set AA = A
-
- End If
-
- Set AA = Union(AA, A)
-
- Set A = Sh.Cells.Find(What:="", AFTER:=A, SearchFormat:=True) '下一個相同格式搜尋
-
- If A_Po = A.Address Then Exit Do
-
- Loop
-
- If Not A Is Nothing Then AA.Copy Sheets("Sheet2").Range("A1")
-
- End Sub
但用' .Interior.ColorIndex = 3 '設定儲存格圖樣顏色(紅色) 就失敗(找不到相關顏色.)
如果是用能 input = 顏色 代入當變數 可行嗎? 應該怎麼做?
請再次指導.
感謝 |
|
發表於 2014-8-14 13:09
| 
