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的文件夹。 展开
2. 如有输入数据(如123),判断数据123在当前表格中是否存在,如不存在则弹出对话框“输入有误”;
3. 如果123存在,则判断目标文件夹(如C:\Users\XXX\Desktop)中是否有名为123的文件夹;
4. 如果名为123的文件夹已经存在,则弹出Inputbox(“文件夹已存在,请重新输入数据”),输入后从第一步开始重新判断;
5. 如果没有与输入数据同名的文件夹(123),则在目标文件夹中新建名为123的文件夹。 展开
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询