Question

我在VBA中的代码有问题。我会尝试更好地解释：

在我的工作簿中，我有3个不同的工作表：A1，A2，A3 -通过InputBox，我扫描A1并转到工作表A1，然后我开始扫描不同的数字：1234567890,0987654321，我应该将它们写在B列中，但输入框不会自动重新打开。

如果我再次扫描示例A2，则VBA打开工作表A2，然后转到B列，然后我开始扫描不同的数字：1234567890、0987654321等。

这里是我的代码

Function WorksheetExists(WSName As String) As Boolean
    On Error Resume Next
    WorksheetExists = Worksheets(WSName).Name = WSName
    On Error GoTo 0
End Function

Sub input_()

    Dim SHNAME As String
    Do Until WorksheetExists(SHNAME)
        SHNAME = inputbox("Enter", "Location or Job")
        If Not WorksheetExists(SHNAME) Then MsgBox SHNAME & " Doesn't Exist!", vbExclamation
    Exit Do
    Loop
    If WorksheetExists(SHNAME) Then Sheets(SHNAME).Select
    ActiveSheet.Range("B1").Select

End Sub

VBA动态输入数据

0 个答案: