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
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 16
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2013-11-12 23:26 ½s¿è
¦^´_ 1# snakei14702
1. ¤£¦æ.
Select ¥u¯à¥Î¦b WorkSheet (¹B§@¤¤ªº¤u§@ªí,©Î¬O¥Ø«e¯à¬Ý¨ìªº¤u§@ªí)¤W,
¬G¦Ó§An¥ý¥H Sheets("¤u§@ªí2").Acticate ±Nµe±¤Á´«¦Ü ¤u§@ªí2,
¤~¯à¹ï¨ä¤ºªºÀx¦s®æ°µ Select ªº°Ê§@,
¤£¹LY¬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¬On "¤W¶Ç" ½d¨ÒÀɨì³oÓºô¯¸¤W,
¨Ã±N¤W¶ÇªºÀÉ®×¥[¨ì¥¿¦bµoªíªº¤å³¹¤º,
¥H«K¥L¤H¥i¥H¤U¸ü©Î°Ñ¾\.(n°O±o¥h°£¥i¯à¥]§tÓ¤H¸ê®Æªº¸ê®Æ¤º®e) |
|
|
|
|
|
|
- ©«¤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?
ÁÂÁÂ... |
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
|
|
|
|
|
|