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

[µo°Ý] ¦p¦ó¼g¦Û°Ê¿z¿ïªº§PÂ_¦¡?

[µo°Ý] ¦p¦ó¼g¦Û°Ê¿z¿ïªº§PÂ_¦¡?

·í§Ú¨Ï¥Î¦Û°Ê¿z¿ï¤£¥X¸ê®Æ®É,°µXXXXXXX

³o¸Ó¦p¦ó¤U§PÂ_©O?

ÁÙ¬O»¡§Ú¥i¥H¨Ï¥Î§PÂ_²{¦bÀx¦s®æ¦ì¸m¬°ªÅ°µ?

IF ActiveCell="" then

¥H¤W¬O¹ïªº¶Ü?

¦Û°Ê¿z¿ï¯à³æ¤@¿z¿ï¦h­ÓÄæ¦ì¶Ü? µM«á§âµ²ªG³£¦C¥X¨Ó~¦pªGµ²ªG¬°ªÅ´N¤£¥Î¦C¥X~¥Ø«e¥¿¦b§V¤O¤¤!

·í§Ú¨Ï¥Î¦Û°Ê¿z¿ï¤£¥X¸ê®Æ®É,°µXXXXXXX

±z¦n!

°Ñ¦Ò¬Ý¬Ý~

¤èªk¤@.§PÂ_¿z¿ï«áªº²Ä¤@µ§¬O§_¦³¸ê®Æ

¨Ò¦p§PÂ_ A Äæ¦ì¦b¿z¿ï«á,¬O§_¦³¸ê®Æ
If [a2:a65536].SpecialCells(xlCellTypeVisible)(1, 1) = Empty Then
    ......  '°µXXXXXXX
End If

¤èªk¤G.­pºâ¿z¿ï«áªº¸ê®Æµ§¼Æ(¨Ò¦p subtotal ±a¤J°Ñ¼Æ3)

¤èªk¤T~ «Ý¨ä¥L¤j¤j´£¨Ñ..

TOP

¦b¿z¿ï«á¥u­n§PÂ_³Ì«á¤@¦Cªº¦æ¸¹´Nª¾¹D¬O§_¦³¿z¿ï¨ì¸ê®Æ¡C
¨S¿z¿ï¨ì¸ê®Æ®É [a65536].End(xlUp).Row·|¬O1¡A³o¬O¼ÐÃD¦C¡C
¤£¬O1´Nªí¥Ü¦³¿z¿ï¨ìªº¸ê®Æ¦s¦b

TOP

¨S¿z¿ï¨ì¸ê®Æ®É [a1].End(xlDown).Row·|¬ORows.Count¡A³o¬OÀɮש³ºÝ¡C

TOP

¥L¦n¹³¨C¦¸³£µLªk§PÂ_¨ìªÅ­C~¥L¨C¦¸³£·|°µElse

§Ú¬O¥Hªí1¬°¸ê®Æ®w~§Q¥Îªí2¬d¸ß~¸ê®Æµ²ªG¿é¥X¨ìªí2

¥i¬O§Ú¤U§PÂ_«á~µL½×¦³µL¸ê®Æ³£·|½Æ»s~

TOP

¹³¬O¤¸®d¸`²q¿OÁ¼¡C
¯uªº·Q°Ý°ÝÃD´N§â°ÝÃD»¡²M·¡¡A§â°ÝÃDªºªþ¥ó¶Ç¤W¨Ó¡C
§O¤H¤~ª¾¹D§A¹J¨ìªº¬O«ç¼Ëªº°ÝÃD¡A¦p¦ó¨Ó¸Ñ¨M¡C

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2011-8-26 11:28 ½s¿è

¦^´_ 6# oobird


    oobird¤j¤jÁÂÁ±z¬°§Ú¸Ñµª¤F¨º»ò¦h°ÝÃD~°ÝÃD¦p¤U

AutoSerch.rar (68.62 KB)

§Æ±æ¥i¥H°w¹ï"Á`ªí"°µ¬d¸ß~¿é¥X¦b"ÃöÁä¬d¸ßªí"¤U¤è

°w¹ï¥þÄæ¦ì°µ¿z¿ï~Á|¨Ò»¡©ú¦p¤U:

A     B    C       D
80   90  100  110
66   80  77     55
44   33  80     22
11   88  99     80

·í§Ú¦b"ÃöÁä¦r¬d¸ßªí"¤Wªºtextbox¿é¤J80

¥²¶·¿z¿ï¥X¥þÄæ¦ì¦³¥X²{¹L80ªº¼Æ¦r©Î¤¤¤å¦r

¥Ø«eÁÙ¦b¬ã¨s¶¥¬q!©Ò¥H¤~¥u¸ß°Ý»Ý¨D¥\¯à~¦A¦¸·PÁ¤j¤jªºÃö¤ß!

TOP

ªþ¥ó¸ò¥»¨S¦³Sheets("¬õ¥Õ©«")

TOP

¦^´_ 8# oobird


    ¯u¤£¦n·N«ä ¥i¯à­n§â"Á`ªí"§ï¦¨¬õ¥Õ©«

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