12
返回列表 上一主題 發帖

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

pkey1999

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

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章
9# 跳轉到 »
發表於 2019-6-14 14:56 | 只看該作者
我測試 看看

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-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

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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
7#
發表於 2019-6-8 07:18 | 只看該作者
回復 6# pkey1999
上頭的程式碼試題共擬參考套用的，
現在我直接將它套入到程式碼內：
  1. Sub 自動記錄()
  2.     .
  3.     .
  4.     .

  6.     If xRow < 9 Then xRow = 9
  7.     ShtA.Range("A" & xRow & ":N" & xRow).Value = ShtA.Range("A8:N8").Value
  8.     If ShtA.Range("C" & xRow).Value >= 5 Then
  9.         ShtA.Range("C" & xRow).Font.Color = 255           '  紅色
  10.     ElseIf ShtA.Range("C" & xRow).Value <= -5 Then
  11.         ShtA.Range("C" & xRow).Font.Color = 65535         '  黃色 (字型顏色)
  12.         '  ShtA.Range("C" & xRow).Interior.Color = 65535  '  黃色 (填滿底色)
  13.         '  選擇你要的類型
  14.     End If

  16.     .
  17.     .
  18.     .
  19. End Sub
複製代碼

TOP

pkey1999

帖子
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以上改黃色

90347.jpg

TOP

pkey1999

帖子
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以上改黃色

90347.jpg

TOP

pkey1999

帖子
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內建功能 "設定格式化的條件"

  無法執行軟體

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2019-6-7 07:19 | 只看該作者
回復 1# pkey1999
不知你要哪一個?
  1. Sub 巨集1()
  2. '
  3. ' 巨集1 巨集
  4. '

  6. '
  7.     Range("E9").Select
  8.     With Selection.Interior   '  填滿底色
  9.         .Pattern = xlSolid
  10.         .PatternColorIndex = xlAutomatic
  11.         .Color = 15773696     ' 天藍色
  12.         .TintAndShade = 0
  13.         .PatternTintAndShade = 0
  14.     End With
  15. End Sub

  17. Sub 巨集2()
  18. '
  19. ' 巨集2 巨集
  20. '

  22. '
  23.     With Selection.Font    '  字型顏色
  24.         .Name = "Arial"
  25.         .FontStyle = "標準"
  26.         .Size = 10
  27.         .Strikethrough = False
  28.         .Superscript = False
  29.         .Subscript = False
  30.         .OutlineFont = False
  31.         .Shadow = False
  32.         .Underline = xlUnderlineStyleNone
  33.         .Color = 192      '  咖啡色
  34.         .TintAndShade = 0
  35.         .ThemeFont = xlThemeFontNone
  36.     End With
  37. End Sub
複製代碼

TOP

mistery

帖子
82 
主題
5 
精華
0 
積分
115 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2010-5-1 
最後登錄
2023-4-18 
2#
發表於 2019-6-6 18:15 | 只看該作者
直接使用EXCEL內建功能 "設定格式化的條件"

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
12
返回列表 上一主題