- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28

|
¦^´_ 1# qwwe
Range("A2")¬O¤£¬O·Q®³¥t¤@¶ªºA2?
§Ú¬Ý§A·QFILTERªº¬OCÄæ(FIELD:=3), ¦ý±ø¥ó«o¬O¥ÎAÄæ.
¦pªGRANGE("A2")¬O¦b¥t¤@¶,¥i¥H³o¼Ë¼g- Dim stocknumber As Range
- Set stocknumber = worksheets("¥t¤@¶¶¦W").Range("A2")
- ActiveSheet.Range("$A$1:$G$4").AutoFilter Field:=3, Criteria1:=stocknumber.value
½Æ»s¥N½X ¦pªG·QFILTERªº¬OAÄæ,¥i¥H³o¼Ë- Dim stocknumber As Range
- Set stocknumber = Range("A2")
- ActiveSheet.Range("$A$1:$G$4").AutoFilter Field:=1, Criteria1:=stocknumber.value
½Æ»s¥N½X |
|