Question

我有一个工作簿，我有一个工作表，用户点击按钮复制（运行下面的代码）。我想将工作表的副本作为一个新实例（这部分工作），并在复制的工作表上包含按钮（这是我在excel的更高版本中遇到问题的地方）。

该代码适用于旧版本的Excel，但在2010年及以上版本中，工作表已复制，但按钮不是。

我目前的代码如下;

Private Sub NewOrderSheet()
Application.ScreenUpdating = False
Dim pN As String
Dim pNB As String
Dim pNC As String
Dim pND As String
pN = Worksheets("ProjectDetails").Range("B5").Text
pND = ("Order Number: " & pN)
pNB = InputBox(pND)
If Len(pNB) = 0 Then
    MsgBox "An order number must be given to be able to generate a new order.", vbCritical
    Exit Sub
Else
End If
pNC = pN & "-" & pNB
Worksheets("QuoteSheet").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).name = pNC
Application.ScreenUpdating = True
End Sub

基本上我创建了一个工作表的新实例，然后允许用户给工作表一个新名称（在这种情况下是一个新订单）。

工作表包含2个按钮; 按钮1 - 将工作表复制到新工作簿并删除所有公式按钮2 - 格式化打印的使用范围

我已经搜索了这些问题并尝试了许多变化，但似乎无法将按钮复制过来。

我非常擅长VB for excel，所以如果这很简单，我会提前道歉。

Answer 1

我遇到了同样的问题。我检查了有关设置的所有安全性并尝试了一切然后我发现删除％Temp％文件夹有帮助。真正的原因是，您必须搜索“MSForms.exd”文件并将其删除。然后一切正常（

工作表副本包含工作表按钮的副本

1 个答案: