¥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¿ï¶Ü?
·Q½Ð°Ý¤j¤j
ÁöµMOffice 2007¦³¤º«Ø¿z¿ï¥\¯à
¦ý¦pªG§Ú·Qn±N¿z¿ï¥\¯à¼g¦b¤@Óªí³æ¸Ì±
¥i¥H¤@¦¸¶i¦æ¦h±ø¥ó¿z¿ï¸ê®Æ¶Ü?(¦p¹Ï)
¦]¬°¥Ø«e§Ú¥u¦³¼g¤@¦¸¿é¤J³æµ§¸ê®Æ¥H©Ê¦W¬°·j´M¥Ø¼Ð
µ{¦¡¹B¦æµ²ªG¦p¹Ï
¦ý¦pªG§Ú·Qn±N·j´M±ø¥ó¬°¨âµ§¥H¤W(¼Ò½k·j´M)
¬Æ¦Ü¨ì§¹¥þ²Å¦X
±N¿z¿ïµ²ªGÅã¥Ü¦bì¨Óªºªí³æ(¥¼²Å¦X±ø¥óªº¸ê®ÆÁôÂÃ(§éÅ|°_¨Ó))
³o¼Ëªº¼gªk´N¨S¿ìªk¤F:Q
¥Ø«eµ{¦¡¼gªk¦p¤U(¶¶±aªþ¤Wªí³æ)
´ú¸ÕÀÉ(¿z¿ï±ø¥ó).zip (53.77 KB)
§Æ±æ¦³¤j¤j¯à¸Ñ¨M§ÚªººÃ´b>"<- Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- With Sheet2
- Set a = .Columns("A").Find(TextBox1.Text, lookat:=xlWhole, LookIn:=xlValues)
- If a Is Nothing Then
- MsgBox "¬dµL¦¹¡A½Ð½T»{«á¦A¿é¤J¡I"
- Exit Sub
- End If
- ComboBox1.Value = a.Offset(, 1) '¦~°O
- ComboBox2.Value = a.Offset(, 2) '¨°ª
- ComboBox3.Value = a.Offset(, 3) 'Åé«
- TextBox2.Value = a.Offset(, 4) '¦í§}
- End With
- End Sub
- Private Sub CommandButton2_Click()
- Me.ComboBox1 = ""
- Me.ComboBox2 = ""
- Me.ComboBox3 = ""
- Me.TextBox1 = ""
- Me.TextBox2 = ""
- End Sub
- Private Sub CommandButton3_Click()
- Test5.Hide
- End Sub
- Private Sub UserForm_Initialize() '¤@¶}©lªº³]©w
- Dim i
- For i = 10 To 18
- ComboBox1.AddItem i
- Next
- For i = 120 To 160
- ComboBox2.AddItem i
- Next
- For i = 30 To 70
- ComboBox3.AddItem i
- Next
- 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
|
¦^´_ 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
- 1
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2025-1-28

|
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)
|
|
|
|
|
|
|