如何创建含多个OLEObject命令按钮的新工作表？代码按钮缺失求助

嘿，我来帮你搞定这个问题！你现在的问题应该是只在代码里实现了一个命令按钮的创建逻辑，只要把每个按钮的创建过程分开写，就能在新工作表里同时添加两个OLE命令按钮了。下面是一套完整的VBA实现方案，完全匹配你的需求：

首先，把这段代码放到你的标准模块里（不是工作表模块）：

Sub CreateNewSheetWithButtons()
    Dim newSheet As Worksheet
    Dim btnUserInput As OLEObject
    Dim btnExecute As OLEObject
    
    ' 创建新工作表
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSheet.Name = "NewDataSheet_" & Format(Now(), "YYYYMMDD_HHMMSS") ' 给新表加唯一名称
    
    ' 添加USER INPUT按钮
    Set btnUserInput = newSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Link:=False, DisplayAsIcon:=False, Left:=50, Top:=20, Width:=120, Height:=30)
    With btnUserInput
        .Name = "btnUserInput" ' 设置按钮唯一名称
        .Object.Caption = "USER INPUT" ' 设置按钮显示文本
        .OnAction = "UserInput_Click" ' 绑定点击事件对应的宏
    End With
    
    ' 添加Execute按钮
    Set btnExecute = newSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Link:=False, DisplayAsIcon:=False, Left:=200, Top:=20, Width:=120, Height:=30)
    With btnExecute
        .Name = "btnExecute" ' 设置按钮唯一名称
        .Object.Caption = "Execute" ' 设置按钮显示文本
        .OnAction = "Execute_Click" ' 绑定点击事件对应的宏
    End With
End Sub

' USER INPUT按钮对应的宏
Sub UserInput_Click()
    ' 弹出你的用户窗体
    UserForm1.Show ' 这里替换成你实际的用户窗体名称
    
    ' 假设用户窗体关闭后，执行格式调整逻辑
    ' 比如：
    ' ActiveSheet.Range("A1:C1").Font.Bold = True
    ' ActiveSheet.Range("A2").Value = "请输入数据："
    ' 这里写你实际的格式调整代码
End Sub

' Execute按钮对应的宏
Sub Execute_Click()
    Dim currentSheet As Worksheet
    Set currentSheet = ActiveSheet
    
    ' 1. 执行计算、填充剩余内容
    ' 比如：
    ' currentSheet.Range("B2").Value = Val(currentSheet.Range("A2").Value) * 2
    ' 这里写你实际的计算和填充代码
    
    ' 2. 生成结果图表
    ' 比如：
    ' currentSheet.Shapes.AddChart2(251, xlColumnClustered).SetSourceData Source:=currentSheet.Range("A2:B2")
    ' 这里写你实际的图表生成代码
    
    ' 3. 或者创建新的带按钮的工作表（调用之前的创建函数）
    ' CreateNewSheetWithButtons
End Sub

• 每个按钮独立创建：你需要分别调用OLEObjects.Add来创建每个按钮，不能复用同一个变量，否则后面的按钮会覆盖前面的
• 按钮名称唯一：一定要给每个按钮设置不同的.Name，避免VBA识别冲突
• 宏过程位置：UserInput_Click和Execute_Click这两个宏必须放在标准模块里（右键VBA工程→插入→模块），不能放在工作表模块或窗体模块里，否则按钮点击会找不到宏
• 位置调整：通过Left和Top参数调整按钮的位置，避免两个按钮重叠

1. 确保你已经创建了对应的UserForm1（或者替换成你自己的用户窗体名称）
2. 运行CreateNewSheetWithButtons宏，就能生成带两个命令按钮的新工作表了
3. 点击USER INPUT按钮会弹出窗体，点击Execute按钮会执行你预设的计算/图表/新表创建逻辑

内容的提问来源于stack exchange，提问作者Dives