[發問] 求助 特定列格中改顏色

帖子: 82
主題: 5
精華: 0
積分: 115
點名: 0
作業系統: Vista
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2010-5-1
最後登錄: 2024-12-13

2^#

發表於 2019-6-6 18:15 | 只看該作者

直接使用EXCEL內建功能 "設定格式化的條件"

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2019-6-7 07:19 | 只看該作者

回復 1# pkey1999
不知你要哪一個?

Sub 巨集1()
'
' 巨集1 巨集
'
'
Range("E9").Select
With Selection.Interior ' 填滿底色
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696 ' 天藍色
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Sub 巨集2()
'
' 巨集2 巨集
'
'
With Selection.Font ' 字型顏色
.Name = "Arial"
.FontStyle = "標準"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 192 ' 咖啡色
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub

複製代碼

帖子: 35
主題: 12
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2016-1-13
最後登錄: 2023-7-15

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

4^#

發表於 2019-6-7 10:17 | 只看該作者

本帖最後由 pkey1999 於 2019-6-7 10:20 編輯

直接使用EXCEL內建功能 "設定格式化的條件"

無法執行軟體

帖子: 35
主題: 12
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2016-1-13
最後登錄: 2023-7-15

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

5^#

發表於 2019-6-7 10:31 | 只看該作者

本帖最後由 pkey1999 於 2019-6-7 10:34 編輯

:'( :'( :'( :'( :'(

90347.jpg (126.24 KB)

框框以內 -5以上改黃色

帖子: 35
主題: 12
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2016-1-13
最後登錄: 2023-7-15

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

6^#

發表於 2019-6-8 02:17 | 只看該作者

回復 3# c_c_lai

懇求幫我把輸入程式到執行偵測無誤可以正常使用執行

我對這個一竅不通怎麼輸入一直偵測錯誤

90347.jpg (126.24 KB)

框框以內 -5以上改黃色

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2019-6-8 07:18 | 只看該作者

回復 6# pkey1999
上頭的程式碼試題共擬參考套用的，
現在我直接將它套入到程式碼內：

Sub 自動記錄()
.
.
.
If xRow < 9 Then xRow = 9
ShtA.Range("A" & xRow & ":N" & xRow).Value = ShtA.Range("A8:N8").Value
If ShtA.Range("C" & xRow).Value >= 5 Then
ShtA.Range("C" & xRow).Font.Color = 255 ' 紅色
ElseIf ShtA.Range("C" & xRow).Value <= -5 Then
ShtA.Range("C" & xRow).Font.Color = 65535 ' 黃色 (字型顏色)
' ShtA.Range("C" & xRow).Interior.Color = 65535 ' 黃色 (填滿底色)
' 選擇你要的類型
End If
.
.
.
End Sub

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-22

8^#

發表於 2019-6-8 09:57 | 只看該作者

ShtA.Range("A" & xRow & ":N" & xRow).Value = ShtA.Range("A8:N8").Value
With ShtA.Range("E" & xRow)
If .Value >= -5 Then
   .Font.ColorIndex = 3 '字體-紅色
   .Font.Bold = True '粗體字
   .Interior.ColorIndex = 6 '底色-黃色
Else
   .Font.ColorIndex = 5  '字體-藍色
   .Font.Bold = False '標準
   .Interior.ColorIndex = 0 '底色-無
End If
End With

==========================