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

[µo°Ý] Listbox¨ú¸ê®Æ°ÝÃD

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-8-11 06:07 ½s¿è

¦^´_ 9# Michelle-W
  1. Private Sub CommandButton1_Click()
  2.     Dim AA(), xi As Integer
  3.     With ListBox1
  4.         For xi = 0 To .ListCount - 1
  5.             '  §PÂ_¦Cªí®Ø (ListBox1) ¬O§_¦³³QÂI¿ï
  6.             If .Selected(xi) = True Then
  7.                 '  ¨ú¥X¸Ó¦æ¤§¼Æ¾Ú¡A¦s¤J AA °}¦C¤¤
  8.                 AA = Application.Index(ListBox1.List, xi + 1)
  9.                 Range("A1").Select
  10.                 '*******************
  11.                 Selection.End(xlUp).Select   
  12.                 '***'xlUp ©¹¤W "A1"ªº ©¹¤W ÁÙ¬O¦b"A1"
  13.                 Sheets("sheet1").Range("a" & ActiveCell.Row + 1) = AA
  14.                 Exit For
  15.             End If
  16.         Next
  17.     End With
  18. End Sub
½Æ»s¥N½X
AÄ椤¸ê®Æ¦p¦ó²Ö¿nªº½Ð»¡©ú
¬O³o¼Ë¶Ü?
  1. Option Explicit
  2. Private Sub Ex_CommandButton1_Click()
  3.     Dim AA(), xi As Integer
  4.     With ListBox1
  5.         For xi = 0 To .ListCount - 1
  6.             '  §PÂ_¦Cªí®Ø (ListBox1) ¬O§_¦³³QÂI¿ï
  7.             If .Selected(xi) = True Then
  8.                 '  ¨ú¥X¸Ó¦æ¤§¼Æ¾Ú¡A¦s¤J AA °}¦C¤¤
  9.                 AA = Application.Index(ListBox1.List, xi + 1)
  10.                  With Range("A" & xi + 1)
  11.                     '.Cells = AA
  12.                     .Cells = .Cells + AA  '¸ê®Æ¬O²Ö¿nªº
  13.                ' Exit For       'Â÷¶} For °j°é
  14.                '*******************
  15.                'Listbox1¤¤¦h­Ó¤£³sÄòªº¸ê®Æ, Exit For ´N¤£°õ¦æ¤U¤@­Ó .Selected(xi) = True
  16.                '******************************
  17.             End If
  18.         Next
  19.     End With
  20. End Sub
  21. Option Explicit
  22. Private Sub CommandButton1_Click()
  23.     Dim AA(), xi As Integer
  24.     With ListBox1
  25.         For xi = 0 To .ListCount - 1
  26.             '  §PÂ_¦Cªí®Ø (ListBox1) ¬O§_¦³³QÂI¿ï
  27.             If .Selected(xi) = True Then
  28.                 '  ¨ú¥X¸Ó¦æ¤§¼Æ¾Ú¡A¦s¤J AA °}¦C¤¤
  29.                 AA = Application.Index(ListBox1.List, xi + 1)
  30.                  With Range("A" & Rows.Count).End(xlUp)  '.Offset(1)  '**ÁÙ¬O¤U¤@Àx¦s®æ
  31.                     .Cells = AA
  32.                     'ÁÙ¬O .Cells = .Cells + AA '¸ê®Æ¬O²Ö¿nªº
  33.                 End With
  34.                     
  35.                     '***Count ÄÝ©Ê ¶Ç¦^¤@­Ó Long (ªø¾ã¼Æ)¡Aµ¥©ó¦b¤@­Ó¶°¦Xª«¥ó¤¤ªºª«¥ó¼Æ¥Ø¡C
  36.                     'Rows.Count : ¤u§@ªíªº³Ì«á¤@¦C
  37.                  
  38.                     ' ***Offset ÄÝ©Ê   ®M¥Î¦Ü Range ª«¥ó®É¥Î Offset ÄÝ©Ê¡C
  39.                     '¶Ç¦^ Range ª«¥ó¡A¥Î¥H¥Nªí¬Y­Ó«ü©w°Ï°ì¥H¥~ªº½d³ò¡C°ßŪ¡C
  40.                     'expression.Offset(RowOffset, ColumnOffset)
  41.                     'Range("A" & Rows.Count).End(xlUp).Offset(1)
  42.                     '¤u§@ªíAÄ橳³¡ , ©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ, ªº¤U¤@Àx¦s®æ
  43.                 'Exit For
  44.             End If
  45.         Next
  46.     End With
  47. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 10# c_c_lai


§Ú·Q­n±NListbox¤¤©Ò¿ï¾Üªº¸ê®Æ¼g¤JAÄæ
¥i¯àÅÞ¿è¼g¿ù¤F¾É­P±z¬Ý¤£À´QQ"

TOP

¦^´_ 11# GBKEE

´N¬OÂI¿ïListbox¤¤ªº¸ê®Æ¡A¶ñ¤Jsheet3ªºAÄæ
§Ú¦Û¤v¹Á¸Õ¹L§Y¨Ï¿ï¾Ü¤F¤Tµ§¡AAÄæ¸ê®Æ¤]¥u·|¥X²{1µ§

·Q­n¹F¨ìªº¥\¯à¦p¤U¹Ï
µe­±1.JPG
2016-8-11 11:11

µe­±2.JPG
2016-8-11 11:11



¥t¥~§Ú¤]·Q­n¦bListboxÂI¿ï¥i¥H§R°£ªº¥\¯à
¥Ø«eªºµ{¦¡½X·|¤@ª½¥X²{µLªk¿ë»{ªº¿ù»~
¤£À´¿ù¦b­þÃäQQ
¤£¾å±o¥i§_¤@°_À°§Ú¬Ý¬Ý
·P®¦

test.rar (21.75 KB)

TOP

¦^´_ 13# Michelle-W
  1. Private Sub §R°£_Click()

  2. 'ÁÙ¨S³B²z§¹,¤@ª½¿ù»~
  3. Dim i As Integer
  4. For i = home.ListBox1.ListCount - 1 To 0 Step -1 'µ{¦¡©Ò¦b¦ì¸m¦b homeªí³æ¤¤¥i¥H¬Ù²¤ home.
  5. If ListBox1.Selected(i) Then '§YµMµ¥©óTrue ´N¤£¥Îµ¥©óTrue¤F
  6. home.ListBox1.RemoveItem (i) 'ListBox1ªº list©Ò«ü©wªº¬O²M³æ¨Ó·½¡A¤]´N¬O»¡²M³æ¨Ó·½¦³§ïÅÜListBox1ªº²M³æ¤~·|§ïÅÜ
  7. '©Ò¥H³o¸Ì¥ÎRemoveItem¬O¿ù»~ªº¡A¥¿½T¤è¦¡¡AÀ³¸Ó§R°£ Sheet2ªº¸ê®Æ¡A³o¸Ì¥ý¤£À°§A­×¥¿
  8. End If
  9. Next

  10. End Sub
½Æ»s¥N½X
  1. Private Sub ¶×¤J_Click()
  2.     Dim AA(), xi As Integer
  3.     With ListBox1
  4.         For xi = 0 To .ListCount - 1
  5.             '  §PÂ_¦Cªí®Ø (ListBox1) ¬O§_¦³³QÂI¿ï
  6.             If .Selected(xi) Then '§YµMµ¥©óTrue ´N¤£¥Îµ¥©óTrue¤F
  7.                 '  ¨ú¥X¸Ó¦æ¤§¼Æ¾Ú¡A¦s¤J AA °}¦C¤¤
  8.                 AA = Application.Index(ListBox1.List, xi + 1)
  9.                 ''¤U¦C»y¥y¥²¶·¥[¤J.End(xlUp)¡A³o¸Ì¤wÀ°§A­×¥¿
  10.                 With Sheets("sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1)  '.Offset(1)  '**ÁÙ¬O¤U¤@Àx¦s®æ
  11.                     '''''''''''''''''''''
  12.                     '¤U­±2­Ó»yªk¨Ì§Aªº»Ý¨D¾Ü¤@
  13.                     .Cells = AA '³æ¤@Àx¦s®æ¨Ï¥Î
  14.                     .Resize(, UBound(AA)) = AA '­Y¨Ï¥Î¦hÄæ¦h¦C¥²¶·«ü©w¦³¦h¤ÖªºÀx¦s®æµ¹¥¦
  15.                     '''''''''''
  16.                     'ÁÙ¬O .Cells = .Cells + AA '¸ê®Æ¬O²Ö¿nªº
  17.                 End With
  18.                     
  19.                     '***Count ÄÝ©Ê ¶Ç¦^¤@­Ó Long (ªø¾ã¼Æ)¡Aµ¥©ó¦b¤@­Ó¶°¦Xª«¥ó¤¤ªºª«¥ó¼Æ¥Ø¡C
  20.                     'Rows.Count : ¤u§@ªíªº³Ì«á¤@¦C
  21.                  
  22.                     ' ***Offset ÄÝ©Ê   ®M¥Î¦Ü Range ª«¥ó®É¥Î Offset ÄÝ©Ê¡C
  23.                     '¶Ç¦^ Range ª«¥ó¡A¥Î¥H¥Nªí¬Y­Ó«ü©w°Ï°ì¥H¥~ªº½d³ò¡C°ßŪ¡C
  24.                     'expression.Offset(RowOffset, ColumnOffset)
  25.                     'Range("A" & Rows.Count).End(xlUp).Offset(1)
  26.                     '¤u§@ªíAÄ橳³¡ , ©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ, ªº¤U¤@Àx¦s®æ
  27.                 'Exit For
  28.             End If
  29.         Next
  30.     End With
  31.     ListB1 '¶×¤J«á­«·s³]©wListBox1
  32. End Sub
½Æ»s¥N½X

TOP

  1. Private Sub §R°£_Click()
  2. Dim arr() '³]©w¤@­ÓªÅ¥Õ°}¦C
  3. Dim i As Integer
  4. n = 0
  5. For i = ListBox1.ListCount - 1 To 0 Step -1
  6.     If ListBox1.Selected(i) Then
  7.         n = n + 1
  8.         ReDim Preserve arr(1 To n) '­«³]°}¦C¼Æ¥Ø¡A¼W¥[°}¦C¼Æ¥Ø¡A
  9.         arr(n) = i + 2 '±N±ý§R°£ªº¦C¸¹°O¿ý¦b°}¦C¤¤¡A+2¬O±q (RowSource = "Sheet2!A2:A" & ro) ªºA2­pºâ¦C¸¹
  10.     End If
  11. Next
  12. For Each ar In arr
  13.     Sheet2.Rows(ar).Delete '±N°O¿ý¦b°}¦Cªº¦C¸¹¤@¤@§R°£
  14. Next
  15. ListB1 '§R°£«á­«³]ListBox1
  16. '³o¸Ì·|¤À2­Ó°j°é§R°£¬O¦]¬°¡A·í§R°£Sheet2¤¤°O¿ý®É·|¨Ï±o¨ä¥LListBox1.Selected¬°False
  17. '(¤]´N¬O»¡©Ò¦³¤w¿ï¨úªº¸ê®Æ·|Åܦ¨µL¿ï¨úª¬ºA)¥H­P©ó¥u¯à§R°£¤@¦C¡A
  18. '¬G¥u¦³¥ý°O¿ý±ý§R°£ªº¦C¸¹¡A¦A§R°£¨ä¸ê®Æ
  19. End Sub
½Æ»s¥N½X
¦^´_ 13# Michelle-W

TOP

¦^´_ 15# lpk187
¦^´_ 11# GBKEE
¦^´_ 10# c_c_lai

ÁÂÁ§AÁÙÀ°§Ú¸ÑÄÀ§R°£ªºµ{¦¡½X¿ù»~¡A§Ú­è¦³¦Û¤v¬ã¨s¤F¤@¤U«ç»ò§R°£Àx¦s®æ
¤£¹LÁÙ¬O±z¤ñ¸û§Ö~«¢«¢


«D±`ÁÂÁ¦U¦ì«e½ú­Ì´£¨Ñªºµ{¦¡½X
³Ì­«­nªº¬O³£ÁÙ¦³ªþ¤WÁ¿¸Ñ¡AÅý¤p©f§Ú¯à§ó§Ö¶i¤Jª¬ªp
ı±o«Ü·Å·x^^
«D±`·PÁÂ!!!

TOP

¦^´_ 16# Michelle-W
¾ã²z¤@¤U§Aªºµ{¦¡½X
¥i¤F¸Ñ¬Ý¬Ý
  1. Option Explicit
  2. Dim Rng As Range, Msg As Boolean
  3. Private Sub UserForm_Initialize()
  4.     Msg = MsgBox("ListBox ²M³æªº¨Ó·½¡C" & vbLf & "Yes=¨Ï¥ÎRowSource" & vbLf & "No= ¨Ï¥ÎList(°}¦C)", vbYesNo) = vbYes
  5.     ListB1
  6. End Sub
  7. Public Sub ListB1()
  8.     Dim RO As Integer
  9.     With Sheet2
  10.         RO = IIf(.Cells(Rows.Count, 1).End(xlUp).Row > 2, .Cells(Rows.Count, 1).End(xlUp).Row, 2)
  11.         Set Rng = .Range("A2:A" & RO)
  12.     End With
  13.     With ListBox1
  14.         .MultiSelect = fmMultiSelectMulti
  15.         If Msg Then
  16.             .RowSource = Rng.Address(, , , 1, 1)
  17.         Else
  18.             .List = Rng.Value
  19.         End If
  20.         .ColumnCount = Rng.Columns.Count
  21.     End With
  22. End Sub
  23. Private Sub ·s¼W_Click()
  24. '¿é¤Jªº¸ê®Æ¦^¶Ç¦ÜÀx¦s®æ°O¿ý
  25. Dim RO As Integer
  26. With Sheet2
  27.     RO = .[A65536].End(xlUp).Row + 1
  28.     .Cells(RO, 1) = TextBox1.Value
  29.     TextBox1.Value = ""
  30.     ListB1 '­«³] ListBox1
  31. End With
  32. End Sub
  33. Private Sub §R°£_Click()
  34.     Dim i As Integer, r As String, E As Variant
  35.     For i = home.ListBox1.ListCount - 1 To 0 Step -1
  36.         If home.ListBox1.Selected(i) = True Then
  37.            If Msg = False Then         '**ListBox ²M³æªº¨Ó·½¡CNo= ¨Ï¥ÎList(°}¦C)
  38.                 home.ListBox1.RemoveItem (i)
  39.             ElseIf Msg = True Then   '**ListBox ²M³æªº¨Ó·½¡CYes=¨Ï¥ÎRowSource
  40.                 r = IIf(r <> "", r & "," & i + 1, i + 1)
  41.             End If
  42.         End If
  43.     Next
  44.     If Msg = True Then
  45.         For Each E In Split(r, ",")
  46.             Rng.Rows(E).Delete            '**§R°£½d³ò¤¤ªº¸ê®Æ Yes=¨Ï¥ÎRowSource
  47.         Next
  48.         ListB1
  49.     End If
  50. End Sub
  51. Private Sub ¶×¤J_Click()
  52.     Dim AA, xi As Integer
  53.     With ListBox1
  54.         For xi = 0 To .ListCount - 1
  55.             '  §PÂ_¦Cªí®Ø (ListBox1) ¬O§_¦³³QÂI¿ï
  56.             If .Selected(xi) = True Then
  57.                 '  ¨ú¥X¸Ó¦æ¤§¼Æ¾Ú¡A¦s¤J AA °}¦C¤¤
  58.                 AA = Application.Index(ListBox1.List, xi + 1)
  59.                  'With Sheets("sheet3").Range("A" & Rows.Count).Offset(1)  '.Offset(1)  '**ÁÙ¬O¤U¤@Àx¦s®æ
  60.                  With Sheets("sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1)  '.Offset(1)  '**ÁÙ¬O¤U¤@Àx¦s®æ
  61.                     .Cells = .Cells + AA
  62.                     'ÁÙ¬O .Cells = .Cells + AA '¸ê®Æ¬O²Ö¿nªº
  63.                 End With
  64.             End If
  65.         Next
  66.     End With
  67. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 15# lpk187


   
20180314.JPG
2018-3-14 14:42


¤j¤j
   ·Q½Ð±Ð¤@¤U¦pªGListbox¸ê®ÆÄæ¦ì¤ñ¸û¦h ­n¦p¦ó¶×¤JÀx¦s®æ,¨Ì·Ó±zµ¹ªºcode­n¦p¦ó­×§ï©O~~¨D¸Ñ´b
yvonne

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD