sunland

小學生 Rank: 1

帖子: 21
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: WINXP
軟體版本: office2007
閱讀權限: 10
註冊時間: 2011-3-2
最後登錄: 2016-2-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-8-14 13:09 | 顯示全部帖子

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

請教大大們,
如何寫一個vba 或是macro 輸入儲存格的顏色(粉色),將sheet中相同顏色(粉色\欄位),然後複製到另一個sheet 中.
請大大們指導.

樓主熱帖

sunland

小學生 Rank: 1

帖子: 21
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: WINXP
軟體版本: office2007
閱讀權限: 10
註冊時間: 2011-3-2
最後登錄: 2016-2-3

2^#

發表於 2014-8-14 17:25 | 顯示全部帖子

謝謝大大幫忙.

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

TOP

sunland

小學生 Rank: 1

帖子: 21
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: WINXP
軟體版本: office2007
閱讀權限: 10
註冊時間: 2011-3-2
最後登錄: 2016-2-3

3^#

發表於 2014-8-14 17:52 | 顯示全部帖子

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

Sub Macro7()
'
With Application.FindFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate
Sheets("Sheet1").Select
Range("A8:AJ8").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
End Sub

複製代碼

TOP

sunland

小學生 Rank: 1

帖子: 21
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: WINXP
軟體版本: office2007
閱讀權限: 10
註冊時間: 2011-3-2
最後登錄: 2016-2-3

4^#

發表於 2014-8-15 08:09 | 顯示全部帖子

出現相同的錯誤, 我使用的是excel 2007 不知道有沒有關連?

TOP

sunland

小學生 Rank: 1

帖子: 21
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: WINXP
軟體版本: office2007
閱讀權限: 10
註冊時間: 2011-3-2
最後登錄: 2016-2-3

5^#

發表於 2014-8-15 11:43 | 顯示全部帖子

[版主管理留言]

GBKEE(2014/8/15 14:02): 請上傳這程式碼的檔案

大大請再過目.
謝謝

TOP

sunland

小學生 Rank: 1

帖子: 21
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: WINXP
軟體版本: office2007
閱讀權限: 10
註冊時間: 2011-3-2
最後登錄: 2016-2-3

6^#

發表於 2014-8-18 09:05 | 顯示全部帖子

感謝各位大大的幫忙, 試了多次終於成功.
待取的紅色儲存格

取的紅色儲存格

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.Color = vbRed '設定儲存格圖樣顏色(紅色) ,就能找到.
但用' .Interior.ColorIndex = 3 '設定儲存格圖樣顏色(紅色) 就失敗(找不到相關顏色.)
如果是用能 input = 顏色代入當變數可行嗎? 應該怎麼做?
請再次指導.
感謝

TOP

sunland

小學生 Rank: 1

帖子: 21
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: WINXP
軟體版本: office2007
閱讀權限: 10
註冊時間: 2011-3-2
最後登錄: 2016-2-3

7^#

發表於 2014-8-18 09:22 | 顯示全部帖子

我真是太不用心了,大大在一開始就指導怎麼抓color code,
更新一下.

這下全部都解決了~問題.
謝謝

Sub Ex_A() '找顏色 ColorIndex 可如此得到
MsgBox Range("A1").Interior.ColorIndex '抓色
MsgBox Range("A1").Interior.Color '抓色值
End Sub

複製代碼

TOP