Excel电子表格建造下拉列表的方式

　　小编之前已经先容了许多excel的成果及属性，本日要继承分享的是怎么操作excel建造下拉列表，方式还不止一种，是不是很好奇呢?顿时来分享下excel建造下拉列表的3种方式。

　　excel建造下拉列表的方式

　　excel建造下拉列表配图

　　在Excel中建造下拉列表可以或许通过数据有效性、利用窗体控件与VBA控件东西箱中的组合框来建造。下面我们用一个详细的例子来举办说明(在文章末了处可下载xls名目标示例文件)。如果我们每个月都有一个人为表，个中每个员工的人为凭据其出勤天数每个月都不沟通。

　　我们需要建造一个“小我私家人为表”来查察每小我私家每个月的人为环境，这时就可以建造一个包括员工姓名下拉列表，在个中举办选择来查察指定员工每个月的人为环境。

　　方式一：利用数据有效性

　　通过数据有效机可以或许在单位格中提供一个下拉箭头，单击下拉箭头会弹出下拉列表。由于员工姓名都在每月的人为表中，而“小我私家人为表”中没有这些人员姓名，因此我们必须先界说名称，以便在“小我私家人为表”中配置数据有效性时举办引用。

　　界说名称的途径是单击菜单“插入→名称”，在界说名称对话框中举办界说，这里将“1月人为”表中的姓名区域B3:B14界说为“姓名”，如图。

　　1.如果下拉列表放在“小我私家人为表”的C1单位格，选择C1单位格，然后单击菜单“数据→有效性”，选择“配置”选项卡，在“有效性条件”区域中“答允”下方的下拉列表中选择“序列”。

　　2.在“来历”下方的文本框中输入“=姓名”。单击“确定”。

　　3.在数据区C3:H14顶用VLOOKUP函数对人为数据举办关联。比方第3行为1月人为，可以在C3单位格中输入公式

　　=VLOOKUP($C$1，‘1月人为’!$B$3：$H$14，2，0)”

　　在D3单位格中输入公式：

　　=VLOOKUP($C$1，‘1月人为’!$B$3：$H$14，3，0)

　　在C4单位格中输入公式：

　　=VLOOKUP($C$1，‘2月人为’!$B$3：$H$14，2，0)

　　其余单位格依此类推。这样，只要在单击C1单位格右侧的下拉箭头选择员工姓名就可以查察其所有月份的人为环境。

　　方式二：用窗体控件

　　1.在菜单栏上右击，在弹出的菜单中选择“窗体”，将弹出“窗体”浮动东西栏，单击“组合框”控件。

　　2.将光标放到表格中，这年华标酿成细黑十字形，在表格中画一个组合框。

　　3.右击组合框，在弹出的菜单中选择“配置控件名目”。

　　在“配置控件名目”对话框中选择“控制”选项卡，配置“数据源”区域为“‘1月人为’!$B$3：$B$14”(或“姓名”)，配置“单位格链接”为$J$1，如图。

　　单击“确定”回到表格中，按ESC键或在任一单位格单击一下打消组合框的编辑状态。这样配置今后，我们在下拉列表中选择一个姓名后，在J1单位格中将呈现该姓名在姓名列表中的相对位置。比方我们选择第3个姓名“王霞”，J1单位格中返回数值3。

　　4.在数据区C3:H14顶用VLOOKUP函数对人为数据举办关联，操作人为表中的序号数字返回人为数据，方式同上。

　　方式三：用VBA控件东西箱中的组合框控件。

　　1.在菜单栏上右击，在弹出的菜单中选择“控件东西箱”，将弹出“控件东西箱”浮动东西栏，单击“组合框”控件。

　　2.将光标放到表格中，这年华标酿成细黑十字形，在表格中画一个组合框。

　　3.右击组合框，在弹出的菜单中选择“属性”。

　　4.在“属性”窗口中，将ListFillRange属性配置为“‘1月人为’!B3:B14”。封锁“属性”窗口 。

　　5.按Alt+F11，打开VBA编辑器，在“小我私家人为表”中添加 下列代码：

　　Private Sub ComboBox1_Change()

　　Range(“c1”) = ComboBox1.Value

　　End Sub

　　6.在数据区C3:H14顶用VLOOKUP函数对人为数据举办关联，途径同上。

　　别的，我们也可利用VBA代码将员工名单添加到组合框中，有两种途径供选择：

　　在VBA编辑器的“工程”窗口中，双击“ThisWorkBook”，在右侧的代码窗口中输入下列代码：

　　1.利用 AddItem途径添加项目：

　　Private Sub Workbook_Open()

　　Dim vName As Variant

　　Dim i As Integer

　　‘建设列表

　　vName = Array(“张梅”， “黄中”， “王霞”， “应军军”， “郑枭”， “刘梅波”， “李飞”， “吴燕”)

　　’利用 AddItem途径For i = LBound(vName) To UBound(vName)

　　Sheet3.ComboBox1.AddItem vName(i)

　　Next i

　　End Sub

　　2.利用 List 属性添加项目：

　　Private Sub Workbook_Open()

　　Dim vName As Variant

　　Dim i As Integer

　　‘建设列表