vba在excel中创建下拉框

最新推荐文章于 2024-08-14 10:26:18 发布

suxiaoli050421132

最新推荐文章于 2024-08-14 10:26:18 发布

阅读量9.7k

点赞数

分类专栏： Excel 文章标签： vba excel integer string function c

本文链接：https://blog.csdn.net/suxiaoli050421132/article/details/6700745

版权

这篇博客介绍了如何使用VBA宏在Excel工作表中为单元格添加下拉框，下拉框的数据源来自另一个工作表的指定区域。通过`setName`函数创建并命名了一个范围为C1到C7的区域为'code'，然后在Sheet1的A1单元格应用这个下拉列表，确保数据验证类型为列表，并设置了相应的提示信息。

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

在Sheet2中把C1:C7的区域命名为code,在sheet1中给“A1”cell加下拉框，下拉框的内容用的是区域code的内容

Sub Macro1()
    Dim s As String
    s = setName(3, "code")
    Sheet1.Range("A1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=code"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Options"
        .ErrorTitle = ""
        .InputMessage = "Correct Division/Department"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Range("C1:C8").Select
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("A1").Select
    Application.WindowState = x