[已解决]Listbox内数值删除问题求助，感谢指导。

金樽空对月

在附件中点运行按钮会出现一个窗体，窗体内有一个listbox1的列表控件，然后我选择其中的一行点删除按钮，会出现如下图所示的错误提示，请各位老师指导。

最佳答案

月排行榜 / 总排行榜

zjdh

2015-10-17 20:02

设定源数据区域，就无法删除列表中的数据啦!
Listbox问题.rar (13.32 KB, 下载次数: 7)

2015-10-17 20:02 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

设定源数据区域，就无法删除列表中的数据啦!
Listbox问题.rar (13.32 KB, 下载次数: 7)

2015-10-17 20:02 上传

点击文件名下载附件

金樽空对月

zjdh 发表于 2015-10-17 20:02
设定源数据区域，就无法删除列表中的数据啦!

哦，列表框还有这个特点呀，我还以为数据怎么以设置都可以删除呢，感谢老师解惑{:35:}

七彩屋

金樽空对月 发表于 2015-10-17 20:35
哦，列表框还有这个特点呀，我还以为数据怎么以设置都可以删除呢，感谢老师解惑

为什么不能删除？

1. Private Sub CommandButton1_Click()
   
2.     For X = 0 To ListBox1.ListCount - 1
   
3.         If X < ListBox1.ListCount Then
   
4.         If ListBox1.Selected(X) Then
   
5.             ListBox1.RemoveItem (X)
   
6.             Sheet1.Rows(X + 1).Delete Shift:=xlUp
   
7.         End If
   
8.         End If
   
9.    Next
   
10. End Sub

复制代码

七彩屋

Listbox问题.rar (11.47 KB, 下载次数: 5)

2015-10-17 22:54 上传

点击文件名下载附件

js_djg

七彩屋 发表于 2015-10-17 22:52
为什么不能删除？

学习了，谢谢！

js_djg

可以直接在多行显示的列表框中修改字段吗