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

[µo°Ý] ÃöÁä¦r¬d¸ß¥i§ï¬°VBA¤è¦¡«ö¶s¬d¸ß

¦^´_ 20# BV7BW
1.ÃöÁä¦r¬d¸ß¨Ã¨S¦³´£¨ì½s¸¹¥u·|¿é¤J"A",©Ò¥H¶µ½s¬O¥H¥þ¬Û²Å¤ñ¹ï
   ½Ð±NIf a = X Or a.Offset(, 1) Like "*" & X & "*" Or a.Offset(, 2) = X Then
   §ï¬° If Join(Application.Transpose(Application.Transpose(a.Resize(, 3))), "") Like "*" & X & "*" Then  '§âSheets(3) D~FÄæ¦r¦ê¦X¨Ö°µ¼Ò½k¤ñ¹ï
2.Sheets("¤u§@ªí2").Range([b4], [b4].End(4).Resize(, 3)).ClearContents '²M°£¸ê®Æ
¬O¨Ì©Ò´£¨Ñªº¸ê®Æ¥h¼gªº,¦pªG¹ê»Ú¤u§@ªí¦³¤£¤@¼Ë½Ð¦Û¦æ­×§ï
3.¤u§@ªí3¤¤"A""B""C"Äæ¬O­ì´£¨Ñ¸ê®Æ´N¦³ªº,µ{¦¡¤¤¨ÃµL¨Ï¥Î

TOP

¦^´_ 21# jcchiang
ÁÂÁÂ J ¤j¤j
§Ú¦b´ú¸Õ¤@¤U¦A¦V§A³ø§i
ÁÂÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 21# jcchiang
J¤j¤j§A¦n
¸g´ú¸Õ«áµ²ªG§¹¥þ¥i¹B§@
¦AÂà¦Ü¹ê»Ú¤u§@ªí¤¤¤@¼Ë«Ü¶¶ºZ
¦³¹J¨ì1°ÝÃD«á¨Ó¤~ª¾¹D­ì¦]
¦bc.Copy Sheets("¤u§@ªí2").[B4].Resize(, 3)
¬O¥¼¶ñ¤J¸ê®Æ©Ò¥H·|¥X²{¿ù»~
²{¦bª¾¹D¥Îªk.¦h¼W¾Ç·|¹B¥Î§Þ¥©

¦A¦¸ÁÂÁ   J ¤j¤j«ü¾É ÁÂÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 23# BV7BW

¥i¥H¦h¥[¤@­Ó§PÂ_,·íC¦³¸ê®Æ¤~¥h°õ¦æ¸ê®Æ¼g¤J
If Not c Is Nothing Then c.Copy Sheets("¤u§@ªí2").[B4].Resize(, 3)

TOP

¦^´_ 24# jcchiang
ÁÂÁÂ J ¤j¤j
§ó§ï¦n .¥Î°_¨Ó¤ñ¸û¶¶
ÁÂÁ§A«ü¾É ÁÂÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ BV7BW ©ó 2021-5-19 01:23 ½s¿è

¦^´_ 24# jcchiang
J¤j¤j§A¦n
¤W¦¸ÃöÁä¦r¬O§_¥i¦b©Ò¬d¸ß¦rÄ椤ÂI¨ä¤¤1Äæ«á.·Æ¹««ü¼Ð¥i¦Û°Ê´M§ä¨ì¦P¤@¤u§@ªí¬Û¦P¦rÄæ¦ì¤W?
¬O§_¥i¦æ? ÃöÁä¦rvba.zip (118.14 KB)
¶µ¥Ø¹ï¶µ¥Ø
«È¤á¦WºÙ¹ï«È¤á¦WºÙ

ÃöÁä¦rvba.zip (118.14 KB)

±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 16# samwang
S¤j¤j§A¦n
¤u§@ªí4¤¤
Ãö©ó¬d¸ß¦rÄ椤¬O§_¥iÂI¨ä¤¤1Äæ«á·Æ¹««ü¼Ð¥i¦Û°Ê´M§ä¨ì¦P¤@¤u§@ªí¸Ó©Ò¬d¸ß¦rÄæ¬Û¦P¦rÄæ¦ì¸m?
¦Ó¶µ¥Ø«h¥H100¶µ¬°1Äæ
¦C¦pA101¨ìA200¬°FÄæ.B201¦ÜB300¬°PÄæ.¥H¤UÃþ±À¨ìKLÄæ

ÃöÁä¦rvba.zip (129.61 KB)

±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 27# BV7BW


¤£¦n·N«ä¡A¤£¤Ó¯à²z¸Ñ§Aªº·N«ä¡A¥i§_½Ð§A¸Ñ¸Ô²Ó¤@ÂI¡AÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ BV7BW ©ó 2021-5-19 19:25 ½s¿è

¦^´_ 28# samwang

s¤j¤j §A¦n
ÁÂÁ§A.
§Ú¥Î·N¬O·íÃöÁä¦r¬d¸ß«á¥X²{¸ê®Æ«á.ÂI¥ô¤@¶µ¥Ø«á.¸Ó·Æ¹«®y¼Ð·|¦Û´M¨ì¦P¤@¤u§@ªí¤¤¬Û¦P¶µ¥Ø¦ì¸m
¦C©Ò¬d¸ß¥X"§Ú"ÃöÁä¦r«áÂI¤W(¶µ¥ØÄæ)¤¤"§Ú"¨º¤@Äæ®É.¦Ó·Æ¹«®y¼Ð·|¨ì¸Ó¤u§@ªí¶µ¥ØÄ椤"§Ú"¨º¤@Äæ¦ì¸m¤W
¦CÂI"§Ú­n§ä"­þ¤@Äæ®É.·Æ¹«®y¼Ð·|¶]¨ì¸Ó¤u§@ªí¶µ¥ØÄ椤"§Ú­n§ä"¨º¤@Äæ¦ì¸m¤W
ÃöÁä¦rvba.zip (137.06 KB)
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 29# BV7BW


¤£¦n·N«ä¡A³o­Ó¤w¶W¥X§Úªº¯à¤O¡A¥i¯à­n½Ð¨ä¥L¤j¤j¸ÑÃD¤F¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD