¥i¥H§Q¥ÎVBA¶i¦æ¦h±ø¥ó¿z¿ï¶Ü?
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¥i¥H§Q¥ÎVBA¶i¦æ¦h±ø¥ó¿z¿ï¶Ü?
|
Jared
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦^´_ 1# Jared
µo²{§Q¥Î³°»s¥¨¶°ªº¤è¦¡
¥i¥H¤@¦¸¿z¿ï¤@Ó±ø¥ó
¨º¦pªG¬On¨âÓ¥H¤W
n«ç»ò³]©w©O?- Private Sub CommandButton4_Click() '¿z¿ï±ø¥ó
- Dim a, b, c, d, e
- a = Test5.TextBox1.Text
- b = Test5.ComboBox1.Value
- c = Test5.ComboBox2.Value
- d = Test5.ComboBox3.Value
- e = Test5.TextBox2.Text
- If a <> "" Then
- ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=1, Criteria1:=a: Exit Sub
- End If
- If b <> "" Then
- ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=2, Criteria1:=b: Exit Sub
- End If
- If c <> "" Then
- ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=3, Criteria1:=c: Exit Sub
- End If
- If d <> "" Then
- ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=4, Criteria1:=d: Exit Sub
- End If
- If e <> "" Then
- ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=5, Criteria1:=e: Exit Sub
- End If
- End Sub
½Æ»s¥N½X |
|
Jared
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦^´_ 3# GBKEE
·PÁ¤j¤j¸Ñ°£¤F§ÚªººÃ´b
쥻ªºµ{¦¡½X¬O¼g¦¨¿W¥ß¦¡- If a <> "" Then
- ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=1, Criteria1:=a: Exit Sub
- End If
½Æ»s¥N½X «á¨Ó¦³×§ï¦¨- Private Sub CommandButton4_Click()
- Dim a, b, c, d, e
- a = Test5.TextBox1.Text
- b = Test5.ComboBox1.Value
- c = Test5.ComboBox2.Value
- d = Test5.ComboBox3.Value
- e = Test5.TextBox2.Text
- If a <> "" Or b <> "" Or c <> "" Or d <> "" Or e <> "" Then
- With Sheet2.Range("$A$1:$E$12")
- .AutoFilter Field:=1, Criteria1:=a
- .AutoFilter Field:=2, Criteria1:=b
- .AutoFilter Field:=3, Criteria1:=c
- .AutoFilter Field:=4, Criteria1:=d
- .AutoFilter Field:=5, Criteria1:=e
- End With
- End If
- End Sub
½Æ»s¥N½X ¦ý«oÅܦ¨n¨CÓ±ø¥ó³£²Å¦X¤~·|¿z¿ï¥XªF¦è>"<
¬Ý¤F¤j¤jªº¸Ñµª
ì¨Ó¬On¤À¶}¶i¦æ
¬Ý¨Ó§Ú¤S¾Ç¨ì¤@½Ò¤F^¤f^
«D±`·PÁ¡I¡I |
|
Jared
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 20
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-9-16
|
2¦ì¤j¤j¡A¤p§Ìè¦b¾Ç²ßVBA¡A¥i¥H±N±zÌ°Q½×ªºµ²ªG¡AÀɮפW¶Ç¨Ñ§Ṳ́U¸ü¶Ü?·P®¦ |
|
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦^´_ 5# jeffrey628litw
§A¥i¥H§â¼Ó³»°ÝÃDªº´ú¸ÕÀɤU¸ü¤U¨Ó
¦b§âµ{¦¡½X´À´«±¼´N¥i¥H¤F
¤¶±¤WÀ³¸Ó¬O¨S¤°»ò§ï¨ì
¥u¦³¦bµ{¦¡½Xªº³¡¤À |
|
Jared
|
|
|
|
|
- ©«¤l
- 1
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7 10
- ³nÅ骩¥»
- Office 2013 2016
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2016-3-27
- ³Ì«áµn¿ý
- 2016-3-27
|
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Excel 2.0
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-17
- ³Ì«áµn¿ý
- 2024-1-13
|
¦^´_ 4# Jared
a = Test5.TextBox1.Text
b = Test5.ComboBox1.Value
c = Test5.ComboBox2.Value
d = Test5.ComboBox3.Value¡C¤j¤j½Ð°Ýtest5¡C³oÓ¦a¤è¬O«ç»ò³]pªº¡C¤p§ÌÅv¤£¨¬¤£¯à¤U¸ü¨Ó¬Ý¡C©êºp |
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Excel 2.0
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-17
- ³Ì«áµn¿ý
- 2024-1-13
|
¦^´_ 3# GBKEE
µo²{³o¬O´X¦~«eªº©«¤l¤F¡C´«°Ý°Ýª©¥D¡C
a = Test5.TextBox1.Text
b = Test5.ComboBox1.Value
c = Test5.ComboBox2.Value
d = Test5.ComboBox3.Value¡C¤j¤j½Ð°Ýtest5¡C³oÓ¦a¤è¬O«ç»ò³]pªº¡C¤p§ÌÅv¤£¨¬¤£¯à¤U¸ü¨Ó¬Ý¡C©êºp |
|
|
|
|
|
|
- ©«¤l
- 63
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 122
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2015-4-22
- ³Ì«áµn¿ý
- 2019-7-19
|
¥»©«³Ì«á¥Ñ Michelle-W ©ó 2017-7-20 09:13 ½s¿è
¦^´_ 3# GBKEE
ª©¥D¤j¤j±z¦n¡A
§Úªº¦h±ø¥ó¿z¿ï¥\¯àÁ`¬O¥¢±Ñ...¥i§_¨ó§UÀ°¦£¬Ý¬ÝþÃä¿ù¤F
¦Ó¥BÀ³¸Ó¦p¦ó±N¿z¿ï§¹ªº¸ê®Æ¶K¨ì¤¶±¤W(¨Ì¾Ú¤£¦PÄ檺¦WºÙ)
¥ýÁÂÁ±z¤F!
ºÃ°Ý..rar (34.68 KB)
|
|
|
|
|
|
|