　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-4-18 17:11 | 只看該作者

[發問] 關於篩選與其背景顏色設定問題

想請問一下就是有關於篩選和背景顏色的問題
因為我想設定不同人就有不同的背景顏色
想請問假使每種都要不同的背景顏色
那要如何去判斷
小弟有試著去寫
但是卻都只會呈現一種
格式例如
a b c
1 1 1
2 2 2
3 3 3
4 4 4
5 5 5
6 6 6
7 7 7
8 8 8
9 9 9
10 10 10
11 11 11
12 12 12
13 13 13
14 14 14
15 15 15
16 16 16
17 17 17
18 18 18
19 19 19

例如在VBA直接將篩選的條件改為C7的話背景為紅色
在VBA直接將篩選的條件改為C9的話背景為紫色

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

11^#

發表於 2011-4-21 12:46 | 只看該作者

謝謝兩位
我再試驗看看好了

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2011-4-20 23:06 | 只看該作者

2007版可使用Interior.Color屬性
利用字元碼來區別

Private Sub Worksheet_Calculate()
For r = 2 To Cells(Rows.Count, 3).End(xlUp).Row
For i = 1 To Len(Cells(r, 3))
k = k + Asc(Cells(r, 3))
Next
Cells(r, 1).Resize(, 3).Interior.Color = 10000000000# / k
k = 0
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

9^#

發表於 2011-4-20 19:41 | 只看該作者

回復 8# mark15jill

Sub Ex()
Dim x(), i, c As Range
x = Array("陳一", "徐二", "張三", "李四", "王五")
For Each c In Range("c:c").SpecialCells(xlCellTypeConstants)
i = Application.Match(c, x, 0)
If IsNumeric(i) Then c(1, -1).Resize(, 3).Interior.ColorIndex = i + 2 '色盤中的索引值
Next
End Sub

複製代碼

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

8^#

發表於 2011-4-20 10:28 | 只看該作者

謝謝兩位版主
想再請問一下關於
x= "QWERT" 這點是要直接設在一起?
那如果是中文的話要怎區分呢?
另外顏色設置這邊的話 interior.colorindex=i+2 這串是? 對不起真的不懂...

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

7^#

發表於 2011-4-19 17:06 | 只看該作者

Sub yy()
Dim x$, i%, c As Range
x = "QWERT"
For Each c In Range("c:c").SpecialCells(xlCellTypeConstants)
i = InStr(x, UCase(c))
If i Then c(1, -1).Resize(, 3).Interior.ColorIndex = i + 2
Next
End Sub

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2011-4-19 16:33 | 只看該作者

Sub yy()
Dim x$, i%, c As Range
x = "QWERT"
With [c:c]
      For i = 1 To 5
         Set c = .Find(Mid(x, i, 1), [c65536], , 1)
         If Not c Is Nothing Then
            d = c.Address
            Do
                  c(1, -1).Resize(, 3).Interior.ColorIndex = i + 2
                  Set c = .FindNext(c)
            Loop Until c.Address = d
         End If
      Next
End With
End Sub

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2011-4-19 11:45 | 只看該作者

不好意思大概我沒把意思表達清楚
我重新表達一次
格式例如
a       b       c
1       1       Q
2       2       W
3       3       E
4       4       R
5       5       T
6       6       Q
7       7       W
8       8       E
9       9       R
10    10    T

而 C 的種類只有5種
a和b資料筆數卻有上千筆
(好比有5個人要處理 1千筆資料的意思)
謝謝

TOP

oobird