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

[µo°Ý] 10­Ó¦U°Ï¬qªº¦U³Ì¤j¼Æ¼Ð¥Ü«ü©w©³¦â¡C

[µo°Ý] 10­Ó¦U°Ï¬qªº¦U³Ì¤j¼Æ¼Ð¥Ü«ü©w©³¦â¡C

0612´ú¸ÕÀÉ.rar (14.75 KB)
10­Ó°Ï¬q=±N$B71¡JAX71¤À¦¨$B71(§t)¶}©l¡A5Äæ*9(=¨ìATÄæ)+$AU71¡J$AX71(4Äæ)
¦U³æ°Ï¬qªº³Ì¤j¼Æ¦p¦³2­Ó(§t)¥H¤W¡A«h³£¼Ð¥Ü«ü©w©³¦â¡C

½Ð°Ý¡J¤W­z¦C71ªº10­Ó°Ï¬qªº¦U³Ì¤j¼Æ¼Ð¥Üª´ºÀ¬õ(=38¸¹)©³¦â»yªk?   ÁÂÁ¡I

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-6-13 00:10 ½s¿è

¦³ª¦¤å§ä¨ì :
   'B71:AX71ªº10­Ó¦U°Ï¬q³Ì¼Æ¤j¼Ð¥Ü©³¦â
        Set Rng = Range("B71:F71")     '²Ä¤@­Ó½d³ò
        For i = 0 To 9                      '10­Ó½d³ò­n³B¸Ì
            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) '**¤U¤@­Ó½d³ò
            If i = 8 Then Set Rng = Rng.Cells(1).Resize(, Rng.Columns.Count - 1)  '³Ì«á¤@¬q(i=9)¥u­p4Äæ(AU:AX)
        Next
¦ý§Ú¥u­n¦³¼Ð¥Ü©³¦â¡A¤£­n«O¯d¤½¦¡¡C

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-6-13 04:53 ½s¿è

¸g®M¨ún7822123¤j¤j­ì¦³ªºµ{¦¡½X~°ÝÃD¤w¸Ñ¨M¡C  ÁÂÁÂ!
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
        Set rg = Cells(71, 5 * i - 3).Resize(1, x)
    rg.Interior.Color = -1  '«ì´_µL¦â
    max = WorksheetFunction.max(rg)
    For Each cel In rg
      If cel = max Then cel.Interior.ColorIndex = 38
   Next

Next i
End Sub

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-6-13 15:08 ½s¿è

¥DÃD¡J¼W¼g¡i±N10­Ó¦U³æ¦CªºBÄæ¡JAXÄ椧¦U³Ì¤j¼Æ¼Ð¥Ü«ü©w¦rÅé©MÃC¦â¡jªº»yªk¡C

´ú¸ÕÀÉ_0613.rar (17.89 KB)
10­Ó³æ¦C=7,14,21,28,35,42,49,56,63,70(§Y¦U¤p­p¦C)
Äæ¦ì½d³ò = B¡JAX (¦@49Äæ)

»Ý¨D¡J±N¤W­z10­Ó¦U³æ¦CªºÄæ¦ì½d³ò¤§¦U³Ì¤j¼Æ¼Ð¥Ü¬õÃC¦â14¸¹²Ê¦rÅ骺»yªk?  
½Ð°Ý¡Jµ{¦¡½X¦C18~¦C28À³¸Ó¦p¦ó­×§ï¤~¥¿½T¡H

¸Û½Ð¦U¦ì¤j¤jÀ°¦£¡IÁÂÁ !

TOP

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

¦^´_ 4# ziv976688


¤£¯à¦b­ì¥»for°j°é¸Ì¤F¡A­ì¥»ªº°j°é¬O¥Î´X­ÓÄæ·í¸s²Õ§ä³Ì¤j­È

²{¦b­n§ï¦C¸s²Õ¡A©Ò¥H­n¸õ¥X­ì¥»ªº°j°é¡A¦A·s¼W¤@­Ó°j°é¨Ó¼g

¥t¥~§ä¤£¨ì§A­nªº¬õ¦â14¸¹.......§Ú¥ý¥Î¬õ¦â3¸¹¡A¸Ü»¡¡A²Ä10­Ó¤p­p¦CÀ³¸Ó¬O²Ä69¦C§a!?

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  '«ì´_¦rÅé®æ¦¡
  max = WorksheetFunction.max(rg)
  For Each cel In rg
    If cel = max Then cel.Font.ColorIndex = 3: cel.Font.Bold = True
  Next
Next

10­Ó³æ¦Cªº¦U³Ì¤j¼Æ¼Ð¥Ü«ü©w¦rÅé©MÃC¦â.rar (19.01 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 5# n7822123

¸U¤À·P¿E§A¤@¦A­@¤ßªº«ü¾É©MÀ°¦£¡CÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD