帖子: 41
主題: 10
精華: 0
積分: 163
點名: 215
作業系統: WIN2000
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-28
最後登錄: 2024-11-15

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-3-14 11:41 | 只看該作者

[發問] 利用VBA設定格式化條件

利用Excel 製作標單檔，資料L

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

樓主熱帖

tsuan

中學生 Rank: 2

帖子: 41
主題: 10
精華: 0
積分: 163
點名: 215
作業系統: WIN2000
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-28
最後登錄: 2024-11-15

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

2^#

發表於 2011-3-14 14:51 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 250
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-3-14 19:59 | 只看該作者

回復 3# tsuan

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

複製代碼

學海無涯_不恥下問

TOP

tsuan