Excel 如何获取复选列表框的选中项

把窗体控件改为ActiveX控件。

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSFormsReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then Call yy

End Sub

Sub yy()

Dim msg$, i&

msg = ""

For i = 0 To Sheet1ListBox1ListCount - 1

If Sheet1ListBox1Selected(i) Then msg = msg & Sheet1ListBox1List(i) & vbCrLf

Next

MsgBox "你选择的是：" & vbCrLf & msg

End Sub

在Sheet2的B2中输入

=INDEX(A:A,SMALL(IF(Sheet1!$B$3:$B$100=$B$1,ROW($3:$100),999),ROW(A1)))

按组合键确认后右拖、下拉填充。

1、电脑打开Excel表格。

2、按Alt+F11进入VBA。

3、进入VBA后，点击插入模块。

4、点击插入模块后，输入代码

sub m

for each sh in sheets

k=k+1

cells(k,1)=shname

next

end sub

然后点击运行。

5、点击运行后，所有sheet名称就都提取出来了。

sheet2 a4输入：

=text(index(sheet1!a:a,small(if(sheet1!b$2:b$10000=b$1,row($2:$10000),4^8),row(a1)))&"","e-m-d")

sheet2 b4输入：

=index(sheet1!d:d,small(if(sheet1!b$2:b$10000=b$1,row($2:$10000),4^8),row(a1)))&""

数组公式，同时按下ctrl+shift+enter三键结束。

sheet2 b2输入普通公式：=vlookup(b1,sheet1!b:c,2,)

只需要在sheet2 b1单元格输入编号，其它就可以自动生成了。

以上就是关于Excel 如何获取复选列表框的选中项全部的内容，包括:Excel 如何获取复选列表框的选中项、excel中怎么批量提取数据并自动生成列表、如何获取excel所有sheet名称等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！