Question

早上好

我尝试做的是使用Excel文件中的命令按钮，以便自动执行以下操作：

创建新工作簿（新的Excel文件）
在其中生成一个命令按钮
使用带有代码的命令按钮（已编程但未将现有宏与其关联，它应该已包含自己的代码）

所有这些操作都应遵循为第一个命令按钮编写的说明。

创建新文档没问题，但在我编程中生成一个命令按钮对我来说很难。

我是vba的初学者

非常感谢

Answer 1

我发现这可以帮助你入门。它会创建一个带有命令按钮的新工作表。你必须做出一些改变，但这对你来说是一个很好的起点。这是蒂姆威廉姆斯在这个网站上的。蒂姆是一位经验丰富的编码员！

Sub wdlsinflow()

Dim sht As Worksheet
Dim Obj As Object
Dim Code As String
Dim cmod

Set sht = Sheets.Add(After:=Sheets(Sheets.Count))

With sht
    .Name = "blah"
    .Cells.Clear


    Set Obj = .OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
                           Link:=False, DisplayAsIcon:=False, Left:=200, _
                           Top:=100, Width:=100, Height:=35)

    Obj.Name = "ButtonTest" '<< name must match code below...
    Obj.Object.Caption = "Test Button"

    Code = "Sub ButtonTest_Click()" & vbCrLf & _
            "   Call Tester" & vbCrLf & _
            "End Sub"

    With .Parent.VBProject.VBComponents(.CodeName).CodeModule
        .insertlines .CountOfLines + 1, Code
    End With
End With

End Sub

VBA创建新工作簿并创建包含代码的命令按钮

1 个答案: