VBA find语句

cjh2705

我在U3单元格放了一个序列，内容为01班,02班,03班……,20班，在B列是班号，用1,2,3,4……18来表示，若我在U3选择19班，则希望作出提示后退出过程
代码如下
If Range("B:B").Find(Value(Mid(Range("U3"), 1, 2))) = Nothing Then
MsgBox "你要找的班级不存在", vbInformation
Exit Sub
End If


但在测试时总是提示子过程或函数未定义，请大侠帮忙！不胜感激！

罗达

find为工作表函数，需要加上application.使用后VBA的函数是instr

1055751654

试了下，直接=nothing不行的，还是得这样
Set r = Range("B:B").Find(Val(Mid(Range("U3"), 1, 2)))
If r Is Nothing Then
MsgBox "你要找的班级不存在", vbInformation
Exit Sub
End If

taller

不是Value，Nothing的判断方式不对

1. Sub mm()
   
2.     If Range("B:B").Find(Val(Mid(Range("A3"), 1, 2))) Is Nothing Then
   
3.         MsgBox "你要找的班级不存在", vbInformation
   
4.         Exit Sub
   
5.     Else
   
6.         MsgBox "找到了"
   
7.     End If
   
8. End Sub
   

复制代码