ªð¦^¦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?
ÁÂÁÂ!!

¦^´_ 2# joey0415

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

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD