Question

vb自动编码的问题

求教了
做的一个库存记录，当前日期生成编码
Private Sub 清空_Click()
Dim c As Object, fadd As String, No As String
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 Not c Is Nothing And t = Format(Month(Date), "00") Then
fadd = c.Address
Do
No = Left(c, 4) & Format(Mid(c, 5) + 1, "000")
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> fadd
Else
No = "CPRK" & Format(Month(Date), "00") & "001"
End If
End With
Range("J2") = No '入库编号
End Sub
使用起来正常，上月11月份生成编码为CPRK11001这类，到月底为CPRK11044,12月份开始只会累加，第一天的不是CPRK12001
试着加入对比，从原来的编码选取11字符跟当前日期里mm对比，等于就继续加1，不等于的话编码就从当前月份开始
但是怎么调都报错，求指点

Answer 1

你仔细看看这句话的逻辑：

If Not c Is Nothing And t = Format(Month(Date), "00") Then
fadd = c.Address
Do
No = Left(c, 4) & Format(Mid(c, 5) + 1, "000")

弱弱地问一句c是Nothing，还能取位数吗？这么可能不报错...

还有你确定你是用的VB继承开发环境，你这叫VBA，EXCEL内嵌模块