怎麼取有顏色儲存格內的值 - Excel程式區

[發問] 怎麼取有顏色儲存格內的值

4^# 跳轉到 »

發表於 2014-8-14 17:52 | 只看該作者

我試著用MACRO錄製有成功取的儲存格(紅色)的值.
單一行可以成功,那多行的話要怎麼修改取的多行的值.
請大大再次指導

複製代碼

3^#

發表於 2014-8-14 17:25 | 只看該作者

謝謝大大幫忙.

我執行後有出現下列訊息,我要再修改何處?

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-8-14 14:49 | 只看該作者

本帖最後由 GBKEE 於 2014-8-14 14:55 編輯

回復 1# sunland

試試看

Option Explicit
Sub Ex()
Dim A As Range, A_Po As String
Dim AA As Range
'FindFormat 屬性設定或傳回要尋找之儲存格格式類型的搜尋準則。
With Application.FindFormat
.Clear '清除以前的設定
' .Interior.Color = vbred '設定儲存格圖樣顏色(紅色)
.Interior.ColorIndex = 3 '設定儲存格圖樣顏色(紅色)
'.Font.Bold = True '粗體
'.Font.Size = 12 '字型大小
End With
Set A = Cells.Find("", AFTER:=Cells(Cells.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 = 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("目標工作表").Range("A1")
End Sub
Sub Ex_A() '找顏色 ColorIndex 可如此得到
MsgBox Range("A1").Interior.ColorIndex
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。