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

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

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

¥»©«³Ì«á¥Ñ tryagaaa ©ó 2015-10-6 15:46 ½s¿è

¤j®a¤È¦w

²{¦b¦³­Ó°ÝÃD

§Úªº¸ê®Æ®æ¦¡¦p¤U

¶µ¦¸        ®Ö©w        ­pµe¦WºÙ       
1               Y             AAA
2               Y             BBB


³o¼Ë


¤µ¤Ñ§Ú·Q­n§Q¥Î¹ï¸Üµøµ¡ªº¤è¦¡¶i¦æ·j´M

¹ï¸Üµøµ¡ªº¼Ë¤l¤j·§¬O³o¼Ë


¥k¤âÃ䪺combobox¬Oµ¹¥L¤W­±ªºÄæ¦ì ©ÎªÌ¤£­­Äæ¦ì

¤¤¶¡ªºTEXTBOX¬OÅý¥L¿é¤JÃöÁä¦r

¥ª¤âÃ䪺combobox¬Oµ¹¥L¿ï¾ÜAND OR NORµ¥µ¥ªº¹Bºâ¤l

¤£ª¾¹D¤j¤j­Ì¦³¬Æ»ò¦n¤èªk¥i¥H´£¥Ü¤@¤U@@


§Ú¥»¨Ó¬O¥Î
  1. Cells(1, 1) = ComboBox1.Text
  2. Cells(1, 2) = ComboBox2.Text
  3. Cells(1, 3) = ComboBox3.Text
  4. Cells(2, 1) = TextBox7.Text
  5. Cells(2, 2) = TextBox8.Text
  6. Cells(2, 3) = TextBox9.Text
  7. Sheets("¤u§@ªí1").Range("A:AN").AdvancedFilter _
  8. Action:=xlFilterCopy, _
  9. CriteriaRange:=Sheets(Sheets.count).Range("A2:C2"), _
  10. copytorange:=Sheets(Sheets.count).Range("A1"), _
  11. unique:=False

  12. 'ÃöÁä¦r
  13. k1 = TextBox7.Value
  14. k2 = TextBox8.Value
  15. k3 = TextBox9.Value
  16. '¿ï¾ÜÄæ¦ì¦WºÙ
  17. c1 = ComboBox1.Value
  18. c2 = ComboBox2.Value
  19. c3 = ComboBox3.Value
  20. 'AND,OR,NOT
  21. c4 = ComboBox4.Value
  22. c5 = ComboBox5.Value
½Æ»s¥N½X
³o¼Ë¨Ï¥Î¶i¶¥·j´M ¥i¬O¨C¦¸³£»¡
¦b©â¿ï½d³ò¤¤§ä¤£¨ìÄæ¦ì¦WºÙ©ÎÄæ¦ì¦WºÙ¤£¥¿½T


ªº¿ù»~

·Q­n°Ý°Ý¬ÝÁÙ¦³¨S¦³¤ñ¸û§Öªº¤èªk¥i¥H³B²z

ÁÂÁÂ~

Â^¨ú.PNG (10.92 KB)

Â^¨ú.PNG

¤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 : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD