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

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

¦^´_ 10# samwang
13¼ÓªºC2¡GAY51ªºµª®×OK~­×¥¿¬°C24¡GAY51
ÁÂÁ±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

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

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

¦^´_  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

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

¦^´_ 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 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

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

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD