標題: [發問] 請教使用ListBox1製作一個刪除表單 [打印本頁]

---

作者: fei6999    時間: 2012-5-10 11:05     標題: 請教使用ListBox1製作一個刪除表單

我想使用ListBox1製作一個刪除表單來達到多筆或單筆刪除的效果
但是在變數轉換及取出值有問題[attach]10889[/attach]

如附檔

---

作者: fei6999    時間: 2012-5-10 15:06

回復 1# fei6999
自己加上陣列後竟然可以用了


    [attach]10891[/attach]

---

作者: fei6999    時間: 2012-5-10 21:03

回復 2# fei6999


    想再請教如何在點選全部刪除(optionbutton1)
表單上的項目全選的語法

---

作者: Hsieh    時間: 2012-5-10 21:23

回復 3# fei6999

不懂你TextBox1的作用是甚麼

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. 
   
8. Private Sub 取消_Click()
   
9. 交易刪除.Hide
   
10. Unload Me
    
11. End Sub
    
12. Private Sub 確定_Click()
    
13. Set rng = Sheet1.[E7:E18]
    
14. With ListBox1
    
15. If OptionButton1 = True Then
    
16. ListBox1.Clear '清空LIST
    
17. rng(1).Offset(, 1).Resize(12, 5) = "" '清空儲存格內容
    
18. Else
    
19. For i = .ListCount - 1 To 0 Step -1
    
20.   If .Selected(i) = True Then
    
21.   .RemoveItem .List(i) '移除項目
    
22.   rng(i + 1).Offset(, 1).Resize(, 5) = "" '清空儲存格內容
    
23.   End If
    
24. Next
    
25. End If
    
26. End With
    
27. End Sub

複製代碼

---

作者: fei6999    時間: 2012-5-11 13:11

回復 4# Hsieh


    感謝!問題以解決!
請問超級版主是否住五股星洲
超級版主很像我認識的人

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)