Board logo

標題: [發問] 求助 特定列格中改顏色 [打印本頁]

作者: pkey1999    時間: 2019-6-3 14:16     標題: 求助 特定列格中改顏色

期均那列-5以上改黃色
作者: mistery    時間: 2019-6-6 18:15

直接使用EXCEL內建功能 "設定格式化的條件"
作者: c_c_lai    時間: 2019-6-7 07:19

回復 1# pkey1999
不知你要哪一個?
  1. Sub 巨集1()
  2. '
  3. ' 巨集1 巨集
  4. '

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

  15. Sub 巨集2()
  16. '
  17. ' 巨集2 巨集
  18. '

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

作者: pkey1999    時間: 2019-6-7 10:17

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

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

  無法執行軟體
作者: pkey1999    時間: 2019-6-7 10:31

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

:'(    :'(      :'(        :'(        :'(
作者: pkey1999    時間: 2019-6-8 02:17

回復 3# c_c_lai

   懇求幫我把輸入程式到執行 偵測無誤可以正常使用執行
  
   我對這個一竅不通   怎麼輸入  一直偵測錯誤
作者: c_c_lai    時間: 2019-6-8 07:18

回復 6# pkey1999
上頭的程式碼試題共擬參考套用的,
現在我直接將它套入到程式碼內:
  1. Sub 自動記錄()
  2.     .
  3.     .
  4.     .

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

  14.     .
  15.     .
  16.     .
  17. End Sub
複製代碼

作者: 准提部林    時間: 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

==========================
作者: pkey1999    時間: 2019-6-14 14:56

我測試 看看
作者: pkey1999    時間: 2019-6-14 14:57

回復 7# c_c_lai

我測試 看看
作者: pkey1999    時間: 2019-6-14 14:57

回復 8# 准提部林


我測試 看看
作者: pkey1999    時間: 2019-6-14 15:08

還是偵測到錯誤
作者: netfish777    時間: 2019-6-14 22:50

回復 12# pkey1999
已經用 c_c_lai 前輩的指令,幫你改好了,請試試看
作者: pkey1999    時間: 2019-6-19 14:59

回復 7# c_c_lai
作者: pkey1999    時間: 2019-6-19 15:01

回復 13# netfish777
  
   謝謝我測試看看  剛剛沒看到
作者: pkey1999    時間: 2019-6-19 15:06

回復 13# netfish777

    可以了    謝謝
作者: pkey1999    時間: 2019-6-21 15:39

回復 1# pkey1999
作者: pkey1999    時間: 2019-6-22 17:21

回復 8# 准提部林

   請問准提部林大大   你是參考哪個網站提供資訊 而進行修改的?????




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)