指定區域內的最大數標示黃底色的語法。 - Excel程式區

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

[發問] 指定區域內的最大數標示黃底色的語法。

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

11^# 跳轉到 »

發表於 2019-6-11 22:06 | 只看該作者

本帖最後由 n7822123 於 2019-6-11 22:11 編輯

回復 10# ziv976688

狂汗~~~~~~為了趕上班犯了低級錯誤~

跑完一輪 a值就一直是-1了，不應該這麼寫.........

修改如下~~

Sub Ex()
Dim i%, j%, x%, a%, max%, rg As Range
For i = 1 To 10: x = IIf(i = 10, 4, 5)
  For j = 1 To 10
   a = IIf(j = 10, -1, 0)
   If j = 1 Then
      Set rg = Cells(7 * j, 5 * i - 3).Resize(1, x)
   Else
      Set rg = Union(rg, Cells(7 * j + a, 5 * i - 3).Resize(1, x))
   End If
Next j
rg.Interior.Color = -1  '恢復無色
max = WorksheetFunction.max(rg)
For Each cel In rg
   If cel = max Then cel.Interior.Color = RGB(255, 255, 0)
Next
Next i

End Sub

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

ziv976688