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

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

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

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-6-9 14:22 ½s¿è

¥¼©R¦W.png
2019-6-9 14:19

10­Ó°Ï¬q¡J±q²Ä7¦CªºBÄæ(§t)¶}©l¡A5Äæ*9(=¨ìATÄæ)+AU¡JAX(4Äæ)
¦U°Ï¬qªº10¦C(=¦U¤p­p¦C)½d³ò¡J±q²Ä7¦C(§t)¶}©l¡A¨C¸õ¹L6¦C*9(=¨ì²Ä63¦C)+¸õ¹L5¦C=69¦C

½Ð°Ý¡J¤W­z¦U°Ï¬qªº10¦C½d³ò¤ºªº³Ì¤j¼Æ¼Ð¥Ü¶À©³¦âªº®æ¦¡³]©w»yªk?   ÁÂÁ¡I

¸Ô²Óªº¦U°Ï°ì½d³ò¦p¤U¡J
Range($B7:$F7,$B14:$F14,$B21:$F21,$B28:$F28,$B35:$F35,$B42:$F42,$B49:$F49,$B56:$F56,$B63:$F63,$B69:$F69)µ¥5Äæ*10¦Cªº³Ì¤j¼Æ¼Ð¥Ü¶ÀÃC¦âªº©³¦â¡C
Range($G7:$K7,$G14:$K14,$G21:$K21,$G28:$K28,$G35:$K35,$G42:$K42,$G49:$K49,$G56:$K56,$G63:$K63,$G69:$K69)µ¥5Äæ*10¦Cªº³Ì¤j¼Æ¼Ð¥Ü¶ÀÃC¦âªº©³¦â¡C
Range($L7:$P7,$L14:$P14,$L21:$P21,$L28:$P28,$L35:$P35,$L42:$P42,$L49:$P49,$L56:$P56,$L63:$P63,$L69:$P69)µ¥5Äæ*10¦Cªº³Ì¤j¼Æ¼Ð¥Ü¶ÀÃC¦âªº©³¦â¡C
Range($Q7:$U7,$Q14:$U14,$Q21:$U21,$Q28:$U28,$Q35:$U35,$Q42:$U42,$Q49:$U49,$Q56:$U56,$Q63:$U63,$Q69:$U69)µ¥5Äæ*10¦Cªº³Ì¤j¼Æ¼Ð¥Ü¶ÀÃC¦âªº©³¦â¡C
Range($V7:$Z7,$V14:$Z14,$V21:$Z21,$V28:$Z28,$V35:$Z35,$V42:$Z42,$V49:$Z49,$V56:$Z56,$V63:$Z63,$V69:$Z69)µ¥5Äæ*10¦Cªº³Ì¤j¼Æ¼Ð¥Ü¶ÀÃC¦âªº©³¦â¡C
Range($AA7:$AE7,$AA14:$AE14,$AA21:$AE21,$AA28:$AE28,$AA35:$AE35,$AA42:$AE42,$AA49:$AE49,$AA56:$AE56,$AA63:$AE63,$AA69:$AE69)µ¥5Äæ*10¦Cªº³Ì¤j¼Æ¼Ð¥Ü¶ÀÃC¦âªº©³¦â¡C
Range($AF7:$AJ7,$AF14:$AJ14,$AF21:$AJ21,$AF28:$AJ28,$AF35:$AJ35,$AF42:$AJ42,$AF49:$AJ49,$AF56:$AJ56,$AF63:$AJ63,$AF69:$AJ69)µ¥5Äæ*10¦Cªº³Ì¤j¼Æ¼Ð¥Ü¶ÀÃC¦âªº©³¦â¡C
Range($AK7:$AO7,$AK14:$AO14,$AK21:$AO21,$AK28:$AO28,$AK35:$AO35,$AK42:$AO42,$AK49:$AO49,$AK56:$AO56,$AK63:$AO63,$AK69:$AO69)µ¥5Äæ*10¦Cªº³Ì¤j¼Æ¼Ð¥Ü¶ÀÃC¦âªº©³¦â¡C
Range($AP7:$AT7,$AP14:$AT14,$AP21:$AT21,$AP28:$AT28,$AP35:$AT35,$AP42:$AT42,$AP49:$AT49,$AP56:$AT56,$AP63:$AT63,$AP69:$AT69)µ¥5Äæ*10¦Cªº³Ì¤j¼Æ¼Ð¥Ü¶ÀÃC¦âªº©³¦â¡C
Range($AU7:$AX7,$AU14:$AX14,$AU21:$AX21,$AU28:$AX28,$AU35:$AX35,$AU42:$AX42,$AU49:$AX49,$AU56:$AX56,$AU63:$AX63,$AU69:$AX69)µ¥4Äæ*10¦Cªº³Ì¤j¼Æ¼Ð¥Ü¶ÀÃC¦âªº©³¦â¡C

´ú¸ÕÀÉ :
³Ì¤j¼Æ¼Ð¥Ü©³¦â.rar (10.6 KB)

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-6-9 18:33 ½s¿è

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

TOP

¦^´_ 2# n7822123
¥¼©R¦W.png
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 !

TOP

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

TOP

¦^´_ 4# n7822123
§Ú¯u¬OLOW¡A¦h³Â·Ð§A¤@¦¸¡A«Ü¤£¦n·N«ä^^'
¨S¦³°ÝÃD¤F¡AÁÂÁ§A!
===================
http://forum.twbts.com/thread-21839-1-1.html
³o¤@ÃD¡A¥i§_¦A½Ð§AÀ°¦£?
ÁÂÁ§A!

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-6-11 06:30 ½s¿è

¦^´_ 4# n7822123
³Ì¤j¼Æ¼Ð¥Ü©³¦â_Ans.rar (14.92 KB)
¤£¦n·N«ä¡A­è­è¤~Àˬd¨ì¦³¤@­Ó­pºâ¦C¿ù»~¤F :
¦U°Ï¬q¥Ñ¤W©¹¤Uªº³Ì«á¤@­Ó¤p­p¬O¦C69(²Ä10­Ó¤p­p»P¤W­±ªº9­Ó¤p­p¬Û¤ñ¤Ö¸õ1¦C)¡A¤£¬O¦C70
EX : ªþ¥óªº°Ï¬qLÄæ : PÄæ¥Ñ¤W©¹¤Uªº10­Ó¤p­p¦C¡A³Ì¤j¼Æ¬ON69=71
·Ð½Ð­×¥¿¡CÁÂÁ§A^^

TOP

¦^´_ 6# ziv976688


®¦ ¨Sª`·N¨ì§A³Ì«á¤@¦Cªº¦C¼Æ ¤£¤Ó¤@¼Ë
­×§ï¬õ¦âªº¦a¤è¦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
      If j = 10 Then a = -1
      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
   
    If i = 1 Then Stop
    rg.Select
    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

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

¦^´_ 7# n7822123
¥¼©R¦W.png
2019-6-11 10:01

ÁÂÁ­ץ¿¡C
¦ýµLªk°õ¦æ§¹¦¨~·|°±¦bµ{¦¡½X¦C14ªº Stop¡C
·Ð½Ð¦A­×¥¿¡AÁÂÁ§A^^

PS : ¤£À´¬°¤°»ò­n  If i = 1 Then Stop
        ¦ÓÅýµ{¦¡°õ¦æ°±¦b¦C14

TOP

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

¦^´_ 8# ziv976688


«x~~~~deubg¥Îªº...§Ñ°O§R°£¤F...........

³o¨â¦æµ{¦¡½Ð§R±¼~~~XD

If i = 1 Then Stop
rg.Select


§¹¾ãµ{¦¡¦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
      If j = 10 Then a = -1
      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

¦^´_ 9# n7822123
¤£¦n·N«ä¡A¦n¹³¤ñ¹ïªº½d³ò¶Ã±¼¤F¡Aµª®×¿ù§ó¦h^^"
10­Ó¤p­p¦C=7,14,21,28,35,42,49,56,63,69

6¼ÓªºÀɮתº10­Ó¤p­p¦C=7,14,21,28,35,42,49,56,63,70
¥u®t±N³Ì«á¤@­Ó¤p­p¦C70¡A§ï¬°69¦C§Y¥i¡C

9¼Óµ{¦¡½Xªº10­Ó¤p­p¦C¡A°õ¦æ«áµª®×«Ü¶Ã¡A¦n¹³¤£¤î10­Ó¤p­p¦C^^"

·Ð½Ð¦A­×¥¿!ÁÂÁ§A!

0611´ú¸ÕÀÉ.rar (29.92 KB)

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD