³æ¤@«ö¶sÂà´«§ó·s³æ¤@¤u§@¶¸ê®Æ
- ©«¤l
- 57
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 104
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2012-7-5
- ³Ì«áµn¿ý
- 2017-2-18
|
³æ¤@«ö¶sÂà´«§ó·s³æ¤@¤u§@¶¸ê®Æ
¦pªþ¥ó
20121002TEST.rar (13.25 KB)
¦³¦hÓ¤u§@¶¸ê®Æ·|©T©w§ó·s¦Ü©T©w¤u§@¶©T©w½d³ò
¦]¥Ø«e¤u§@¶²³¦h...
¥Ø«e¬O³æ¤@¤u§@¶¤@Ó¤@Ó¼g
½Ð°Ý¦³¨S¦³¿ìªk¥Î¥N¼Æªº¤è¦¡.¥hÂà´«¦Ü©Ò¦³ªº¤u§@¶¾A¥Î
¦Ó¤£»Ý¨CÓ¤u§@¶»Ý¦³¿W¥ßªº«ü¥O |
|
boyao
|
|
|
|
|
- ©«¤l
- 57
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 104
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2012-7-5
- ³Ì«áµn¿ý
- 2017-2-18
|
|
boyao
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-10-4 08:42 ½s¿è
¦^´_ 2# boyao
ª½±µ¥Î ²Î¦X ¥h°Ê§@
Private Sub CommandButton4_Click()
For og = 2 To151 '151¥i·s¼W
Select Case og
Case 2 To 51 '°Ï¬q
Sheet1.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
Sheet1.Range("a" & og + 9, "m" & og + 9).Value = Sheet4.Range("a" & og, "m" & og).Value
Case 52 To 101
Sheet2.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
Sheet2.Range("a" & og - 42, "m" & og - 42).Value = Sheet4.Range("a" & og, "m" & og).Value
Case 102 To 151
Sheet3.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
Sheet3.Range("a" & og - 92, "m" & og - 92).Value = Sheet4.Range("a" & og, "m" & og).Value
End Select
Next og
End Sub |
|
¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~
¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk
¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM
|
|
|
|
|
- ©«¤l
- 57
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 104
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2012-7-5
- ³Ì«áµn¿ý
- 2017-2-18
|
·PÁ¤j¤j..
¤w¸g¤F¸Ñ³oºØ¸ê®ÆÂà´«ªº¤èªk¤F |
|
boyao
|
|
|
|
|
- ©«¤l
- 57
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 104
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2012-7-5
- ³Ì«áµn¿ý
- 2017-2-18
|
§Ú»Ýnªº§Î¦¡...
¤u§@¶Âà¸ê®Æ®w...
´ú¸Õ¥X¨Óªº¤è¦¡
Private Sub CommandButton4_Click()
For og = 2 To 151 '151¥i·s¼W
Select Case og
Case 2 To 51 '°Ï¬q
Sheet4.Range("a" & og, "m" & og).Value = Sheet1.Range("a" & og + 10, "m" & og + 10).Value
Case 52 To 101
Sheet4.Range("a" & og, "m" & og).Value = Sheet2.Range("a" & og - 41, "m" & og - 41).Value
Case 102 To 151
Sheet4.Range("a" & og, "m" & og).Value = Sheet3.Range("a" & og - 91, "m" & og - 91).Value
End Select
Next og
End Sub |
|
boyao
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¦^´_ 6# boyao
= = §A¬On·J¾ã¨ì¸ê®Æ®w?
¥i¬Oªþ¥ó¤º¼gªº«o¬O¤À¶}.. |
|
¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~
¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk
¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM
|
|
|
|
|
- ©«¤l
- 57
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 104
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2012-7-5
- ³Ì«áµn¿ý
- 2017-2-18
|
|
boyao
|
|
|
|
|