[已解决]文本输入框问题

yjwdjfqb

文本输入框问题

Sub test()
    Dim rng As Range
    Dim FU, FG
    On Error Resume Next    '发生错误时,紧接着继续运行下一语句
    FU = InputBox("请输入开始行与结束行,中间以“-”隔开", "请输入", "")
    If FU = "" Then MsgBox "没有输入行号范围": Exit Sub    '判断文本输入框是否有输入内容
    FU = "B" & Split(FU, "-")(0) & ":B" & Split(FU, "-")(1)    '指定的列与输入的数字组合起来成为一个区域表达式
    Set rng = Range(FU)
    On Error GoTo 0    '禁止当前过程中任何已启动的错误处理程序
    If rng Is Nothing Then MsgBox "输入有误,请重新输入": Exit Sub    '当rng中没有任何内容或者输入有误时,弹出提示后退出
    MsgBox rng.Address    '显示选择的区域
End Sub

现在这个，输入格式为   如  2-9 显示了 $B$2：$B$9
想这个的基础上也能实现 输入 2 就显示 $B$2、输入3就显示$B$3。。。。。

请老师们帮帮忙，谢谢大家老师们了!
文本输入框问题.rar (7.04 KB, 下载次数: 32)

2014-7-7 22:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-7-7 23:02

1. Sub test()
   
2.     Dim rng As Range
   
3.     Dim FU, FG, a
   
4. 
   
5.     On Error Resume Next    '发生错误时,紧接着继续运行下一语句
   
6.     FU = InputBox("请输入开始行与结束行,中间以“-”隔开", "请输入", "")
   
7.     If FU = "" Then MsgBox "没有输入行号范围": Exit Sub    '判断文本输入框是否有输入内容
   
8.     For Each a In Split(FU, "-")
   
9.         FG = FG & "B" & a & ":"
   
10.     Next
    
11.     FU = Left(FG, Len(FG) - 1)
    
12.     Set rng = Range(FU)
    
13.     On Error GoTo 0    '禁止当前过程中任何已启动的错误处理程序
    
14.     If rng Is Nothing Then MsgBox "输入有误,请重新输入": Exit Sub    '当rng中没有任何内容或者输入有误时,弹出提示后退出
    
15. 
    
16.     MsgBox rng.Address    '显示选择的区域
    
17. 
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub test()
   
2.     Dim rng As Range
   
3.     Dim FU, FG, a
   
4. 
   
5.     On Error Resume Next    '发生错误时,紧接着继续运行下一语句
   
6.     FU = InputBox("请输入开始行与结束行,中间以“-”隔开", "请输入", "")
   
7.     If FU = "" Then MsgBox "没有输入行号范围": Exit Sub    '判断文本输入框是否有输入内容
   
8.     For Each a In Split(FU, "-")
   
9.         FG = FG & "B" & a & ":"
   
10.     Next
    
11.     FU = Left(FG, Len(FG) - 1)
    
12.     Set rng = Range(FU)
    
13.     On Error GoTo 0    '禁止当前过程中任何已启动的错误处理程序
    
14.     If rng Is Nothing Then MsgBox "输入有误,请重新输入": Exit Sub    '当rng中没有任何内容或者输入有误时,弹出提示后退出
    
15. 
    
16.     MsgBox rng.Address    '显示选择的区域
    
17. 
    
18. End Sub
    

复制代码

yjwdjfqb

hwc2ycy 发表于 2014-7-7 23:02

谢谢老师了，问题解决了!