返回列表下一主題上一主題發帖

[發問] Excel VBA 依條件儲存格反色

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2018-11-18 17:46 | 只看該作者

[發問] Excel VBA 依條件儲存格反色

本帖最後由 msmplay 於 2018-11-18 17:49 編輯

請問如何使用VBA(非格式化條件)，讓範圍B2:V20可依條件欄及列反底色+粗體，條件如下:

B2:V2欄，名稱為 "目標" 該欄反淺藍色+粗體。

B2:V2欄，名稱為 "達成" 該欄反深藍色+粗體。

D3:D20列，名稱為 "All" 該列反淺灰色+粗體。

C3:C20列，名稱為 "All" 該列反灰色+粗體。

B3:B20列，名稱為 "All" 該列反深灰色+粗體。

提醒：設定條件需由1~5依序反色，如此才能依需求覆蓋其他底色。

71s5o.Rashad.Becker..Traditional.Music.Of.Notional.Species.Vol.II.2016.k5t8u.iji8f.zip (283.88 KB)

測試檔 http://www.FunP.Net/248291

樓主熱帖

*宅女一枚無誤*

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

6^#

發表於 2018-11-21 20:33 | 只看該作者

回復 5# 准提部林

准大謝謝你喔~~~~~問題已解決，再次感謝

*宅女一枚無誤*

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

發表於 2018-11-21 17:07 | 只看該作者

Sub ifcolor_1()
Dim R&, C&, xR As Range, Cv%, Cr, i&, j%
R = Cells(Rows.Count, 2).End(xlUp).Row
C = Cells(2, Columns.Count).End(xlToLeft).Column
Cr = Array(16, 48, 15) '橫向的色號(自行更改)
With [B2].Resize(R - 1, C - 1)
   .Interior.ColorIndex = xlNone: .Font.Bold = False
   For Each xR In .Rows(1).Cells
      Cv = Switch(xR = "目標", 34, xR = "達成", 33, xR = xR, 0) '縱向的色號(自行更改)
      If Cv > 0 Then
         With xR.Resize(R - 1): .Interior.ColorIndex = Cv: .Font.Bold = True: End With
      End If
   Next
   For i = 2 To R - 1:  For j = 1 To 3
      If .Cells(i, j) = "All" Then
         With .Cells(i, j).Resize(1, C - j)
               .Interior.ColorIndex = Cr(j - 1): .Font.Bold = True
         End With
         Exit For
      End If
   Next:  Next
End With
End Sub

TOP

msmplay