返回列表 上一主題 發帖

[發問] 10個各區段的各最大數標示指定底色。

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 »
發表於 2019-6-14 11:55 | 顯示全部帖子
本帖最後由 n7822123 於 2019-6-14 11:59 編輯

回復 4# ziv976688


不能在原本for迴圈裡了，原本的迴圈是用幾個欄當群組找最大值

現在要改列群組，所以要跳出原本的迴圈，再新增一個迴圈來寫

另外找不到你要的紅色14號.......我先用紅色3號，話說，第10個小計列應該是第69列吧!?

For R = 1 To 10
  a = IIf(R = 10, -1, 0)
  Set rg = Cells(7 * R + a, 2).Resize(1, 49)
  rg.Font.ColorIndex = 1: rg.Font.Size = 12: rg.Font.Bold = False  '恢復字體格式
  max = WorksheetFunction.max(rg)
  For Each cel In rg
    If cel = max Then cel.Font.ColorIndex = 3: cel.Font.Bold = True
  Next
Next

10個單列的各最大數標示指定字體和顏色.rar (19.01 KB)
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題