'由于输入空白和按取消都是返回空白,所以无判断是输入空白按确定还是直接按了取消,但可以给你一个goto的例子
Sub ok()
Dim sLie As String
flag:
sLie = InputBox("请输入所在列。", "输入列名", "")
If sLie = "" Then GoTo flag
End Sub
Sub ok()
Dim sLie As String
flag:
sLie = InputBox("请输入所在列。", "输入列名", "")
If sLie = "" Then GoTo flag
End Sub
