ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ListBox¨ú­È¿z¿ï

[µo°Ý] ListBox¨ú­È¿z¿ï


§Ú¦blistbox¤W¿ï¤F2­Ó¿z¿ï­È

¥i¬O¿z¿ïµ²ªG¥u¦³§ì¨ì¤@­Ó­È
§Úªºµ{¦¡½X:
  1. Private Sub CommandButton5_Click()
  2. For i = 0 To ListBox2.ListCount - 1
  3.         If ListBox2.Selected(i) = True Then
  4. Worksheets("Á`¾÷").Range("$A$2:$T$2414").AutoFilter field:=7, Criteria1:=ListBox2.List(i), Operator:=xlOr, Criteria2:=ListBox2.List(i)
  5. End If
  6. Next
  7. End Sub
½Æ»s¥N½X
³Â·Ð¦U¦ì¤j¯«¤F

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-9 07:22 ½s¿è

¦^´_ 1# wang077

¦Û°Ê¿z¿ï.zip (24.96 KB)

TOP

¦^´_ 2# singo1232001
·PÁ¤j¯«À°¦£
½Ð±Ð¤@¤U
ReDim Preserve ar(w)
³o¦æ¬O¬Æ»ò·N«ä

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-9 11:11 ½s¿è

¦^´_ 3# wang077


    ¼g­Ó´ú¸Õµ{¦¡ ¤ÀªR¬Ý¬Ý
SUB TEST()

dim ar1
redim ar1(1)
   ar1(0) = 1
   redim ar1(1)  
   redim ar1(2)  

dim ar2
redim ar2(1)
   ar2(0) = 1
   redim preserve ar2(1)
   redim preserve ar2(2)

End sub

¥Î³v¦æ ·s¼WºÊ¬Ý¦¡
¤@¨B¤@¨B Àˬdar1 ¸òar2 ¸Ì­±ªºÅܤÆ

TOP

¦^´_ 4# singo1232001
¤F¸Ñ¤F¡AÁÂÁ¤j¯«À°¦£©M¤À¨É

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD