Excel一键将指定内容变成一级下拉菜单技巧

       在Excel处置过程中 , 经常会碰着将单位格酿成下拉选择菜单形式 , 以便利填写者的输入 , 若何快速实现该功能呢?小编将以一个实例为例 , 教大师轻松把握这门技巧 。 本教程以将工作表2中A列单位格的内容做当作工作表1选择区域单位格的下拉菜单选项为例 。

需要这些哦
Excel(教程以Excel2007为例)
此法同样合用于Excel其他版本
方式/
1新建一个Excel文档 , 另存为 启用宏的工作簿 , 后缀名为xlsm格局 。 并在工作表2(即sheet 2)中输入需要做当作下拉菜单选项的内容 , 如图所示 。

Excel一键将指定内容变成一级下拉菜单技巧

文章插图

2【Excel一键将指定内容变成一级下拉菜单技巧】返回工作表1(即sheet 1) , 绘制一个节制按钮 , 本教材以插入一个ActiveX控件为例 , 不清晰的可以参考以下链接:
33Excel插入ActiveX控件技巧

Excel一键将指定内容变成一级下拉菜单技巧

文章插图

3绘制按钮后 , 会主动弹出一个“指定宏”窗口 , 选择“新建” 。

Excel一键将指定内容变成一级下拉菜单技巧

文章插图

4此时弹出一个模块窗口 , 如图所示 。

Excel一键将指定内容变成一级下拉菜单技巧

文章插图

5在Sub 按钮1_Click()和 Sub之间 , 复制粘贴以下代码:
Dim rng As Range
Set rng = Selection
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=sheet2!$a$1:$a$4"    ’引用可自行更改
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    With

Excel一键将指定内容变成一级下拉菜单技巧

文章插图

6返回Excel窗口 , 编纂一下按钮文字 。

Excel一键将指定内容变成一级下拉菜单技巧

文章插图

Excel一键将指定内容变成一级下拉菜单技巧

文章插图

7选择需要生当作下拉菜单的单位格 , 点击按钮即可 。

Excel一键将指定内容变成一级下拉菜单技巧

文章插图

Excel一键将指定内容变成一级下拉菜单技巧

推荐阅读