Excel VBA 在工作表(Worksheet)中动态添加按钮控件并添加事件的示例

Sub MakeButton()
'自动添加一个Sheet
'动态生成一个按钮控件
'动态生成事件
'
    Dim WSheet As Worksheet
    Dim MyNewbtn As OLEObject
    Dim Target As Range
    Dim ShtCodeName As String
    Set WSheet = Worksheets.Add(After:=ActiveSheet)
    'WSheet.Name = "新表"
    Set Target = Cells(15, 7)
    
'
    Set MyNewbtn = WSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=Target.Left, Top:=Target.Top, Width:=92.25, Height:= _
        30)
    MyNewbtn.Name = "MyNewButton" '设置按钮名
    MyNewbtn.Object.Caption = "我的按钮" '设置按钮标题
    
    ShtCodeName = WSheet.CodeName
    '也可以是
    'ShtCodeName = ThisWorkbook.Worksheets("新表").CodeName
    
    '
    '向新表中添加事件
    '注意:
    '1、添加事情的程序名一定要与添加的按钮名称对应
    '2、如果出现"不信任到Visual Basic Project 的程序连接"的错误,解决方法为:
    '   打开Excel-》工具-》宏-》安全性-》可靠发行商,选中“信任对于Visiual Basic 项目的访问”,按确定即可。

    With ThisWorkbook.VBProject.VBComponents.Item(ShtCodeName).CodeModule
        .InsertLines 1, "Private Sub MyNewButton_Click()"
        .InsertLines 2, "msgbox ""生成事件成功"""
        .InsertLines 3, "'这是一个注释示例"
        .InsertLines 5, "End Sub"
    End With
End Sub

  • 5
    点赞
  • 27
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值