VBA ¦b°j°é¤¤¿ï¨ú¥t¤@¤u§@ªíªºÀx¦s®æ½d³ò
- ©«¤l
- 9
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-12
- ³Ì«áµn¿ý
- 2021-6-17
|
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§_µ¹¤©¸Ñµª¡An¦p¦óÅý¥L¯à¹B§@©O?
¦pªGn§â½d³ò§ï¦¨¤@¾ãÓrowsn¦p¦ó§ï©O?
ÁÂÁÂ!! |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-12
- ³Ì«áµn¿ý
- 2021-6-17
|
¦^´_ 2# joey0415
¤£¦n·N«ä...½Ð°Ý¤@¤Uªþ¥ó¨Æ¤°»òªF¦è©O?
ÁÂÁÂ... |
|
|
|
|
|
|