[發問] 工作表顏色依參數變化顯示(急需協助)

landylin

Dear 各位大大
          因急工作上需要
          請問如何在工作表上 ,是用達成率結果區分顏色  ,能直接連結改變指定的工作表顏色顯示  
          煩請協助 ,謝謝 !!

工作表.rar (1.64 KB)

工作表顏色
下載次數: 9

2013-3-11 23:19

Hsieh

回復 1# landylin
設定格式化的條件

下載 (36.12 KB)

2013-3-11 23:56

landylin

Dear  Hsieh :
           謝謝您的回覆 ,
           但我要的是能同時能變更指定的工作表索引標籤的顏色 !

Hsieh

回復 3# landylin
變更工表索引標籤顏色必須使用VBA輔助
要達到自動化要看你總表E6:E8資料取得方式為何?
配合事件程序來觸發VBA
例如:E6:E8是手動輸入
總表工作表模組輸入

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [E6:E8]) Is Nothing Then Exit Sub
   
3. For Each a In [E6:E8]
   
4.    k = Application.Lookup(a, Array(0, 0.9, 1), Array(3, 6, 4))
   
5.    a.Interior.ColorIndex = k
   
6.    Sheets(Right(a.Offset(, -1), 1)).Tab.ColorIndex = k
   
7. Next
   
8. End Sub

複製代碼

若為公式取得

1. Private Sub Worksheet_Calculate()
   
2. For Each a In [E6:E8]
   
3.    k = Application.Lookup(a, Array(0, 0.9, 1), Array(3, 6, 4))
   
4.    a.Interior.ColorIndex = k
   
5.    Sheets(Right(a.Offset(, -1), 1)).Tab.ColorIndex = k
   
6. Next
   
7. End Sub

複製代碼

landylin

Dear  Hsieh :
           感謝您的協助 ,可以使用了 !!