[已解决]不理解代码意思？请帮忙解释！

htcaiwuke

Dim mrow1 As Long
On Error GoTo errhandle
mrow1 = Range("A:A").Find(TextBox1.Value).Row
TextBox2.Value = Range("B" & mrow1)
TextBox3.Value = Range("C" & mrow1)
errhandle:
If Err.Number = 91 Then
    MsgBox "没有找到"
    TextBox1.Value = ""
End If

最佳答案

月排行榜 / 总排行榜

搁浅2008

2010-1-27 16:39

其实代码可以不这样来写

可以这样写

Dim mrow1 As Long
dim rng as range

set rng =Range("A:A").Find(TextBox1.Value)

if not rng is nothing then
mrow1 = rng.row

TextBox2.Value = Range("B" & mrow1)
TextBox3.Value = Range("C" & mrow1)
else

 MsgBox "没有找到"
    TextBox1.Value = ""
End If

跳转到最佳答案楼层

喜多多

出现错误,就转跳到errhandle

如果错误代码为91就弹出"没有找到"对话框

搁浅2008

其实代码可以不这样来写

可以这样写

Dim mrow1 As Long
dim rng as range

set rng =Range("A:A").Find(TextBox1.Value)

if not rng is nothing then
mrow1 = rng.row

TextBox2.Value = Range("B" & mrow1)
TextBox3.Value = Range("C" & mrow1)
else

 MsgBox "没有找到"
    TextBox1.Value = ""
End If

喜多多

QUOTE:

以下是引用搁浅2008在2010-1-27 16:39:00的发言：

其实代码可以不这样来写

可以这样写

Dim mrow1 As Long
dim rng as range

set rng =Range("A:A").Find(TextBox1.Value)

if not rng is nothing then
mrow1 = rng.row

TextBox2.Value = Range("B" & mrow1)
TextBox3.Value = Range("C" & mrow1)
else

 MsgBox "没有找到"
    TextBox1.Value = ""
End If

这样写比较好,比楼主写的遇到错误就转跳来得好多了

htcaiwuke

谢谢！搁浅学委。[em23]

bigbird_p

 一般都这么用

on error resume next

......

if err<>0 then