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

[µo°Ý] ½Ð±Ð¨Ï¥ÎListBox1»s§@¤@­Ó§R°£ªí³æ

[µo°Ý] ½Ð±Ð¨Ï¥ÎListBox1»s§@¤@­Ó§R°£ªí³æ

§Ú·Q¨Ï¥ÎListBox1»s§@¤@­Ó§R°£ªí³æ¨Ó¹F¨ì¦hµ§©Î³æµ§§R°£ªº®ÄªG
¦ý¬O¦bÅܼÆÂà´«¤Î¨ú¥X­È¦³°ÝÃD §R°£ªí³æ.rar (8.88 KB)

¦pªþÀÉ

¦^´_ 1# fei6999
¦Û¤v¥[¤W°}¦C«á³ºµM¥i¥H¥Î¤F


    §R°£ªí³æ.rar (13.01 KB)

TOP

¦^´_ 2# fei6999


    ·Q¦A½Ð±Ð¦p¦ó¦bÂI¿ï¥þ³¡§R°£(optionbutton1)
ªí³æ¤Wªº¶µ¥Ø¥þ¿ïªº»yªk

TOP

¦^´_ 3# fei6999

¤£À´§ATextBox1ªº§@¥Î¬O¬Æ»ò
  1. Private Sub UserForm_Initialize()
  2. ListBox1.MultiSelect = fmMultiSelectMulti
  3. For Each a In Sheet1.[E7:E18]
  4. ListBox1.AddItem a
  5. Next
  6. End Sub

  7. Private Sub ¨ú®ø_Click()
  8. ¥æ©ö§R°£.Hide
  9. Unload Me
  10. End Sub
  11. Private Sub ½T©w_Click()
  12. Set rng = Sheet1.[E7:E18]
  13. With ListBox1
  14. If OptionButton1 = True Then
  15. ListBox1.Clear '²MªÅLIST
  16. rng(1).Offset(, 1).Resize(12, 5) = "" '²MªÅÀx¦s®æ¤º®e
  17. Else
  18. For i = .ListCount - 1 To 0 Step -1
  19.   If .Selected(i) = True Then
  20.   .RemoveItem .List(i) '²¾°£¶µ¥Ø
  21.   rng(i + 1).Offset(, 1).Resize(, 5) = "" '²MªÅÀx¦s®æ¤º®e
  22.   End If
  23. Next
  24. End If
  25. End With
  26. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ·PÁÂ!°ÝÃD¥H¸Ñ¨M!
½Ð°Ý¶W¯Åª©¥D¬O§_¦í¤­ªÑ¬P¬w
¶W¯Åª©¥D«Ü¹³§Ú»{ÃѪº¤H

TOP

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