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

¶×¤JÁ`ªí¼Æ¾Úbug

¶×¤JÁ`ªí¼Æ¾Úbug

¦U¦ì¤j¤j¦n¡Aªì¨Ó¥E¨ì·Q¸ß°Ý¤@­Óµ{¦¡»y¨¥
¤p§Ì¹J¨ìª¬ªp¦p¤U
1.±N5­Ó±M®×¤À§O¥H½Æ»s¤è¦¡¶K¤W"¸gºÞªí®æ" (OK)
2.¶K¤W«á¦A±NCÄæ¿ï¨ú½d³ò¶×¤J"Á`ªí" (¤£OK)
¤£OKªº­ì¦]¬O...
·í¶×¤J¹L¥h«á¡A¥þ³¡¼Æ­È·|Åܦ¨¤@¼Ëªº(¨D¸Ñ)
¦]¬°¼gªº³o­Óµ{¦¡½X·Pı«Ü¼É¤O¡A¬O§_¦³¤ñ¸û²³æªº¼gªk?(¨D¸Ñ)

¥H¤U¬Oµ{¦¡½X¡A¦A³Â·Ð¦U¦ì¨ó§U°£¿ù!!! ·P®¦·P®¦
Sub summary2()

    ¤u§@ªí1.Activate
   
    'If Sheet <> ±M®× Then Exit Sub '«D¦³±M®×ªº¼ÐÃD ¤£°Ê§@
    For j = 3 To 7
        For i = 2 To 6
        
           Range("B3:D58").ClearContents
           Sheets(j).Range("B3:D58").Copy Destination:=[b3]
   
               
            ¤u§@ªí7.Cells(4, i) = [c3]
            ¤u§@ªí7.Cells(5, i) = [c5]
            ¤u§@ªí7.Cells(6, i) = [c6]
            ¤u§@ªí7.Cells(7, i) = [c7]
            ¤u§@ªí7.Cells(8, i) = [c8]
            ¤u§@ªí7.Cells(9, i) = [c9]
            ¤u§@ªí7.Cells(10, i) = [c10]
            ¤u§@ªí7.Cells(11, i) = [c11]
            ¤u§@ªí7.Cells(12, i) = [c12]
            ¤u§@ªí7.Cells(13, i) = [c13]
            ¤u§@ªí7.Cells(14, i) = [c14]
            ¤u§@ªí7.Cells(15, i) = [c15]
            ¤u§@ªí7.Cells(16, i) = [c16]
            ¤u§@ªí7.Cells(17, i) = [c17]
            ¤u§@ªí7.Cells(18, i) = [c18]
            ¤u§@ªí7.Cells(19, i) = [c19]
            ¤u§@ªí7.Cells(20, i) = [c20]
            ¤u§@ªí7.Cells(21, i) = [c21]
            ¤u§@ªí7.Cells(22, i) = [c22]
            ¤u§@ªí7.Cells(23, i) = [c23]
            ¤u§@ªí7.Cells(24, i) = [c24]
            ¤u§@ªí7.Cells(25, i) = [c25]
            ¤u§@ªí7.Cells(26, i) = [c26]
            ¤u§@ªí7.Cells(27, i) = [c27]
            ¤u§@ªí7.Cells(28, i) = [c28]
            ¤u§@ªí7.Cells(29, i) = [c29]
            ¤u§@ªí7.Cells(30, i) = [c30]
            ¤u§@ªí7.Cells(31, i) = [c31]
            ¤u§@ªí7.Cells(32, i) = [c32]
            ¤u§@ªí7.Cells(33, i) = [c33]
            ¤u§@ªí7.Cells(34, i) = [c34]
            ¤u§@ªí7.Cells(35, i) = [c35]
            ¤u§@ªí7.Cells(36, i) = [c36]
            ¤u§@ªí7.Cells(37, i) = [c37]
            ¤u§@ªí7.Cells(38, i) = [c38]
            ¤u§@ªí7.Cells(39, i) = [c39]
            ¤u§@ªí7.Cells(40, i) = [c40]
            ¤u§@ªí7.Cells(41, i) = [c41]
            ¤u§@ªí7.Cells(42, i) = [c42]
            ¤u§@ªí7.Cells(43, i) = [c43]
            ¤u§@ªí7.Cells(44, i) = [c44]
            ¤u§@ªí7.Cells(45, i) = [c45]
            ¤u§@ªí7.Cells(46, i) = [c46]
            ¤u§@ªí7.Cells(47, i) = [c47]
            ¤u§@ªí7.Cells(48, i) = [c48]
            ¤u§@ªí7.Cells(49, i) = [c49]
            ¤u§@ªí7.Cells(50, i) = [c50]
            ¤u§@ªí7.Cells(51, i) = [c51]
            ¤u§@ªí7.Cells(52, i) = [c52]
            ¤u§@ªí7.Cells(53, i) = [c53]
            ¤u§@ªí7.Cells(54, i) = [c54]
            ¤u§@ªí7.Cells(55, i) = [c55]
            ¤u§@ªí7.Cells(56, i) = [c56]
            ¤u§@ªí7.Cells(57, i) = [c57]
            ¤u§@ªí7.Cells(58, i) = [c58]
            
           
         Next
    Next
   
    ¤u§@ªí7.Activate
   
   

End Sub

¹Ï¤ù.png (276.44 KB)

¶×¤J¶¶§Ç

¹Ï¤ù.png

¹Ï¤ù2.jpeg (184.5 KB)

¼Æ­È³£¬O¤@¼Ëªº

¹Ï¤ù2.jpeg

¹Ï¤ù3.PNG (9.85 KB)

¤u§@ªí¼Æ¶q

¹Ï¤ù3.PNG

1. ¬O
2. ¹ï¡A¤@¯ë¬yµ{¦p¤U,A¼Æ¾Ú-->  ¼Æ²Õ--> ¦r¨å¡AµM«áB¼Æ¾Ú-->¼Æ²Õ-->¨ú¥X¦r¨å¼Æ¾Ú³B²zÅܦ¨»Ý¨D
...
samwang µoªí©ó 2022-5-31 21:34



    ¤£·|¤£·|!!
¤j¤j»yªk¼g±o«Üºë·Ç¤F
¥u¬O¤p§Ì§Ú­è½ñ¤JVBA»y¨¥¸Ì¡A«Ü¦hªF¦è³£ÁÙ¦bºN¯Á
¯à¼g¥X¼É¤O¶ñªÅ¤è¦¡¤w¸g¦³ÂI§K±j

¥i¯à¤¤¶¡¦³ªí¹F¤£²M·¡ªº¦a¤è¦h¦h¥]²[!!!

¦A¦¸·PÁ¤j¤j!! ¦P®É¤]¤À¨Éµ¹¤j®aª¾¹D§Aªº»yªk

TOP

¤j¤j¡A·PÁ§A!!
»yªk§Ú¤w¸g³£¼g§¹¤F¡A¤]¦³µ²¦X¥ý«eªº¤@¨Ç»yªk§â±M®×®×¸¹¶i¦æ¶×¤J

¥t¥~§Ú·Q°Ý ...
waitto04 µoªí©ó 2022-5-31 20:08


1. ¬O
2. ¹ï¡A¤@¯ë¬yµ{¦p¤U,A¼Æ¾Ú-->  ¼Æ²Õ--> ¦r¨å¡AµM«áB¼Æ¾Ú-->¼Æ²Õ-->¨ú¥X¦r¨å¼Æ¾Ú³B²zÅܦ¨»Ý¨D
«á¾Ç¤@¨Ç¸gÅç¡A»¡©ú¤£¦n¦a¤è¡A½Ð¦h¥]²[«ü±Ð¡AÁÂÁÂ

TOP

¦ý¦³¤@¥ó¨Æ±¡¬O¡A­Y³o­Ó½s½X¦A¤U¦¸·|§ó·s¬O¤£¤@¼Ëªº(«D§@·~¡A¹ê¾Ô¨Ï¥Î)
¬O¤£¬OÅܦ¨­n¥ý±N±M®×¥N½X¥ý¶× ...
samwang µoªí©ó 2022-5-30 07:54



    ¤j¤j¡A·PÁ§A!!
»yªk§Ú¤w¸g³£¼g§¹¤F¡A¤]¦³µ²¦X¥ý«eªº¤@¨Ç»yªk§â±M®×®×¸¹¶i¦æ¶×¤J

¥t¥~§Ú·Q°Ýªº¬O
»yªk¸Ì­±¦³´£¨ì

If Arr(i, 3) = "" Then GoTo 90 '¨S¼Æ¾ÚÂ÷¶}
                T = sh.Name & "|" & Arr(i, 1)  '±ø¥ó:¤u§@ªí¦WºÙ+¶µ¥Ø
                xD(T) = Arr(i, 3)              '¼Æ¾Ú¸Ë¤J¦r¨å
90:         Next

1.90¬O¦Û©w¸qªºÅܼƶÜ?
2.«e¦¸¦³´£¤Î¨ìbugªº³¡¤À¡A·N«ä¬O¥ý§âªí®æ¤ºªº¸ê°T§ì¨ìÃþ¦ü¦r¨å®w¸Ì
«áÄò¦A¥Ñ±M®×®×¸¹¤U¥h¤À°t¬Û¹ïÀ³ªº¼Æ­È¡A·N«ä¬O³o¼Ë¹ï¶Ü?

¤Ó·PÁ§A¤F¡A¬Û«H³o­Ó³øªí¬O«Ü¦³°^Ämªº!!

TOP

¦ý¦³¤@¥ó¨Æ±¡¬O¡A­Y³o­Ó½s½X¦A¤U¦¸·|§ó·s¬O¤£¤@¼Ëªº(«D§@·~¡A¹ê¾Ô¨Ï¥Î)
¬O¤£¬OÅܦ¨­n¥ý±N±M®×¥N½X¥ý¶× ...
samwang µoªí©ó 2022-5-30 07:54



    ·PÁ¤j¤jªº¸Ñ»¡
±ßÂI§Ú¦A´ú¸Õ¬Ý¬Ý!

TOP

©Ò¥H¦³¥i¯à§AªºÁ`ªí²Ä4¦C(¦pªþ¹Ï)³Q²M°£µM«á°õ¦æµ²ªG´N·|¥¢±Ñ
²Ä4¦Cªº¦U¤À­¶ªº¤u§@¦WºÙ¤£¯à²M°£
¦] ...
waitto04 µoªí©ó 2022-5-29 23:26


¦ý¦³¤@¥ó¨Æ±¡¬O¡A­Y³o­Ó½s½X¦A¤U¦¸·|§ó·s¬O¤£¤@¼Ëªº(«D§@·~¡A¹ê¾Ô¨Ï¥Î)
¬O¤£¬OÅܦ¨­n¥ý±N±M®×¥N½X¥ý¶×¤JÁ`ªí¤º¡A¦A±N«áÄòªº¼Æ­È©I¥s¥X¨Ó©O?
>>¹ï¡A¥ý±N¦U¤À­¶ªºªº¦WºÙ¥ý¶×¦ÜÁ`ªí«á¦A°õ¦æ§Y¥i¡AÁÂÁÂ

TOP

¨Ì¾Ú§Aªº´ú¸Õ#14 ¦³¦¨¥\¡A#15¤S¥¢±Ñ¡A§A¤S»¡¦r¨å¦³¸ê®Æ
©Ò¥H¦³¥i¯à§AªºÁ`ªí²Ä4¦C(¦pªþ¹Ï)³Q²M°£µM«á°õ ...
samwang µoªí©ó 2022-5-29 19:30



©Ò¥H¦³¥i¯à§AªºÁ`ªí²Ä4¦C(¦pªþ¹Ï)³Q²M°£µM«á°õ¦æµ²ªG´N·|¥¢±Ñ
²Ä4¦Cªº¦U¤À­¶ªº¤u§@¦WºÙ¤£¯à²M°£
¦]¬°¨º¬O¦r¨å¶×¥X®É¤ñ¹ïªº±ø¥ó¤§¤@


¤j¤j ¨S¿ù³á!!¬O¦³¼Æ¾Ú¥Í¦¨ªº!!
¦ý¦³¤@¥ó¨Æ±¡¬O¡A­Y³o­Ó½s½X¦A¤U¦¸·|§ó·s¬O¤£¤@¼Ëªº(«D§@·~¡A¹ê¾Ô¨Ï¥Î)
¬O¤£¬OÅܦ¨­n¥ý±N±M®×¥N½X¥ý¶×¤JÁ`ªí¤º¡A¦A±N«áÄòªº¼Æ­È©I¥s¥X¨Ó©O?

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2022-5-29 19:32 ½s¿è
­è­è¤S­«½Æ¹Á¸Õ¤F¤@¦¸¡A¨S¦¨¥\±a¥X...

  ³]©w¬O
"¸gºÞªí®æ" CÄ檺¸ê®Æ¥i¥H±a¤J "Á`ªí"¨Ì¦W ...
waitto04 µoªí©ó 2022-5-29 12:22


¨Ì¾Ú§Aªº´ú¸Õ#14 ¦³¦¨¥\¡A#15¤S¥¢±Ñ¡A§A¤S»¡¦r¨å¦³¸ê®Æ
©Ò¥H¦³¥i¯à§AªºÁ`ªí²Ä4¦C(¦pªþ¹Ï)³Q²M°£µM«á°õ¦æµ²ªG´N·|¥¢±Ñ
²Ä4¦Cªº¦U¤À­¶ªº¤u§@¦WºÙ¤£¯à²M°£
¦]¬°¨º¬O¦r¨å¶×¥X®É¤ñ¹ïªº±ø¥ó¤§¤@
½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

¥t¥~¡A§Ú¼gªºµ{¦¡°õ¦æ«e¤£¥Î²M°£Â¸ê®Æ¡A¦]¬°µ{¦¡³Ì«á·|¦Û°Ê²M°£(§Ú¦³µù¸Ñ)

1.JPG (93.29 KB)

1.JPG

TOP

With sheets(1) ¥ý³]°±¤îÂI¡AµM«á«öF5°õ¦æ¡A¦A½T»{¦r¨å¦³µL¸ê®Æ¡A¥¿½TÀ³¸Ó­n¦³¸ê®Æ¡A½Ð½T»{¡AÁÂÁÂ
samwang µoªí©ó 2022-5-29 11:30


­è­è¤S­«½Æ¹Á¸Õ¤F¤@¦¸¡A¨S¦¨¥\±a¥X...


2.BªºÄæ¦ì³£·|³Q¸õ¹L
>> ¬Ý§Aªºµ{¦¡¡A­Ó¤À­¶¸ê®Æ-->"¸gÀçªí®æ"-->CÄæ¸ê®Æ--> Á`ªí
¬Ý¤£À´§A¹ê»Ú»Ý¨D¬O ...
samwang µoªí©ó 2022-5-29 11:41



  ³]©w¬O
"¸gºÞªí®æ" CÄ檺¸ê®Æ¥i¥H±a¤J "Á`ªí"¨Ì¦WºÙ¶ñ¤J¹ïÀ³ªº¼Æ¾Ú
¦ý¤p§Ì­è±µÄ²VBA¤£¤[¡A¤£ª¾¹D¬°¤°»ò¡A¼Æ¾Ú±a¤J¤F¡A¦ý¬OBÄæ¦ì¨S¦³³Q¤Þ°Êªº·Pı¡A¤Ï¦Ó¬O±qÁ`ªíªºCÄæ¶}©l°Ê§@

¤£¦n·N«ä¡Aê©óÅv­­Ãö«Y!! ¨C¤p®É¥u¯à¦^´_¤T©«... «Üºò±i³oºØ¦^´_¤è¦¡

TOP

With sheets(1) ¥ý³]°±¤îÂI¡AµM«á«öF5°õ¦æ¡A¦A½T»{¦r¨å¦³µL¸ê®Æ¡A¥¿½TÀ³¸Ó­n¦³¸ê®Æ¡A½Ð½T»{¡AÁÂÁÂ
samwang µoªí©ó 2022-5-29 11:30



   ³o­Ó¨BÆJ¸g¹L½T»{¡A¦³ªF¦è¥i¥H±a¥X¨Ó­ò!

2.PNG (168.61 KB)

2.PNG

TOP

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