[發問] 請教使用ListBox1製作一個刪除表單

fei6999

我想使用ListBox1製作一個刪除表單來達到多筆或單筆刪除的效果
但是在變數轉換及取出值有問題 刪除表單.rar (8.88 KB)

下載次數: 8

2012-5-10 11:04

如附檔

fei6999

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


    刪除表單.rar (13.01 KB)

下載次數: 18

2012-5-10 15:05

fei6999

回復 2# fei6999


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

Hsieh

回復 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

回復 4# Hsieh


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