[求助](已解决，谢谢)用代码向表中添加控件并指定宏

chirley

提问前，先祝各位五一快乐！天天开心！事事顺心！

请教：如题，但不能使用相关菜单来添加移动控件。

而是，当一个窗口运行时，点击该窗口上的相关控件，则会自动新建一个表，并在表中自动添加一个命令按钮，将其命令按钮上caption设置为“分析”，然后，在点击该命令则指定到相关宏运行相关代码。。

该怎么样来实现呢?请高手帮帮忙，非常感谢！

[此贴子已经被作者于2008-5-4 15:08:39编辑过]

chirley

高手帮帮忙啊!再次谢谢啦...

zldccmx

QUOTE:

以下是引用chirley在2008-5-1 14:55:23的发言：

提问前，先祝各位五一快乐！天天开心！事事顺心！

请教：如题，但不能使用相关菜单来添加移动控件。

而是，当一个窗口运行时，点击该窗口上的相关控件，则会自动新建一个表，并在表中自动添加一个命令按钮，将其命令按钮上caption设置为“分析”，然后，在点击该命令则指定到相关宏运行相关代码。。

该怎么样来实现呢?请高手帮帮忙，非常感谢！

Sub Add_Sht_Cmb_Code()
    Application.ScreenUpdating = False
    '增加一个工作表，表名为 数据分析
    ThisWorkbook.Sheets.Add.Name = "数据分析"
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1").Select
    With ThisWorkbook.VBProject.VBComponents(Sheets("数据分析").CodeName).CodeModule
        .InsertLines 1, ""
        .InsertLines 2, "Private Sub CommandButton1_Click()"
        .InsertLines 3, "    Application.ScreenUpdating = False"
        .InsertLines 4, "    Rows(2).RowHeight = 14.25 "
        .InsertLines 5, "    Rows(4).RowHeight = 14.25"
        .InsertLines 6, "    Activesheet.Cells.Select"
        .InsertLines 7, "    Selection.EntireColumn.Hidden = False "
        .InsertLines 8, "    Msgbox " & Chr(34) & " 添加代码成功！" & Chr(34)
        .InsertLines 9, "End Sub"
        .InsertLines 10, "Private Sub Worksheet_Activate()"
        .InsertLines 11, " ActiveSheet.CommandButton1.Caption = " & Chr(34) & " 分    析 " & chr(34)
        .InsertLines 12, "ActiveSheet.CommandButton1.AutoSize = True"
        .InsertLines 13, "End Sub"
        .InsertLines 14, ""
    End With
    Sheet1.Activate: Sheets("数据分析").Activate:Msgbox "  添加代码成功！"
End Sub

[此贴子已经被作者于2008-5-2 14:09:29编辑过]

chirley

QUOTE:

以下是引用zldccmx在2008-5-2 14:07:33的发言：

Sub Add_Sht_Cmb_Code()
    Application.ScreenUpdating = False
    '增加一个工作表，表名为 数据分析
    ThisWorkbook.Sheets.Add.Name = "数据分析"
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1").Select
    With ThisWorkbook.VBProject.VBComponents(Sheets("数据分析").CodeName).CodeModule
        .InsertLines 1, ""
        .InsertLines 2, "Private Sub CommandButton1_Click()"
        .InsertLines 3, "    Application.ScreenUpdating = False"
        .InsertLines 4, "    Rows(2).RowHeight = 14.25 "
        .InsertLines 5, "    Rows(4).RowHeight = 14.25"
        .InsertLines 6, "    Activesheet.Cells.Select"
        .InsertLines 7, "    Selection.EntireColumn.Hidden = False "
        .InsertLines 8, "    Msgbox " & Chr(34) & " 添加代码成功！" & Chr(34)
        .InsertLines 9, "End Sub"
        .InsertLines 10, "Private Sub Worksheet_Activate()"
        .InsertLines 11, " ActiveSheet.CommandButton1.Caption = " & Chr(34) & " 分    析 " & chr(34)
        .InsertLines 12, "ActiveSheet.CommandButton1.AutoSize = True"
        .InsertLines 13, "End Sub"
        .InsertLines 14, ""
    End With
    Sheet1.Activate: Sheets("数据分析").Activate:Msgbox "  添加代码成功！"
End Sub

运行with段代码时不能运行,有提示

"运行时错误,不信任到Visual Basic Project 的程序连接"

这该怎么办啊?

chirley

高手进来帮帮忙啊....

kmgkmg

dim newsheet as worksheet

 Set newsheet = Sheets.Add '创建新表
 newsheet.Name = "数据分析"  '命名新表

ActiveSheet.Buttons.Add(242.25, 26.25, 59.25, 22.5).Select  '创建按钮
Selection.Text = "分析"            '按钮改名
Selection.OnAction = "FENXI"    '设置按钮执行的宏名称

chirley

QUOTE:

以下是引用kmgkmg在2008-5-2 20:00:28的发言：

dim newsheet as worksheet

 Set newsheet = Sheets.Add '创建新表
 newsheet.Name = "数据分析"  '命名新表

ActiveSheet.Buttons.Add(242.25, 26.25, 59.25, 22.5).Select  '创建按钮
Selection.Text = "分析"            '按钮改名
Selection.OnAction = "FENXI"    '设置按钮执行的宏名称

好的，非常感谢了！

baoshishang

前述例有借鉴, 但我仍不会扩展应用,
如果是在窗体中, 如何给控件指定宏?

我想把宏CODE指定到窗体上对应combobox控件
我用With .VBProject.VBComponents(frm综合表格生成).CodeModule不能成功, 提示:无效或不合格的引用, 连不上去
能给予提示吗?谢谢了!

klkl

原帖由 baoshishang 于 2009-1-29 12:07 发表
前述例有借鉴, 但我仍不会扩展应用,
如果是在窗体中, 如何给控件指定宏?

我想把宏CODE指定到窗体上对应combobox控件
我用With .VBProject.VBComponents(frm综合表格生成).CodeModule不能成功, 提示:无效或不合 ...

我也正在找这个东东(由"控件工具箱"生成的控件属性的设定),请高手解答!谢谢!

[ 本帖最后由 klkl 于 2009-3-17 22:44 编辑 ]

zenhao

学习了，谢谢了