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

1.点击模块以后弹出inputbox,首先判断是否有输入数据,如没有输入则结束sub;2.如有输入数据(如123),判断数据123在当前表格中是否存在,如不存在则弹出对话... 1. 点击模块以后弹出inputbox,首先判断是否有输入数据,如没有输入则结束sub;
2. 如有输入数据(如123),判断数据123在当前表格中是否存在,如不存在则弹出对话框“输入有误”;
3. 如果123存在,则判断目标文件夹(如C:\Users\XXX\Desktop)中是否有名为123的文件夹;
4. 如果名为123的文件夹已经存在,则弹出Inputbox(“文件夹已存在,请重新输入数据”),输入后从第一步开始重新判断;
5. 如果没有与输入数据同名的文件夹(123),则在目标文件夹中新建名为123的文件夹。
展开
 我来答
cfzzj007
2015-09-10 · TA获得超过5366个赞
知道大有可为答主
回答量:7931
采纳率:78%
帮助的人:1572万
展开全部
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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式