• 如何在EXCEL SHEET中 动态添加控件


    EXCEL SHEET中如何添加下拉框或者 文本框,命令按钮?下面的方法就可以:

    添加命令按钮

    1 新建WORKSHEET

    2  打开Visiual Basic编辑器

    3  选择SHEET1 的Worksheet_SelectionChange 事件

    4 编写代码如下:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim myobj As OLEObject
    Set myobj = Sheet1.OLEObjects.Add(ClassType:="Forms.commandbutton.1", Link:=False, DisplayAsIcon:=False, Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
    myobj.Visible = True
    myobj.Object.Caption = Target.Address
    End Sub


    5返回到SHEET1窗口,退出设计模式:

    6 更改选定区域,可以看到RANGE改变时在该RANGE自动添加一个命令按钮,标题为该RANGE 的ADDRESS:

    添加组合框

    前三步同上,第4步代码写为:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim myobj As OLEObject
    Set myobj = Sheet1.OLEObjects.Add(ClassType:="Forms.combobox.1", Link:=False, DisplayAsIcon:=False, Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
    myobj.Visible = True
    myobj.Object.List = Array(1, 2, 3, 4, 5, 6, 7)
    Randomize
    myobj.Object.ListIndex = Int(Rnd * 7)
    End Sub


    效果如下:

    以上演示了EXCEL SHEET中控件的添加,其他控件同理。只需更改相应的classtype

    需要注意的是,以上代码没有为添加的控件编写单击事件,如果要使其能响应各类事件,还需要进一步处理。

  • 相关阅读:
    大型网站架构
    Swift 2.x 升为 swift 3后语法不兼容问题适配
    Redis开发
    你必须知道的Dockerfile
    JAVA知识点汇总
    JAVA知识点汇总
    nginx location配置详细解释
    python3 urllib.request.Request的用法
    拉勾网python开发要求爬虫
    爬虫工程师是干什么的?你真的知道了吗?
  • 原文地址:https://www.cnblogs.com/fengju/p/6336360.html
Copyright © 2020-2023  润新知