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

[µo°Ý] ½Ð­×¥¿Sheets("Sheet1")§ïÅܮ榡«áªº»yªk¡C

[µo°Ý] ½Ð­×¥¿Sheets("Sheet1")§ïÅܮ榡«áªº»yªk¡C

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-11 05:55 ½s¿è

°Ñ¦Òªþ¥ó : TEST_1011.rar (248.88 KB)
Sheets("Sheet1")ªºC2¡GAY21§ï¦¨¥Ø«eªº®æ¦¡~
½Ð°Ý¡G¤U¦C¬õ¦â¦rÃCªºµ{¦¡½X­n¦p¦ó­×¥¿¡H
§Ú¸Õ§ï³\¤[Á`¬O¸õ®t1¦C
'=================================¦C137
    .Range("c2:ay21").ClearContents
    Crr = .Range("c2:ay9"): Arr = .Range("c37:ay" & R): n = 0
    cR = Array("", 1, 2, 3, 6, 7, 8)   '¦C140
    For ci = 1 To UBound(cR) + 2: For cj = 1 To UBound(Crr, 2)
        For ai = ci To UBound(Arr) Step 17
            If Arr(ai, cj) = "" Then GoTo 97
            Crr(ci, cj) = Crr(ci, cj) + Arr(ai, cj)
97:     Next ai: n = 0
    Next cj: Next ci
    .[c2].Resize(UBound(Crr), UBound(Crr, 2)) = Crr

    Crr = .Range("c13:ay20"): cR = Array("", 1, 2, 3, 6, 7, 8)    '¦C149
    For ci = 1 To UBound(cR) + 2: For cj = 1 To UBound(Crr, 2)
        For ai = ci To UBound(Arr) Step 17
            If Arr(ai, cj) = "" Then GoTo 98
            n = n + 1: Crr(ci, cj) = n
98:     Next ai: n = 0
    Next cj: Next ci
    .[c13].Resize(UBound(Crr), UBound(Crr, 2)) = Crr


¥H¤W  Àµ½Ð½ç±Ð¡I  ÁÂÁ¡I

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-11 09:23 ½s¿è

¦^´_ 2# samwang
±z¤Ó«È®ð¤F~±zªÖ«ü¾É©MÀ°¦£¡A¥½¾Ç´N¤w¸g»Ê·P¤­¤º¤F

´ú¸Õµ²ªG : 7S_·j´M(²Î)¦rÀÉ(¥DÀÉ)_1011.rar (42.55 KB)
Á`¦¸¼Æ©M­Ó¼Æ¥[Á`ªº«e¤T¤j¼Æ¦r³£OK!
¦ý~
Á`¦¸¼Æªº¦¸¤p©M¤T¤pªº¼Æ¦r¬OÅã¥Ü¦b"³Ì¤p(²Ä7¦C)"©M"¦¸¤p(²Ä8¦C)"
­Ó¼Æ¥[Á`ªº¦¸¤p©M¤T¤pªº¼Æ¦r¬OÅã¥Ü¦b"³Ì¤p(²Ä18¦C)"©M"¦¸¤p(²Ä19¦C)"
§Y¤G­Ó¤T¤p(¦C9©M¦C20)¬OªÅ¥Õªº¡C

¥H¤W   Àµ½Ð½ç¥¿~ÁÂÁ±z
   

TOP

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

¦^´_ 4# samwang
¥t¦³1­Óª©¥»¬O·j´M¥þ³¡´Á¼Æªº²Î¦rÀÉ®×~
¦]¬°¨ä¬ÛÃöµ{¦¡½X¬O¤@¼Ëªº
©Ò¥H§Ú¬O¥H³æ´Áªºª©¥»§@´£°Ý
µM«á¦A¥H±z½ç¥¿«áªºµ{¦¡½X¦A¦Û¦æ½Æ»s®M¥Î¡C

½Ð°Ñ¦Ò¥t¤@­Óª©¥»(Sheets("Sheet1")ÁÙ¨S¦³§ï®æ¦¡~°õ¦æ«áªºµª®×¬O¥¿½Tªº)
7T_·j´M(²Î)¦rÀÉ(¥DÀÉ)_1007.rar (76.12 KB)
S = Single(³æ´Á)
T = Total (¥þ³¡´Á¼Æ~¥»¨Ò=3´Á)
PS : ³Ì¦hªº´Á¼Æ=98´Á(49´Á*2½ü)
ÁÂÁ±z


TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-12 09:45 ½s¿è

¦^´_ 6# samwang
¥²¶·¤S­n­«¼g¥B¬ã¨s¤@¤U³W«h¡AÁÂÁÂ
Samwang¤j¤j¡G
¬O§Ú·Q±o¤Ó²³æ¤F?ÁÙ¬O±z»~¸Ñ¤F?

¸É¥R»¡©ú¦p¤U :
³Æµù¡G
1_7S_·j´M(²Î)¦rÀÉ(¥DÀÉ)©M7T_·j´M(²Î)¦rÀÉ(¥DÀÉ)³£¬O¶Q¸Ñ¡C
2_7S_·j´M(²Î)¦rÀÉ(¥DÀÉ)¬O±N¦U(²Î)¦rÀɮסA¥H¦UÀɮצWºÙ¦U°õ¦æ¦¨¬°1­Ó®ÄªGÀÉ¡C
3_7T_·j´M(²Î)¦rÀÉ(¥DÀÉ)¬O±N¦U(²Î)¦rÀɮסA¥H¦UÀɮצWºÙ·JÁ`¡A°õ¦æ¦¨¬°1­ÓÁ`®ÄªGÀÉ¡C

¥H7S_·j´M(²Î)¦rÀÉ(¥DÀÉ)_1007(1¼Óªºªþ¥ó¤ñ¸û®e©ö§@»¡©ú»Ý¨D)¬°¨Ò~
¦]¬°¦¸¼Æ¥[Á`©M­Ó¼Æ¥[Á`ªº²Î­p½d³ò©MÅÞ¿è³£¤£ÅÜ~
¥u¬O¦b­ìC2¡GAY16¶ñ¤J²Î­pµ²ªGªº°Ï°ì¦h´¡¤J4¦C=C2¡GAY20~§Y±N~
­ìÁ`¦¸¼Æ
³Ì¤j¶ñ¤JC2¡GAY2¡F¦¸¤j¶ñ¤JC3¡GAY3¡F¤T¤j¶ñ¤JC4¡GAY4
³Ì¤p¶ñ¤JC6¡GAY6¡F¦¸¤p¶ñ¤JC7¡GAY7¡F¤T¤p¶ñ¤JC8¡GAY8
§ï¬°¡G
³Ì¤j¶ñ¤JC2¡GAY2¡F¦¸¤j¶ñ¤JC3¡GAY3¡F¤T¤j¶ñ¤JC4¡GAY4
³Ì¤p¶ñ¤JC7¡GAY7¡F¦¸¤p¶ñ¤JC8¡GAY8¡F¤T¤p¶ñ¤JC9¡GAY9

­ì­Ó¼Æ¥[Á`
³Ì¤j¶ñ¤JC10¡GAY10¡F¦¸¤j¶ñ¤JC11¡GAY11¡F¤T¤j¶ñ¤JC12¡GAY12
³Ì¤p¶ñ¤JC14¡GAY14¡F¦¸¤p¶ñ¤JC15¡GAY15¡F¤T¤p¶ñ¤JC16¡GAY16
§ï¬°¡G
³Ì¤j¶ñ¤JC13¡GAY13¡F¦¸¤j¶ñ¤JC14¡GAY14¡F¤T¤j¶ñ¤JC15¡GAY15
³Ì¤p¶ñ¤JC18¡GAY18¡F¦¸¤p¶ñ¤JC19¡GAY19¡F¤T¤p¶ñ¤JC20¡GAY20

©Ò¥H¥½¾Ç¤~·|»{¬°¡G¥u­n§ó§ï~
cR = Array("", 1, 2, 3, 6, 7, 8)   '¦C140
    For ci = 1 To UBound(cR) + 2: For cj = 1 To UBound(Crr, 2)

Crr = .Range("c13:ay20"): cR = Array("", 1, 2, 3, 6, 7, 8)    '¦C149
    For ci = 1 To UBound(cR) + 2: For cj = 1 To UBound(Crr, 2)

¦pªG¤£¬O¦p¥½¾Ç·Qªº¨º¼ËEasy¡A¦Ó¬O¦p±z©Ò»¡~¶·¤S­n­«¼g¥B¬ã¨s¤@¤U³W«h~
³o¼Ë¹ê¦b¬O¹ï¤£°_±z~±z´N¤£¥Î¦A­«·s½s¼g¤F¡C
§Ú´N¦b­ì¦C5,9,13,16¶ñ¤J¦X­p¼Æ¦r§Y¥i¡C
ÁÂÁ±z



TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-12 16:46 ½s¿è

¦^´_ 8# samwang
¹ê¦b¬O¹L·N¤£¥h~ÁÙ³Ò¾r±z¶O¤ß­«·s½s¼g~·P®¦

©Ò¥Hª½±µ­«¼g³æ´Á©M¦h´Á³£¦³¼g¤J
³æ´Á©M¦h´Á³£¦³
½Ð°Ý : 2ºØÃþ«¬ªº®ÄªGÀÉ­n«ç»ò¤À¶}§e²{?
¥Ø«eªº´ú¸Õµ²ªG¬O3­Ó³æ´Áªº®ÄªGÀÉ(Ans.ÁÙ¨S¦³¤ñ¹ï.)¡C
§Ú²{¦bÀ³¸Ó«ç»ò§@ ?
¤~¯à¶]¥X1­Ó¦h´Áªº®ÄªGÀÉ¡C
·Ð½Ð§iª¾~ÁÂÁ±z

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-12 20:15 ½s¿è

¦^´_ 10# samwang
ÁA¸Ñ¤F~~~
¤£¦n·N«ä³B³B³Â·Ð±z~
¥½¾Ç¥ý¦Û¦æ¬ã²ß±zªº·s¼W©Î­×§ïªº»yªk¡A
¬ã²ß«á~¬Ý¯à¤£¯à¦Û¦æ¨Ì·Ó¦Û¤v©Ò»Ý½Õ¾ã~
¦p¯u¦³¤£¸Ñªº¦a¤è¦A½Ð±Ð±z¡C
ÁÂÁ±z
PS :
¦p­n´ú¸Õ¦h´Á~~¥H1¼Óªºªþ¥ó´ú¸Õ§Y¥i¡C
ÁÂÁ±z

TOP

¦^´_ 10# samwang
Samwang¤j¤j¡G
À˵ø¥þ³¡ªºµ{¦¡½X«á~±z·s¼W­×ªº¬q¸¨³£¦b139~¦C266

¤£¦n·N«ä~
±N¦h´Áªºµ{¦¡½X§ï¬°µù¸Ñ«á~
¤£ª¾¬O­þ¸Ìµù¸Ñ¿ù¤F¡H
´N¬O¶]¤£¥XC2¡GAY21ªº³æ´Áµª®×~
C2¡GAY51ªºµª®×OK¡I
¸Ô¦pªþ¥ó¡G TEST_1012_PM.rar (245.19 KB)

¥H¤W  Àµ½Ð½ç¥¿¡I  ÁÂÁ±z¡I

TOP

¦^´_ 10# samwang
13¼ÓªºC2¡GAY51ªºµª®×OK~­×¥¿¬°C24¡GAY51
ÁÂÁ±z

TOP

¦^´_ 12# ML089
ª©¤j : ÁÂÁ±z
¸Ô¦pªþ¥ó¡G TEST_1013.rar (258.1 KB)
½Ð¸Ô¨£ : 7S«e3¤j&¤p_0_1902´Á_100_1894-10+1887-10_1¦¸-(Ans.¤ñ¹ï)~¦³¤ñ¹ïµª®×ªº¹Ï¥Ü¡C
PS¡G¾Þ§@»¡©ú~
½Ð¶}±Ò7S_·j´M(²Î)¦rÀÉ(¥DÀÉ)_1013==>ÂI«ö°õ¦æÁä==>§Y¥i²£¥Í3­Ó®ÄªGÀÉ~
µª®×»P3­Ó(Ans.¤ñ¹ï)Àɮתº A1¡GAY51¬Û¦P¡C

¥H¤W  Àµ½Ð½ç¥¿¡I  ÁÂÁ±z¡I

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-13 17:13 ½s¿è

¦^´_ 17# ML089
°Ñ¦Òªþ¥ó¡G TEST_1013_V1.rar (253.79 KB)
ª©¤j¡G
¤£¦n·N«ä¡A¦C17©M¦C20ÁÙ¦³¤@ÂI¤pBUG~
´ú¸Õµ²ªG¡G
EX¡G7S«e3¤j&¤p_0_1902´Á_100_1894-10+1887-10_1¦¸-(Ans.¤ñ¹ï)~
¦C17¬OªÅ¥Õ¦C~¤£À³¸Ó¦³¼Æ¦r¡A¦ý¥Ø«eE17<>""¡F¦Ó¬O=1~µª®×¸Ô¦p¡GBF17
¦C20¬O¤T¤p~À³¦³ªº¼Æ¦r³£¨S¦³Åã¥Ü¥X¨Ó~µª®×¸Ô¦p¡GBO20¡GCZ20
¨ä¾l7S---_1901-10+1899---(Ans.¤ñ¹ï)¡F7S---_1901-10+1900---(Ans.¤ñ¹ï)¡KÃþ±À

¦]¬°C18¡GAY19³£¥¿½T~©Ò¥H§Ú¹ê¦b¤£ª¾¹D¦C156ªºµ{¦¡½X­n«ç»ò½Õ¾ã¡H
If ci < 6 Then ai = aii Else ai = aii ¡V 1 '¦C156

¥H¤W  Àµ½Ð½ç¥¿¡I  ÁÂÁ±z

PS :
1_¬O¤£¬O¥²¶·½Õ¾ã¦C37¥H¤Uªº®æ¦¡~¦pªG»Ý­n~½Ð§iª¾¡C
2_¦pªG»Ý­n½Õ¾ã¦C37¥H¤U~®e§Ú«ä¦Ò¤@¤U(¦]¬°¦C44~¦C51¥i¯à¤w¸g¤£»Ý­n¤F)¡C
ÁÂÁ±z

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD