GBKEE

¦^´_ 2# Jared

1. Option Explicit
   
2. Private Sub CommandButton4_Click() '¿z¿ï±ø¥ó
   
3. Dim a, b, c, d, e
   
4. a = Test5.TextBox1.Text
   
5. b = Test5.ComboBox1.Value
   
6. c = Test5.ComboBox2.Value
   
7. d = Test5.ComboBox3.Value
   
8. e = Test5.TextBox2.Text
   
9. With ActiveSheet.Range("$A$1:$E$12")
   
10.     .Parent.AutoFilterMode = False   'Åã¥Ü¥þ³¡¸ê®Æ ->·sªº ¦h­«¿z¿ï ¤~·|½T.
    
11.     '¦h­«¿z¿ï  ..........
    
12.     If a <> "" Then .AutoFilter Field:=1, Criteria1:=a
    
13.     If b <> "" Then .AutoFilter Field:=2, Criteria1:=b
    
14.     If c <> "" Then .AutoFilter Field:=3, Criteria1:=c
    
15.     If d <> "" Then .AutoFilter Field:=4, Criteria1:=d
    
16.     If e <> "" Then .AutoFilter Field:=5, Criteria1:=e
    
17.     '¦h­«¿z¿ï  ..........
    
18. End With
    
19. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 11# Michelle-W
¸Õ¸Õ¬Ý


ºÃ°Ý.zip (937.33 KB)

¤U¸ü¦¸¼Æ: 8

2017-7-20 20:35

GBKEE

¦^´_ 14# Michelle-W
[·Q»¡°j°é¥i¥H¥[¤@­Ó±ø¥ó   BÄæ<>""&AÄæ<>""] ¦n¹³¨S¦³¥²­n§a

[­Y¬O­è¦n¦³ªÅ®æªº¸Ü¡AªÅ®æ¥H¤Uªº¤å¦r¨Ã¤£·|Åã¥Ü©óListBox] ¤w­×§ï¤F,¿z¿ï ªÅ®æ »Ý¥Î "="

ºÃ°Ý.zip (28.05 KB)

¤U¸ü¦¸¼Æ: 11

2017-7-21 15:46

GBKEE

¦^´_ 16# Michelle-W
¸Õ¸Õ¬Ý

¿ï¾Ü¿z¿ï.zip (87.05 KB)

¤U¸ü¦¸¼Æ: 33

2017-7-24 09:00

1. Do
   
2.             If .Cells(R, i) <> "" Then  'i ¬°Ä檺¦ì¸m
   
3.                 d(.Cells(R, i).Value) = ""
   
4.             Else
   
5.                 d("=") = ""
   
6.             End If
   
7.             R = R + 1
   
8.         Loop Until .Cells(R - 1, i).End(xlDown).Row = Rows.Count

½Æ»s¥N½X