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

Sub 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

End Sub

Excel宏输入框，用于输入文本，新工作表及其名称

2 个答案: