ªð¦^¦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

¦^´_ 1# ziv976688

½Ð°Ý¡G¤U¦C¬õ¦â¦rÃCªºµ{¦¡½X­n¦p¦ó­×¥¿¡H
>> ¤£¦n·N«ä¡A¤W¦¸¼gªº¦³°ÝÃD¾É­PµLªk­×§ï¡A½Ð­×§ï3­Ó¦a¤è¦p¤U¡AÁÂÁÂ

Dim ci%-->Dim ci  '¦C2
CR = Array("",1, 2, 3, 6, 7, 8)-->CR = Array(1, 2, 3, 6, 7, 8)  '¦C140 '¦C149
For ci = 1 To UBound(cR) + 2 -->For Each ci In CR     '¦C140 '¦C149

TOP

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

¦^´_ 3# ziv976688

¤£¦n·N«ä¡A½Ð°Ý¤@¤U´Á¼Æ¨C¦¸¥u¦³¤@­Ó¡A¹ï§a¡H
¦pªG¬O´Nª½±µ¥Ñ¤U­±ªº¸ê®Æ½Æ¨î¨ì¤W­±¦ì¸m¡A³o¼Ë´N¤£¥Î¦b¼g°j°é¨ú­È·|¤ñ¸û§Ö¡AÁÂÁÂ

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

¥»©«³Ì«á¥Ñ samwang ©ó 2021-10-12 07:29 ½s¿è

¦^´_ 5# ziv976688

½Ð°Ñ¦Ò¥t¤@­Óª©¥»(Sheets("Sheet1")ÁÙ¨S¦³§ï®æ¦¡~°õ¦æ«áªºµª®×¬O¥¿½Tªº)
>> §Úª¾¹D­ì¦]¤F¡A¦]¬°³o¦¸Äæ¦ì©M¤W¦¸ªº¤£¤@¼Ë¤F¡A©Ò¥H¤W¦¸¨º­Ó¤S¤£¦æ¤F¡A¥²¶·¤S­n­«¼g¥B¬ã¨s¤@¤U³W«h¡AÁÂÁÂ

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

¦^´_ 7# ziv976688


¦pªG¤£¬O¦p¥½¾Ç·Qªº¨º¼ËEasy¡A¦Ó¬O¦p±z©Ò»¡~¶·¤S­n­«¼g¥B¬ã¨s¤@¤U³W«h~
>> ¥»¨Ó·Q»¡¦p±z»¡ªº¥u­n¤p§ï´N¦n¡A¨S·Q­n¶O³o»ò¤j¤u¤Ò¡A©Ò¥Hª½±µ­«¼g³æ´Á©M¦h´Á³£¦³¼g¤J¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

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

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

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

©Ò¥Hª½±µ­«¼g³æ´Á©M¦h´Á³£¦³¼g¤J ...
ziv976688 µoªí©ó 2021-10-12 16:26


¤£¦n·N«ä¡A§Ú¼g±o¦h´Á¬O§Ú¦Û¤v²q·Q±z­nªº»Ý¨D¡A³W«h¥i¯à§t±zªº»Ý¨D¤£¤@¼Ë
¥i¥H´£¨Ñ¬ÛÃö³æ´Á©M¦h´Áªº³W«h©M¸ê®Æ°µ´ú¸Õ¡AÁÂÁÂ

TOP

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