n7822123

¦^´_ 3# ziv976688


§âExit for ®³±¼´N¦æ¤F~

Sub Ex()
Dim i%, j%, x%, max%, rg As Range
For i = 1 To 10: x = IIf(i = 10, 4, 5)
  For j = 1 To 10
      If j = 1 Then
        Set rg = Cells(7 * j, 5 * i - 3).Resize(1, x)
      Else
        Set rg = Union(rg, Cells(7 * j, 5 * i - 3).Resize(1, x))
      End If
    Next j
    rg.Interior.Color = -1  '«ì´_µL¦â
    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

³Ì¤j¼Æ¼Ð¥Ü©³¦â.rar (14.68 KB)

¤U¸ü¦¸¼Æ: 3

2019-6-10 02:18

ziv976688

¦^´_ 2# n7822123

¤U¸ü (85.12 KB)

2019-6-9 23:03

¤£¦n·N«ä¡A¥H¬°MAX´N·|±N©Ò¦³ªº³Ì¤j¼Æ¼Ð¥Ü¶À¦â¡A©Ò¥H§Ú¨S¦³»¡¸Ô²Ó^^"

·Ð½Ð§A¦A­×¥¿ :
¦pªG³Ì¤j¼Æ¦³2­Ó(§t)¥H¤Wªº¬Û¦P¼Æ¦r¡A«h¥þ³¡³£¼Ð¥Ü¶À¦â==>EX : LÄæ : PÄæ¬qªº³Ì¤j¼Æ¦³M42=69©MN63=69¡A«h±N2­Ó³Ì¤j¼ÆªºÀx¦s®æ³£¼Ð¥Ü¶À¦â¡C
ÁÂÁ§A !

n7822123

¦^´_ 1# ziv976688

¸Õ¸Õ¬Ý!

Sub Ex()
Dim i%, j%, x%, max%,rg As Range
For i = 1 To 10: x = IIf(i = 10, 4, 5)
  For j = 1 To 10
      If j = 1 Then
        Set rg = Cells(7 * j, 5 * i - 3).Resize(1, x)
      Else
        Set rg = Union(rg, Cells(7 * j, 5 * i - 3).Resize(1, x))
      End If
    Next j
    rg.Interior.Color = -1  '«ì´_µL¦â
    Max = WorksheetFunction.Max(rg)
    For Each cel In rg
      If cel = Max Then
        cel.Interior.Color = RGB(255, 255, 0): Exit For
      End If
   Next
Next i
End Sub

³Ì¤j¼Æ¼Ð¥Ü©³¦â.rar (14.25 KB)

¤U¸ü¦¸¼Æ: 5

2019-6-9 18:32