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

[µo°Ý] §Q¥ÎVBA¶i¦æ·j¯Áªº°ÝÃD

¤W¶Çªþ¥ó¥i¯à¤ñ¸û§Ö±o¨ì°ª°ª¤âªº¸Ñµª

­è¾Ç²ß©Ò¥H¤]¤£©ú¥Õ©«¥DÃD·N
¥i¥H°w¹ï¨C¤@Äæ°µ¿z¿ï³Ì«áµ²ªG´N¬O©Ò­nªº
¨Ò¦p°w¹ï"®Ö©w"°µ¿z¿ïY.N
°w¹ï"­pµe¦WºÙ"°µÃöÁä¦r·j´M
®Ö©w¬°"Y".."­pµe¦WºÙ"¥]§t"A"ªº
  1. If TextBox1.Text <> "" Then
  2.     Tx = TextBox1.Text
  3.     Tx = "*" & Tx & "*"
  4.     Sheets(1).UsedRange.AutoFilter Field:=1, Criteria1:=Tx
  5. End If
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD