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

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

6^#

發表於 2019-6-14 14:24 | 只看該作者

回復 5# n7822123

萬分感激你一再耐心的指導和幫忙。謝謝

n7822123

　暱稱: 阿龍

中學生 Rank: 2

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

5^#

發表於 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)

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

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

4^#

發表於 2019-6-13 14:53 | 只看該作者

本帖最後由 ziv976688 於 2019-6-13 15:08 編輯

主題︰增寫【將10個各單列的B欄︰AX欄之各最大數標示指定字體和顏色】的語法。

測試檔_0613.rar (17.89 KB)
10個單列=7,14,21,28,35,42,49,56,63,70(即各小計列)
欄位範圍 = B︰AX (共49欄)

需求︰將上述10個各單列的欄位範圍之各最大數標示紅顏色14號粗字體的語法?
請問︰程式碼列18~列28應該如何修改才正確？

誠請各位大大幫忙！謝謝 !

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2019-6-13 04:42 | 只看該作者

本帖最後由 ziv976688 於 2019-6-13 04:53 編輯

經套取n7822123大大原有的程式碼~問題已解決。  謝謝!
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
      Set rg = Cells(71, 5 * i - 3).Resize(1, x)
rg.Interior.Color = -1  '恢復無色
max = WorksheetFunction.max(rg)
For Each cel In rg
   If cel = max Then cel.Interior.ColorIndex = 38
Next
Next i
End Sub

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

2^#

發表於 2019-6-13 00:07 | 只看該作者

本帖最後由 ziv976688 於 2019-6-13 00:10 編輯

有爬文找到 :
   'B71:AX71的10個各區段最數大標示底色
      Set Rng = Range("B71:F71")    '第一個範圍
      For i = 0 To 9                   '10個範圍要處裡
         With Rng
            ' *公式一"=(B71=MAX($B71:$F71))*(B71>0)"
            AR(1) = "=(" & Rng(1).Address(0, 0) & "=MAX(" & Rng.Address(0, 1) & "))*(" & Rng(1).Address(0, 0) & ">0)"
            .Select
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:=AR(1)
            .FormatConditions(1).Interior.ColorIndex = 38
         End With
      Set Rng = Rng.Offset(, Rng.Columns.Count) '**下一個範圍
         If i = 8 Then Set Rng = Rng.Cells(1).Resize(, Rng.Columns.Count - 1)  '最後一段(i=9)只計4欄(AU:AX)
      Next
但我只要有標示底色，不要保留公式。