從下拉列表中粘貼一個值

Question

我正在創建一個宏，它在我的 excel 文件中創建一個新工作表，我需要該工作表與從下拉框中選擇的位置相同。

當您單擊按鈕 1 時，會出現一個新工作表，但我不知道如何命名與所選名稱相同。 到目前為止，這是我的代碼：

我需要用從下拉框中選擇的健康權限替換“newname”。

如您所見，名稱已存儲，正如我復制的那樣。 我在想解決方案可能是使用粘貼空間值，但我不知道怎么寫。

Answer 1

在添加之前檢查是否存在具有新名稱的現有工作表以避免后續錯誤。

Option Explicit

Sub createsheet()

   Dim sName As String, ws As Worksheet
   sName = Sheets("user").Range("M42").Value
   
   ' check if already exists
   On Error Resume Next
   Set ws = Sheets(sName)
   On Error GoTo 0
   
   If ws Is Nothing Then
       ' ok add
       Set ws = Sheets.Add(after:=Sheets(Sheets.Count))
       ws.Name = sName
       MsgBox "Sheet created : " & ws.Name, vbInformation
   Else
       ' exists
       MsgBox "Sheet '" & sName & "' already exists", vbCritical, "Error"
   End If
   
End Sub