Excel宏輸入框輸入文本，新工作表及其名稱

Question

您好，我需要一些幫助來插入一個提示輸入文本的MSG框。例如，我將記錄一個vlookup，但應在公式前輸入文本，以便可以搜索它。我還需要添加新工作表並使用輸入框更改其名稱。

Answer 1

這裏是一個非常簡單的例子：

Sub InputDemo() 
    Dim s As String 
    s = Application.InputBox(Prompt:="Please enter text", Type:=2) 
    MsgBox "you entered " & s 
End Sub 

Answer 2

子inputboxandsheetname（）

'To add text box 
Dim myValue As Variant 

myValue = InputBox("Enter Sheet Name") 
'To add new sheet 
Sheets.Add After:=Sheets(ActiveWorkbook.Worksheets.Count) 
    'To rename the new sheet 
ActiveSheet.Name = myValue 

結束子