Excel一键实现单元格变成性别下拉菜单选项技巧

在Excel记录数据的过程中，经常会碰到需要输入性别，如何快速的将单元格变成仅有男、女两个选项的下拉菜单呢？本教材将通过VBA来实现该功能，如果您感兴趣的话，就跟小编一起来学习一下吧。

绘制控制按钮，本教材以插入一个矩形形状为例。

编辑文字（目的是便于理解），本教材编辑文字为：男/女。

美化按钮，通过形状填充，轮廓填充，形状效果等设置。

复制该形状，编辑文字为清除。

PS：此形状的作用是将设趴腊置好的男/女下拉菜单清除。

从excel窗口切换到VBA窗口，具体操作方法可参考一下链接：

16Excel2007打开VBA的三种方法！

插入模块，复制粘贴以下代码：

Option Explicit

Dim rng As Range

Sub boy_or_girl() '性别选择

Set rng = Selection

With Selection.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="男,女"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

.IMEMode = xlIMEModeNoControl

.ShowInput = True

.ShowError = True

End With

End Sub

Sub Clear() '清除下拉菜单

Set rng = Selection

With Selection.Validation

.Delete

.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween

.IgnoreBlank = True

.InCellDropdown = True

.IMEMode = xlIMEModeNoControl

.ShowInput = True

.ShowError = True

End With

End Sub

返回Excel界面，为两个吐墨帽按钮指定不独材同的宏，”男/女“按钮指定性别选择代码，”清除“按钮选择清除下拉菜单代码。下图只展示了”男/女“按钮的指定方法，”清除“按钮指定方法类似。

选择需要生成性别输入的单元格，点击”男/女“按钮即可，若要清除，方法一样，选择区域，点击”清除“按钮即可。本教材以B列为例。