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

[µo°Ý] ¦p¦ó¥Îvba¨Ó¬d¸ß»Ý­nªº¸ê®Æ

[µo°Ý] ¦p¦ó¥Îvba¨Ó¬d¸ß»Ý­nªº¸ê®Æ

·Q½Ð¤j®aÀ°§Ú¸Ñµª
²{¦b¦³¤@¥÷¸ê®Æµ§¼Æ«Ü¦h
§Ú·Q°µ¤@­ÓÄæ¦ìÅý¨Ï¥ÎªÌ¬d¸ß
¿é¤J©m¦W´N¥i¥H±N¨ä¬ÛÃöªº¸ê®Æ¤@µ§µ§¦C¥X¨Ó,¨Ã­pºâ®É¶¡Äæ¦ìªºÁ`©M

¥»¨Ó·Q¥Îsql query,¦ý¤£ª¾­n«ç»òÅý¨Ï¥ÎªÌ¿é¤J­n¬d§äªºÃöÁä¦r
¤£ª¾¬O§_vba¤ñ¸û¦X¾A
§ï«ç»ò¼g???

query.zip (15.94 KB)

POP

¦^´_ 1# smartpearl

ªí®æ¦ì¸m§ï¤@¤U(¦p¹Ï)

¿ý»s¶i¶¥¿z¿ï¥¨¶°µy§@­×§ï
  1. Sub ¥¨¶°1()
  2. '
  3. ' ¥¨¶°1 ¥¨¶°
  4. '
  5.     Range("B1") = "name"
  6.     Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
  7.         Range("B1:B2"), Unique:=False
  8.     Range("B1") = ""
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ±z
¥i¬O³o¼Ë­n¦n¹³µLªk¦bÄæ¦ì¤¤¿é¤J©m¦W´N¦Û°Ê±a¥X¬ÛÃö¸ê®Æ­C
POP

TOP

¦^´_ 3# smartpearl

³o¬O¤@­Ó¿W¥ß°õ¦æµ{§Ç
¥i§Q¥Î¤u§@ªíªºWorkSheet_Change¨Æ¥óÅX°Ê¸Óµ{§Ç§Y¥i¹F¨ì§Y®ÉÅÜ°Ê
¤u§@ªí¼Ò²Õ
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address = "$B$2" Then ¥¨¶°1
  3. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD