Question

如果我的工作表不匹配或单击取消，我该如何关闭它？如果我点击取消它继续带我回去进入工作表。这是我的代码。

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


    On Error GoTo 0
   End Function

    Do Until WorksheetExists(shname)
     shname = InputBox("Enter sheet name")
       If Not WorksheetExists(shname) Then
         MsgBox shname & " doesn't exist!", vbExclamation

       Else
        WSName = shname

         Sheets(shname).Select
       End If
       Loop

Answer 1

您必须检查空白回复。它会保持循环，因为您没有空字符串作为工作表名称。

    Do Until WorksheetExists(shname)
        shname = InputBox("Enter sheet name")
        If shname = "" Then
            Exit Do
        ElseIf Not WorksheetExists(shname) Then
            MsgBox shname & " doesn't exist!", vbExclamation
        Else
            WSName = shname
            Sheets(shname).Select
        End If
    Loop

或

Do Until WorksheetExists(shname) Or shname = ""
    shname = InputBox("Enter sheet name")
    If Not WorksheetExists(shname) Then
        MsgBox shname & " doesn't exist!", vbExclamation
    Else
        WSName = shname
        Sheets(shname).Select
    End If
Loop

如何在vba中关闭我的工作表功能？

1 个答案: