[已解决]关于输入错误单元格地址检测程序段的编写提问

jhtjj

InputBox的方法可以读入单元格地址，RefEdit控件也可以读入单元格地址，如果读入正确（用鼠标拖动的方法肯定是正确的。），肯定是没问题的，现在故意搞错误，比如手工故意录入错误单元格地址，InputBox的方法当场就会给出Excel默认的错误提示，同时还离不开输入见面，同时，程序不会奔溃，而RefEdit控件编写的要是输入不正确的单元格地址，程序就会奔溃，如何在离开RefEdit控件读入窗口的时候就能够对读入的是否是正确的单元格地址作一判断，从而使程序顺利向下运行。

最佳答案

月排行榜 / 总排行榜

extyg

2012-9-21 11:29

Private Sub CommandButton1_Click()
    Dim rng1 As Range
    On Error Resume Next
    Set rng1 = Range(RefEdit1)
    If Not rng1 Is Nothing Then
        MsgBox "输入单元格区域正确"
        rng1.Interior.ColorIndex = 15
    Else
        MsgBox "输入单元格区域不正确"
    End If
End Sub

跳转到最佳答案楼层

extyg

Private Sub CommandButton1_Click()
    Dim rng1 As Range
    On Error Resume Next
    Set rng1 = Range(RefEdit1)
    If Not rng1 Is Nothing Then
        MsgBox "输入单元格区域正确"
        rng1.Interior.ColorIndex = 15
    Else
        MsgBox "输入单元格区域不正确"
    End If
End Sub