ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD