標題: [發問] 工作表顏色依參數變化顯示(急需協助) [打印本頁]

---

作者: landylin    時間: 2013-3-11 23:22     標題: 工作表顏色依參數變化顯示(急需協助)

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

[attach]14337[/attach]
[attach]14337[/attach]

---

作者: Hsieh    時間: 2013-3-11 23:57

回復 1# landylin
設定格式化的條件
[attach]14338[/attach]

---

作者: landylin    時間: 2013-3-12 00:16

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

---

作者: Hsieh    時間: 2013-3-12 10:46

回復 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    時間: 2013-3-12 23:30

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

---

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