返回列表 上一主題 發帖

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

fei6999

帖子
41 
主題
8 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2011-3-8 
最後登錄
2022-4-16 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-5-10 11:05 | 只看該作者

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

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

如附檔
收藏 分享

fei6999

帖子
41 
主題
8 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2011-3-8 
最後登錄
2022-4-16 
5#
發表於 2012-5-11 13:11 | 只看該作者
回復 4# Hsieh


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

TOP

Hsieh

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

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

fei6999

帖子
41 
主題
8 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2011-3-8 
最後登錄
2022-4-16 
3#
發表於 2012-5-10 21:03 | 只看該作者
回復 2# fei6999


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

TOP

fei6999

帖子
41 
主題
8 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2011-3-8 
最後登錄
2022-4-16 
2#
發表於 2012-5-10 15:06 | 只看該作者
回復 1# fei6999
自己加上陣列後竟然可以用了


    刪除表單.rar (13.01 KB)

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題