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

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

¥»©«³Ì«á¥Ñ 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

¥»©«³Ì«á¥Ñ ML089 ©ó 2021-10-12 23:13 ½s¿è

¦^´_ 3# ziv976688

´ú¸Õµ²ª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


1        B2        ³Ì¤j                B37        ³Ì¤j
2        B3        ¦¸¤j                B38        ¦¸¤j
3        B4        ¤T¤j                B39        ¤T¤j
4        B5        ¦X­p                B40       
5        B6        ªÅ®æ                B41        ³Ì¤p
6        B7        ³Ì¤p                B42        ¦¸¤p
7        B8        ¦¸¤p                B43        ¤T¤p
8        B9        ¤T¤p                B44       
¸ê®Æ B2:B9 »P B37:B44 ¦ì¸m¤£¤@­P¡A³Ì¤p¡B¦¸¤p¡B¤T¤p ¿ù¶}¤@¦C¡Aµ{¦¡¨Ã¥¼³B²z³o®t²§¡A·íµM¦³¿ù»~
¤U¦C ai »P ci ¬O¬Û¹ï³s°Ê¡A³o¼Ë·|³y¦¨ ³Ì¤p¡B¦¸¤p¡B¤T¤p ¿ù¶}¤@¦C

    Crr = .Range("c2:ay9"): Arr = .Range("c37:ay" & R): n = 0
    'cR = Array("", 1, 2, 3, 6, 7, 8)
    CR = Array(1, 2, 3, 6, 7, 8)
    For Each ci In CR: For cj = 1 To UBound(Crr, 2)
        For aii = ci To UBound(Arr) Step 17
            If ci < 6 Then ai = aii Else ai = aii + 1
            If Arr(ai, cj) = "" Then GoTo 97
            Crr(ci, cj) = Crr(ci, cj) + Arr(ai, cj)
97:     Next aii: n = 0
    Next cj: Next ci
¤U¬q¤]»Ý­n§ï
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

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

¦^´_ 11# ziv976688


¬°¤°»Ý¨Dµ²ªG¤£¤@¼Ë? ¦³®É­Ô­nÅã¥Ü³æ´Á¦³®É­Ô­n«Ü¦h´Á¼Æ?
1.PNG

TOP

¦^´_ 15# ziv976688

If ci < 6 Then ai = aii Else ai = aii + 1
¦³2³B­n§ï¬°
If ci < 6 Then ai = aii Else ai = aii - 1

­n¹ï±µ 37 38 39 41 42 43
CR = Array(1, 2, 3, 6, 7, 8) ªº¦ì¸m¹ïÀ³¬O CÄæ¦ìªº ¦C 2 3 4 7 8 9 ¸ê®Æ
CÄæ¦ìªº ¦C 37 38 39 41 42 43ªº¦ì¸m¹ïÀ³¶¶§Ç¬O  Array(1, 2, 3, 5, 6, 7)
¥i¨£¦³»~®t
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 13# ziv976688


§AÁ¿ªº¨S¿ù #8¦³°ÝÃD¡A°ÝÃD¬Oµ²ªGªº¸ê®Æ¨S²M°£°®²b¡A¾É­P²Ä1­Ó¨S°ÝÃD¡A²Ä2­Ó´N¿ù»~¡A
¥t¥~¡A³Q³æ´Á©M¦h´Á©w¸q·d¶Ã¡A¾É­P....¡A¤w§ó¥¿³æ¯Â¥Î#1»Ý¨D¥h¼g¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁ   

PS: ¦p±z´£¨ì¤S­ìµ{¦¡¤p­×§ï´N¥i¥H²Å¦X#1»Ý¨D¡A¦³®É­Ô·Q¤Ó¦h¡A¸£µ¬¥´µ².....

7S_·j´M(²Î)¦rÀÉ(¥DÀÉ)_1013.zip (46.36 KB)

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

¦^´_ 18# samwang
sanwang¤j¤j¡G
´ú¸Õ¦¨¥\
ÁÂÁ±zªº­@¤ß©M«ü¾É©M¼ö¤ßÀ°¦£~·P®¦

PS¡G
¦]¬°¥H1Fªº½d¨Ò§@»¡©ú¡A¤ñ¸û²³æ©úÁA¡A¦Ó¥B1F½d¨Òªº¶Qµ{¦¡½X¦³¸õ17¦C«á~
¦p¬OªÅ¥Õ´N¤£¦A²Î­p¨ÃÂ÷¶}µ{¦¡=>§Y=³æ´Á¡A¦p¦³¼Æ¦r´NÄ~Äò²Î­p=>§Y=¦h´Á¡F
©Ò¥H¥½¾Ç¤~¤@ª½±j½Õ¥H1Fªºªþ¥ó§@»¡©úªº½d¨Ò~
³y¦¨±zªº§xÂZ~©|½Ð±z¨£½Ì~ÁÂÁ±z

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD