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

VBA ¦b°j°é¤¤¿ï¨ú¥t¤@¤u§@ªíªºÀx¦s®æ½d³ò

VBA ¦b°j°é¤¤¿ï¨ú¥t¤@¤u§@ªíªºÀx¦s®æ½d³ò

³nÅé:EXCEL
                                                                           
ª©¥»:VBA
                                                                                
¼ÐÃD¥i¯à·|¦³ÂI¼Ò½k¡A§Úª½±µ§âCODE¶K¤W¨Ó¸ÑÄÀ¡AÀµ½Ð¤j¤jªùÀ°§Ú¸Ñµª!!

For i = 1 To 5
If Sheets("¤u§@ªí2").Range("a" & i) = "us" Then
Sheets("¤u§@ªí2").Select
Sheets("¤u§@ªí2").Range(Cells(i, 1), Cells(i, 12)).Select
End If
Next i
                                                                                                                                                           
¦]¬°§Ú·Q¦b SHEET1 ³B²z¤@¨ÇªF¦è¡A¦ý¬O»Ý­n¥Î¨ì SHEET2 ªº¸ê®Æ¡A
¥i¬O§Ú³o¼Ëªº¼gªk¦n¹³µLªk¦bSHEET1§@·~®É¡A¿ï¨úSHEET2ªí¤¤ªº¤@©w½d³ò..
¥L·|¥X²{À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~....
                                                                                
¤£ª¾ª©¤W¯«¤H¥i§_µ¹¤©¸Ñµª¡A­n¦p¦óÅý¥L¯à¹B§@©O?

¦pªG­n§â½d³ò§ï¦¨¤@¾ã­Órows­n¦p¦ó§ï©O?
ÁÂÁÂ!!

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-11-12 23:26 ½s¿è

¦^´_ 1# snakei14702
1. ¤£¦æ.
Select ¥u¯à¥Î¦b WorkSheet (¹B§@¤¤ªº¤u§@ªí,©Î¬O¥Ø«e¯à¬Ý¨ìªº¤u§@ªí)¤W,
¬G¦Ó§A­n¥ý¥H Sheets("¤u§@ªí2").Acticate ±Nµe­±¤Á´«¦Ü ¤u§@ªí2,
¤~¯à¹ï¨ä¤ºªºÀx¦s®æ°µ Select ªº°Ê§@,
¤£¹L­Y¬O·Q Copy ªº¸Ü¬O¥i¥H¤£¥Î±NµJÂI¤Á¹L¥h¸ÓSheet,
¦Ó¬Oª½±µ´N¥i¥H Copy ªº.

2.
.Rows(1).Select
.Rows("1:5").select
.Rows(lRow & ":" & lRow + 3).Select

¦^´_  joey0415
¤£¦n·N«ä...½Ð°Ý¤@¤Uªþ¥ó¨Æ¤°»òªF¦è©O?
ÁÂÁÂ...
snakei14702 µoªí©ó 2013-11-12 23:16

ªþ¥ó:

´N¬O­n "¤W¶Ç" ½d¨ÒÀɨì³o­Óºô¯¸¤W,
¨Ã±N¤W¶ÇªºÀÉ®×¥[¨ì¥¿¦bµoªíªº¤å³¹¤º,
¥H«K¥L¤H¥i¥H¤U¸ü©Î°Ñ¾\.(­n°O±o¥h°£¥i¯à¥]§t­Ó¤H¸ê®Æªº¸ê®Æ¤º®e)

TOP

¦^´_ 2# joey0415

¤£¦n·N«ä...½Ð°Ý¤@¤Uªþ¥ó¨Æ¤°»òªF¦è©O?
ÁÂÁÂ...

TOP

¤W¶Çªþ¥ó·|²M·¡¤@¨Ç¡I

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD