[已解决]运行时错误91，怎么都改不过来

diudiu422 · 发表于 2015-12-15 10:52

本帖最后由 diudiu422 于 2015-12-15 11:16 编辑

Private Sub 清空_Click()
Dim c As Object, fadd As String, No As String, b As String
b = Format(Now, "yymmdd")
Range("C4:E4,B6:H15,C18,E18,H18,J18,j6:j16").ClearContents
With Sheets("入库明细表").Range("B6:B" & Sheets("入库明细表").[B65536].End(xlUp).Row)
Set c = .Find(Left(Range("J2"), 6), LookIn:=xlValues, lookat:=xlPart)
If b = Mid(c, 5, 6) Then
fadd = c.Address
Do
No = Left(c, 4) & Format(CStr(Mid(c, 5) + 1))
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> fadd
Else
No = "CPRK" & Format(CStr(Now), "yymmdd") & "01"
End If
End With
Range("J2") = No
End Sub

复制代码

If b = Mid(c, 5, 6) Then 这句一直报错，怎么改都不对，求人来帮看看，本人小白
附件附上，入库那个工作表的代码

最佳答案

月排行榜 / 总排行榜

青城山苦丁茶

2015-12-15 14:34

把原有的：If b = Mid(c, 5, 6) Then改成
if c is nothing then tmp="" else tmp=Mid(c, 5, 6)
If b = tmp Then

跳转到最佳答案楼层

七彩屋 · 发表于 2015-12-15 10:59

应该是变量的问题吧

diudiu422 · 发表于 2015-12-15 11:01

七彩屋发表于 2015-12-15 10:59
应该是变量的问题吧

能帮忙改改么

七彩屋 · 发表于 2015-12-15 11:01

没有文档不好测试，你上传附件看看。

青城山苦丁茶 · 发表于 2015-12-15 11:05

find没找到有匹配的值，致使C为nothing时，会报错。
在set c=下面加个判断，C不为nothing时才mid就可以了

diudiu422 · 发表于 2015-12-15 11:07

你看看

diudiu422 · 发表于 2015-12-15 11:08

青城山苦丁茶发表于 2015-12-15 11:05
find没找到有匹配的值，致使C为nothing时，会报错。
在set c=下面加个判断，C不为nothing时才mid就可以了

If Not c Is Nothing And b = Mid(c, 5, 6) Then
这样么？还是会报

diudiu422 · 发表于 2015-12-15 11:09

七彩屋发表于 2015-12-15 11:01
没有文档不好测试，你上传附件看看。

你看看

L50814026 · 发表于 2015-12-15 11:11

函数 FIND 和 FINDB 用于在第二个文本串中定位第一个文本串，并返回第一个文本串的起始位置的值，该值从第二个文本串的第一个字符算起。

Set c = .Find(Left(Range("J2"), 6), LookIn:=xlValues, lookat:=xlPart)
c 返回的是一个数值型，代表查找到的位置
mid(文本，数值1，数值2），mid(c,5,6)中，c需要是文本型，但是上面传过来的c是数值型，所以会类型出错

diudiu422 · 发表于 2015-12-15 11:12

diudiu422 发表于 2015-12-15 11:08
If Not c Is Nothing And b = Mid(c, 5, 6) Then
这样么？还是会报

两行？怎么写呀

		自动登录	找回密码
密码			注册

[已解决]运行时错误91，怎么都改不过来

点评