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

[µo°Ý] ¦p¦ó§Q¥Î¿z¿ï¯S©w½s¸¹?

[µo°Ý] ¦p¦ó§Q¥Î¿z¿ï¯S©w½s¸¹?

½s¸¹   ©m¦W   ¹q¸Ü   ¦a§}
1
2
3
4
5

§Ú­Ì¤@¯ë·j´M³£·|¦bTextBox1¤º¼g¤J
ActiveSheet.UsedRange.AutoFilter 1, "=" & TextBox1
¦b¦bTextBox1 ¿é¤J2
§Y¥i¿z¿ï¥X½s¸¹2ªº¸ê®Æ

¦p¦ó¦bTextBox1 ¿é¤J2,4,5
§Y¥i¿z¿ï¥X½s¸¹2,4,5 ªº¸ê®Æ©O?

¥»©«³Ì«á¥Ñ kimbal ©ó 2012-7-21 00:02 ½s¿è

¦pªG¬OEXCEL 03 ©Î¥H«e, ¦Û°Ê¿z¿ï¥u¯à©ñ¨â­Ó±ø¥ó
Dim arr As String
arr = "3,6,12,15"
ActiveSheet.UsedRange.AutoFilter 1, "=" & split(arr,",")(0), Operator:=xlOr, Criteria2:="=" & split(arr,",")(1)

excel 07 ª©:
    Dim arr As String
    arr = "3,6,12,15"
    ActiveSheet.Range("$A$1:$D$15").AutoFilter Field:=1, Criteria1:=Split(arr, ","), Operator:=xlFilterValues

¦pªG¬O¥Î03ª©¤S·Q¦h­Ó±ø¥ó,¥i¥H¥ý¬Ý¬Ý¶i¶¥¿z¿ï¦p¦ó¥Î, µM«á¿ý»s¥N½X¬Ý¬Ý
-->
¨F©Ôªo«e½úªº±Ðµ{
http://blog.xuite.net/saladoil/e ... E%E7%AF%A9%E9%81%B8
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD