返回列表 上一主題 發帖

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

  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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題