VBA 在inputbox输入数据后连续做多个判断怎么编

Question

1. 点击模块以后弹出inputbox，首先判断是否有输入数据，如没有输入则结束sub；
2. 如有输入数据（如123），判断数据123在当前表格中是否存在，如不存在则弹出对话框“输入有误”；
3. 如果123存在，则判断目标文件夹（如C:\Users\XXX\Desktop）中是否有名为123的文件夹；
4. 如果名为123的文件夹已经存在，则弹出Inputbox（“文件夹已存在，请重新输入数据”），输入后从第一步开始重新判断；
5. 如果没有与输入数据同名的文件夹（123），则在目标文件夹中新建名为123的文件夹。

Answer 1

Public Sub 添加目录()

Dim WJj As String, i As Byte, Lj As String

Dim CXrng As Range

WJj = InputBox("请输入文件夹名称")

Fh:

i = 0

If WJj = "" Then End

For Each CXrng In ActiveSheet.UsedRange

    If CXrng.Value = WJj Then

        i = 1

        Lj = Dir("C:\Users\XXX\Desktop" & "\" & WJj, vbDirectory)

        If Lj <> "" Then

            WJj = InputBox("文件夹已存在，请重新输入数据")

            GoTo Fh

        Else

            VBA.MkDir "C:\Users\XXX\Desktop" & "\" & WJj

            End

        End If

        Exit For

    End If

Next

If i <> 1 Then

    MsgBox "输入有误！"

End If

End Sub