- ©«¤l
- 5
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-10-6
- ³Ì«áµn¿ý
- 2020-3-16
|
¥»©«³Ì«á¥Ñ 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¼Ë
¤µ¤Ñ§Ú·Qn§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¥Î- Cells(1, 1) = ComboBox1.Text
- Cells(1, 2) = ComboBox2.Text
- Cells(1, 3) = ComboBox3.Text
- Cells(2, 1) = TextBox7.Text
- Cells(2, 2) = TextBox8.Text
- Cells(2, 3) = TextBox9.Text
- Sheets("¤u§@ªí1").Range("A:AN").AdvancedFilter _
- Action:=xlFilterCopy, _
- CriteriaRange:=Sheets(Sheets.count).Range("A2:C2"), _
- copytorange:=Sheets(Sheets.count).Range("A1"), _
- unique:=False
- 'ÃöÁä¦r
- k1 = TextBox7.Value
- k2 = TextBox8.Value
- k3 = TextBox9.Value
- '¿ï¾ÜÄæ¦ì¦WºÙ
- c1 = ComboBox1.Value
- c2 = ComboBox2.Value
- c3 = ComboBox3.Value
- 'AND,OR,NOT
- c4 = ComboBox4.Value
- c5 = ComboBox5.Value
½Æ»s¥N½X ³o¼Ë¨Ï¥Î¶i¶¥·j´M ¥i¬O¨C¦¸³£»¡
¦b©â¿ï½d³ò¤¤§ä¤£¨ìÄæ¦ì¦WºÙ©ÎÄæ¦ì¦WºÙ¤£¥¿½T
ªº¿ù»~
·Qn°Ý°Ý¬ÝÁÙ¦³¨S¦³¤ñ¸û§Öªº¤èªk¥i¥H³B²z
ÁÂÁÂ~ |
-
-
Â^¨ú.PNG
(10.92 KB)
|