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

[µo°Ý] °õ¦æ¶¥¬q¿ù»~'380'

[µo°Ý] °õ¦æ¶¥¬q¿ù»~'380'

¦U¦ì¤j¯«¡A§Ú¦b°µ¤@­Ó¬d¸ß¨t²Î
·í§Ú¿ï¾Üsheet2µM«á¥Îcombobox2¿z¿ï§¹«á
·Q­nÅý¬Y´X­ÓÄæ¦ìª½±µ¦blistbox¤WÅã¥Ü¡A©Ò¥H¦³¤F²©ö¬d¬Ýªº«ö¶s
¦ý¬O§ì¨ìAJÄæ®É¡A«o¤@ª½Åã¥Ü[°õ¦æ¶¥¬q¿ù»~'380']
½Ð°Ý¦³­þùؼg¿ù¶Ü?
test.zip (27.46 KB)

¦^´_ 1# wang077
¦³¤j¯«À°À°¦£¶Ü
ÁÙ¬O¬O§Ú¸ÑÄÀªº¤£²M·¡?
§Ú°µ¤F¤@­Ó¬d¸ß¨t²Î¦buesrform1
¿ï§¹¯Z§O«á«ö½T©w
µM«á¿ï¾÷ºØ
¿ï§¹¾÷ºØ«á«ö²©ö¬d¬Ý
°ÝÃD´N¬O³Ì«áªº¼Æ­ÈµLªkÅã¥Ü¦blistbox¤W

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-29 10:47 ½s¿è

¦^´_ 2# wang077

test.zip (26.39 KB)

TOP

¦^´_ 3# singo1232001
¤j¤j¡A½Ð°Ý§Ú¨º¼Ë¼g¬°¦ó§ì¨ú¤£¨ì?
¥t¥~¦pªG§ï¦¨³o¼Ë¡A§Ú¦b²©ö¬d¸ßªº®É­Ô¡A¦³¿ìªk¥u§ì¨ú¨ì¤J®w¡B¨}«~¡B¨}²v³o¤T¦æªº¸ê®Æ¶Ü
µM«á«e­±A¡BBÄæ¦b²©ö¬d¸ß®É¤£­n­«½Æ
test.zip (28.5 KB)

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-29 13:00 ½s¿è

¦^´_ 4# wang077

http://forum.twbts.com/thread-23251-1-2.html
¤§«eªº³W«h ¥D­n§Ú¾ã²z¤F¨âºØ¶×¤J¤è¦¡
³o¦¸§Aªº°ÝÃD ­è¦n¦b§Ú¨S¼g¨ìªº½d³ò¥~ ·í®É¤]¨S°ÝÃD´N¨Sªá®É¶¡²`¤JºN¯Á

¥Ø«e§A©Ò¨Ï¥Îªº¬OÄÝ©óadditemªº"°}¦C¤@¦¸¶×¤J"¤è¦¡
(ÁöµM¨S¥X²{additem)
¦ýª½±µ¥Î°}¦C¶×¤J ¤]ºâ¦¹Ãþ

­ì¦]¦b©ó­Ó§O additem µLªk¶W¹L10Äæ¦ì
¥u¯à¾a°}¦C¶×¤J ¤~¯à¶W¹L10Äæ¦ì

³oºØÃä¿z¿ï¤S¿z¿ïªº§e²{¤è¦¡ ¨ä¹ê­n¦n¦n¦Ò¼{¦³µL¨ä¥²­n
¦¹¤è¦¡«á´Á¤j¤è¦V·|«D±`½ÆÂø

«Øij¥Î¥H¤U¤TºØ¤è¦¡
1.§ï¥Î²Ä¤@ºØ±ÀÂ˪º¤è¦¡ ¥Î·s¼W¼È¦sªí·í§@¿z¿ï°Ï
2.¤£­n¦b¤u§@ªí³B²z¿z¿ï°ÝÃD ¥u­n¥Î¤Wuserform1¿z¿ï
3.´N¥u¥Î¤u§@ªí³B²z¿z¿ï°ÝÃD ¤£­n¥Î¤W userform1

test v1.zip (25.45 KB)

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-7-29 13:04 ½s¿è

¦^´_ 1# wang077

¬O³o¼Ë¶Ü? ½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub ComboBox2_Change()
Range("$A$2:$AJ$65536").AutoFilter Field:=1, Criteria1:=ComboBox2.Text
End Sub

Private Sub CommandButton3_Click()
Dim Arr, Ar(), i&, j&
b = ComboBox1.Text
Sheets(b).Select
If Me.ComboBox2.Text <> "" And Me.ComboBox3.Text = "" Then
    Arr = Sheets(b).AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible)
    ReDim Ar(1 To UBound(Arr) + 1, 1 To UBound(Arr, 2))
    For j = 1 To UBound(Arr, 2)
        For i = 1 To UBound(Arr)
            If Arr(i, j) <> "" Then
            If j <> j1 Then j1 = j: n = n + 1
            If Ar(1, n) = "" Then Ar(1, n) = Cells(2, j)
            Ar(i + 1, n) = Arr(i, j)
            End If
        Next
    Next
    With Me.ListBox1
      .List = Ar
      .ColumnCount = n
    End With
End If
Sheets(b).Select
End Sub

TOP

¦^´_ 5# singo1232001
¦pªG¬O§â¿z¿ïªºµ²ªG½Æ»s¨ì·sªº¤u§@ªí©O?
³o¼Ë·|¤ñ¸û¦n³B²z¶Ü?
¤j¤j¡A§Ú¥Î§AªºÀɮפU¥h´ú¸Õ¡Alistbox¤W¨}«~ªº¼Æ­ÈÅã¥Ü¦n¹³¿ù»~¤F
¦n¹³¤]·|§ì¨ì³ø¼o¨º¦æ

TOP

¦^´_ 6# samwang
´ú¸Õ¹L¤F¡A¨S°ÝÃD
¦pªGlistbox¥u­nÅã¥ÜA¡BB¡BC¡BD¡BAJÄæ¡A¥BA¡BB¡BCÄ椣­«½ÆÅã¥Ü©O?
ÁÙ¦³AJÄ檺¨}²v¡Alistbox¤W¦³¿ìªkÅã¥Üxx.x%¶Ü
test.zip (29.21 KB)

TOP

¦^´_ 1# wang077


    ¸gÅç¤À¨É:¸ê®Æ§ï¬°ª½¦¡ªº¦n³B,¥H¼Ó¥D½d¨Ò¬°¨Ò
1.¤é´Á¥i¥H«ùÄòÂX¥R
2.Äæ¦ì¥i¥H§½³¡ÂX¥R
3.¥i¥H­pºâ¦hºØ¨}²v
  3.1.­Ó§O¨}²v
  3.2.¾÷¥x¦X­p¨}²v
  3.3.®Æ¸¹¦X­p¨}²v
  3.4.¤é´Á¦X­p¨}²v
  3.5.¥þ³¡²£«~¨}²v
  3.6.¨ä¥L·Q­n­pºâªº¨}²v
4.®e©ö¬d¸ß¾ú¥v¸ê®Æ

¥H¤W°Ñ¦Ò!

¤J¥X®wºÞ²z-8.zip (57.63 KB)

¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 9# Andy2483
³o¤]¤Ó±j¤j¡A­n²z¸Ñµ{¦¡½Xµê­n¤@ÂI®É¶¡¤F
¤]ÁÂÁ¤j¤j´£¨Ñ¤èªk°Ñ¦Ò

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD