Excel下拉框多选（支持再次选择已选项会取消选择）

最新推荐文章于 2024-07-05 10:57:14 发布

GENI`USR`OAD

最新推荐文章于 2024-07-05 10:57:14 发布

阅读量9.6k

点赞数 3

分类专栏： office 文章标签： excel 办公软件

本文链接：https://blog.csdn.net/kidom1412/article/details/104248295

版权

本文介绍如何在Excel中创建一个多选下拉框，并通过VBA代码实现选择项之间用逗号隔开，再次选择已选项时会取消选择的功能。步骤包括制作下拉框、查看代码并输入特定代码，适用于需要设置多选部门类型的场景。

摘要由CSDN通过智能技术生成

比如我做一个表格，其中一项是“部门类型”，这一项中，选项有：财务部，人事部，开发部，销售部
用户在选择的时候，可以选择：人事部，开发部
那么在“部门类型”这个单元格中，应该显示：人事部，开发部
怎么用excel实现呢？

1. 首先做一个下拉框

在这里插入图片描述

2. 然后点击当前下拉框下的sheet页签，右键选择查看代码

输入以下代码

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler

On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandle