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

[發問] 依欄位條件自動變色與儲存格內的公式向下填滿

蝕光迴狼

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-21 10:58 | 顯示全部帖子

[發問] 依欄位條件自動變色與儲存格內的公式向下填滿

以下有多個條件想同時達成，請問前輩程式該如何寫?

A7欄位公式：

=IF(C7="","",LOOKUP(C7,{0,701,1301,1501,1701},{"B","A","S","S+","SS"}))

複製代碼

B7欄位公式：

=IF(C7="","",RANK(C7,C:C ))

複製代碼

１. 想依【C列】(直行)　去做【判斷最後一筆資料位置】將【A7欄位】與【B7欄位】以下的欄位自動填滿。
２. 依【A列】(直行)去做判斷，將【A7欄位】與【G7欄位】改成同樣的欄位底色，向下欄位同樣條件。

※ 因有多個顏色條件，故無法用【設定格式化條件】

有做一個指令按鈕，程式碼如下：(希望可以把以上條件全加進來)

Private Sub CommandButton1_Click()
Rows("6:6").AutoFilter '自動篩選(要篩選列的位置)
Range("A7:M200").Sort Key1:=Range("C7"), Order1:=xlDescending, Header:=xlGuess '自動排列大小(遞減排序)
ActiveSheet.AutoFilterMode = False '關閉自動篩選
End Sub

複製代碼