返回列表 上一主題 發帖

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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2016-4-8 13:07 | 顯示全部帖子
回復 3# peter95
VBA 參考這裡    http://forum.twbts.com/thread-16926-1-1.html
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2016-4-12 06:10 | 顯示全部帖子
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題