Re: [算表] 請問VBA如何逐列執行？
Option Explicit
Sub paintColor()
Dim rCount As Integer, cCount As Integer
Dim i As Integer, j As Integer, max As Integer
rCount = ActiveSheet.UsedRange.Rows.Count
cCount = ActiveSheet.Range("IV1").End(xlToLeft).Column
Range("A1", Cells(rCount, cCount)).Interior.Color = xlNone
For i = 2 To rCount
max = 0
For j = 3 To cCount Step 2
If Cells(i, j) > max Then
max = Cells(i, j)
End If
Next j
For j = 3 To cCount Step 2
If Cells(i, j) = max Then
Cells(i, j).Interior.Color = vbYellow
End If
Next j
Next i
End Sub
※ 引述《CaoCao (學習當暖男)》之銘言：
: 軟體:Excel
: 版本:Office2016
: 請問各位大大，有一份銷售表需要找出每日前三名，檔案類似如下：
: A B C D E F G .....
: 1 日期 參考 甲 參考 乙 參考 丙 .....
: 2 1/1 參考 10 參考 22 參考 15 .....
: 3 1/2 參考 24 參考 35 參考 17 .....
: 4 1/3 參考 16 參考 9 參考 14 .....
: 5 1/4 參考 18 參考 21 參考 10 .....
: C2、E2、G2...最高的儲存格變成黃色，
: C3、E3、G3...最高的儲存格變成黃色，
: ......
: 因為資料很多，所以想用VBA來處理，請問該如何寫呢？
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.131.84.79 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1671614597.A.C4D.html
→
12/21 18:29,
1年前
, 1F
12/21 18:29, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
