標題: [發問] 利用VBA設定格式化條件 [打印本頁]

---

作者: tsuan    時間: 2011-3-14 11:41     標題: 利用VBA設定格式化條件

利用Excel 製作標單檔，資料L[attach]4987[/attach]。
現希望能夠在廠商報價超出最低價50%時，可以出現紅底，目前已使用設定格式化條件，但因檔案將給多人使用，且隨時會在中間插入行數，為避免日後可能會忘記加入格式化條件，因此希望改用VBA方式，在輸入完成後執行判斷。希望各位幫忙指導如何達成。

---

作者: tsuan    時間: 2011-3-14 14:51

非常感謝donald
如此可完成我目前所需
但因標單有數種，每一類廠商家數不同，因此必需設定範圍為比較範圍為第5欄到最右欄-7，
才能方便每一類標單，麻煩再指導一下。

---

作者: Hsieh    時間: 2011-3-14 19:59

回復 3# tsuan

1. Sub Ex()
   
2. k = Rows(2).Find("上期數量").Column - 1
   
3. Range([E2], Cells(2, k)).EntireColumn.Interior.ColorIndex = 0
   
4. For Each a In Range([E2], Cells(2, k)).EntireColumn.SpecialCells(xlCellTypeConstants, 1)
   
5. r = a.Row
   
6. If a > Application.Min(Range(Cells(r, 5), Cells(r, k))) * 1.3 Then a.Interior.ColorIndex = 3
   
7. Next
   
8. End Sub

複製代碼

---

作者: tsuan    時間: 2011-3-15 14:01

感謝Hsieh:
完全符合我所想要達成的
真是感激

---

作者: w110352a    時間: 2015-2-24 13:54

太好了，真是利害

---

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