给控件指定宏代码

CNS1993

求助：用工作表名称给控件指定宏代码，谢谢！ 指定工作表的宏.zip (14.2 KB, 下载次数: 13)

2024-6-4 13:37 上传

点击文件名下载附件

蓝桥玄霜

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' 宏由 微软用户 录制，时间: 2024-6-4
   
5. '
   
6. ' 快捷键: Ctrl+Shift+A
   
7. '
   
8.     Run Sheets("工作表").我要运行的宏
   
9.     Range("F15").Select
   
10. End Sub
    

复制代码

lss001

'添加CodeName
Selection.OnAction = Sheets("工作表").CodeName & ".我要运行的宏"

CNS1993

蓝桥玄霜 发表于 2024-6-4 14:18

Sub My增加AddFormControls()
    Dim myShape As Shape
    On Error Resume Next
    Sheets("工作表").Shapes("my添加的控件").Delete
    Set my添加的控件 = Sheets("工作表").Shapes.AddFormControl(0, 108, 72, 108, 27)
    With my添加的控件
        .Name = "新控件"
        With .TextFrame.Characters
            .Font.ColorIndex = 13
            .Font.Size = 14
            .Text = "录入数据按钮"
        End With
       '.OnAction = "Sheet3.我运行的宏" ’这样能达到目的
       ‘.OnAction = "Sheet（“””工作表“”“）.我运行的宏"  ‘困为我的工作薄中的工作表的顺序按其它规则排序的
    End With
End Sub

Private Sub 新控件_Click()
MsgBox "YES"  ‘我运行的宏
End Sub

第一步：用代码生成控件（名称：新控件）
第二步：给新控件指定宏（此宏在“工作表”过程中的“我运行的宏”）

CNS1993

lss001 发表于 2024-6-4 14:26
'添加CodeName
Selection.OnAction = Sheets("工作表").CodeName & ".我要运行的宏"

.OnAction = Sheets("工作表").CodeName & ".我要运行的宏"

CNS1993

lss001 发表于 2024-6-4 14:26
'添加CodeName
Selection.OnAction = Sheets("工作表").CodeName & ".我要运行的宏"

谢谢您！辛苦了！

CNS1993

蓝桥玄霜 发表于 2024-6-4 14:18

谢谢您！辛苦了！！！