Question

正如标题所说，我正在寻找一种方法来创建一个宏，可以复制用户所在的工作表，提示他们重命名它，此外，删除单元格C4后面的下拉菜单按下按钮。我该怎么做呢？我是VBA和宏的新手，我只通过记录宏功能完成了简单的操作，所以如果你可以详细介绍或发布那些非常有帮助的代码：）

这是我到目前为止所做的：

Sub rename()
    Dim sName As String
    Dim wks As Worksheet
    Worksheets("Summary").Copy after:=Sheets(Worksheets.Count)
    Set wks = ActiveSheet
    Do While sName <> wks.Name
        sName = Application.InputBox _
          (Prompt:="Enter new worksheet name")
        On Error Resume Next
        wks.Name = sName
        On Error GoTo 0
    Loop
    Set wks = Nothing
End Sub

感谢您的时间！

Answer 1

这会将工作簿保存在与包含此代码的文件相同的包含文件夹中。它将使用用户提供的名称。如果已存在具有该名称的文件，则会提示用户是否要覆盖旧文件。

    Model1.load("model.yml");

Excel宏复制工作表，提示用户重命名，并摆脱下拉菜单

1 个答案: