excel下拉框多选打勾的设置方法
二、设置下拉列表的选项内容。将工作表sheet2名称修改为“data”,并在A列输入下拉选项。
三、插入ListBox（列表框）控件。
在sheet1中保存代码：
PrivateSubListBox1_Change()IfReLoadThenExitSub’见下方说明Fori=0ToListBox1.ListCount-1IfListBox1.Selected(i)=TrueThent=t&”,”&ListBox1.List(i)NextActiveCell=Mid(t,2)EndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)WithListBox1IfActiveCell.Column=1AndActiveCell.Row>1Thent=ActiveCell.ValueReLoad=True’如果是根据单元格的值修改列表框，则暂时屏蔽listbox的change事件。Fori=0To.ListCount-1’根据活动单元格内容修改列表框中被选中的内容IfInStr(t,.List(i))Then.Selected(i)=TrueElse.Selected(i)=FalseEndIfNextReLoad=False.Top=ActiveCell.Top ActiveCell.Height’以下语句根据活动单元格位置显示列表框.Left=ActiveCell.Left.Width=ActiveCell.Width.Visible=TrueElse.Visible=FalseEndIfEndWithEnd Sub
在sheet2（data）中保存代码：
PrivateSubWorksheet_Change(ByValTargetAsRange)Sheets(“Sheet1”).ListBox1.ListFillRange=”data!a1:a”&Cells(1,1).End(xlDown).RowEnd Sub
在模块1中保存：
Public ReLoad As Boolean ‘开关listbox的change事件
