請問如何在一欄數字當中 最大值 次大值 第三大值 設不同底色

peter95

下載 (270.54 KB)
說明

2016-4-1 00:21

請問如何在一欄數字當中  最大值 次大值 第三大值 設不同底色
最大值   底色 設為 紅色
第二大值 底色 設為 淺藍
第三大值 底色 設為 黃色

感謝大家的幫忙
謝謝

Kubi

回復 13# peter95
請參考。
下載位址：http://www.FunP.Net/453186

peter95

回復 12# Kubi

好心人 Kubi 大大

小弟慚愧 目前仍是 小學生等級
所以還不能下載附件

請問有別的下載點嗎??

不好意思 麻煩你了
再次感謝你的幫忙

Kubi

回復 8# peter95
我的權限不能下載附件，因此無法了解您的問題出在哪裡？
可能誠如GBKEE超級版主所述原因可能出在於Option Base 1，
Option Base 1 必須放置於模組的頂端，宣告在此模組內的所有巨集的陣列其起始值是從1開始，並非從0開始，
若未定義Option Base，則預設是從0開始。
但請注意：Split 並不受Option Base 1影響，它的起始值還是以0開始。

請參考附件
找最大值上顏色.rar (21 KB)

下載次數: 2

2016-4-12 20:49

mave

回復 7# frantz
如果是常常有此類的文件類型要處理，
用VBA執行不用像函數每次都要設定一次。

以上是我的經驗
不知道有無錯誤
尚請各位大大指教

准提部林

先試[格式化條件]：
http://www.funp.net/116242

如果前三大不只一個，如何標色？

GBKEE

回復 8# peter95
上傳檔案 xlsx 是無巨集沒有程式碼,需上傳副檔名xlsm有巨集程式碼.

1. Option Explicit
   
2. Option Base 0
   
3. Sub Ex_()
   
4.     'Option Base 陳述式 在模組層次中用來宣告陣列索引的預設下限。
   
5.     'Option Base {0 | 1}
   
6.     '陣列元素下限值,預設為 Option Base 0
   
7.     ' 預設值  For I = 0 To 2  '才正確
   
8.     '有 Option Base  1   For I = 1 To 3 '是正確
   
9.     '不管有無  Option Base
   
10.     '保險作法  For I = LBound(ci) To UBound(ci)
    
11.    ' Dim ci(5 To 7), i As Integer
    
12.    ' ci(5) = 3
    
13.    ' ci(6) = 8
    
14.    ' ci(7) = 6
    
15.     Dim ci(), i As Integer
    
16.     ci = Array(3, 8, 6)
    
17.    
    
18.     MsgBox " ci 下限值 " & LBound(ci) & " ci 上限值 " & UBound(ci)
    
19.     For i = LBound(ci) To UBound(ci)
    
20.         MsgBox ci(i)
    
21.     Next
    
22. End Sub

複製代碼

peter95

回復 5# Kubi

感謝大大  熱請幫忙
小弟執行時 發現狀況

下載 (72.9 KB)

2016-4-12 01:52

輔助欄非排序法
黃色地方顯示錯誤 然後當掉

請大大 再幫我看看
附上小弟 要篩選的檔案
Book1.rar (6.09 KB)

下載次數: 5

2016-4-12 01:52

再次感謝 各位 大大的幫忙
謝謝

frantz

請問
這個用函數跟VBA寫，兩者的差異性在那裡??
那一種對資源負擔會比較大一點??

准提部林

前三大都不只一個，如何處理？
１００
９９
１００
９９
９９
８５
７０
７６