ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] «ü©w°Ï°ì¤ºªº³Ì¤j¼Æ¼Ð¥Ü¶À©³¦âªº»yªk¡C

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-6-11 22:11 ½s¿è

¦^´_ 10# ziv976688


¨g¦½~~~~~~¬°¤F»°¤W¯Z¥Ç¤F§C¯Å¿ù»~~

¶]§¹¤@½ü a­È´N¤@ª½¬O-1¤F¡A¤£À³¸Ó³o»ò¼g.........

­×§ï¦p¤U~~


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  '«ì´_µ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
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 11# n7822123
¤£¦n·N«ä¡A¯Ô»~§A¥h¤W¯Zªº®É¶¡  
µª®×³£¥¿½T¤F¡AÁÂÁ§AªºÀ°¦£

TOP

¦^´_ 11# n7822123
n¤j :
¤U¦C°ÝÃD :
http://forum.twbts.com/thread-21846-1-1.html  
4¼Ó¼W­×µ{¦¡½X¦C18~¦C28ªº§xÂZ
¥i§_½Ð±zÄ~Äò«ü±Ð?
ÁÂÁ§A^^

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD