[已解决]求助！VBA编译错误！

zjdh

搞不懂你啦
If y = 1 Then Val (Mid(Sheets("数据库").Range("A" & i).Text, 4, 3))
只是啥语句，i 参数哪儿来？若由上一循环得到，那已被Else隔离啦
这句语句Val (Mid(Sheets("数据库").Range("A" & i).Text, 4, 3))结果给谁？


Newrow = Sheets("数据库").Range("A65536").End(xlUp).Row
  If Newrow >= 2 Then
只要("数据库")有记录Newrow必定>=2,就不可能再产生编码啦！

zjdh

在你的基础上修改：
Private Sub CommandButton8_Click()    '生成编码
    If ComboBox1cd.Value = "" Or ComboBox2xlfn.Value = "" _
       Or ComboBox3xz.Value = "" Or ComboBox5xnfn.Value = "" Or ComboBox6pppai.Value = "" Or ComboBox4cdxn.Value = "" Then
        MsgBox "*号为必填项，请输入完整！"
        Exit Sub
    Else
        Dim Arr(1 To 7)
        Windows("编码库.xls").Visible = True
        With Sheets("参数")
            Arr(1) = Format(Application.WorksheetFunction.VLookup(ComboBox1cd.Value, .Range("A2", "B" & EndrowA), 2, 0), "0")
            Arr(2) = Format(Application.WorksheetFunction.VLookup(ComboBox2xlfn.Value, .Range("D2", "E" & EndrowD), 2, 0), "00")
            Arr(4) = Format(Application.WorksheetFunction.VLookup(ComboBox5xnfn.Value, .Range("J2", "K" & EndrowJ), 2, 0), "00")
            Arr(5) = Format(Application.WorksheetFunction.VLookup(ComboBox6pppai.Value, .Range("M2", "N" & EndrowM), 2, 0), "00")
            Arr(6) = Format(Application.WorksheetFunction.VLookup(ComboBox4cdxn.Value, .Range("P2", "Q" & EndrowP), 2, 0), "00")
            Arr(7) = Format(Application.WorksheetFunction.VLookup(ComboBox3xz.Value, .Range("S2", "T" & EndrowS), 2, 0), "0")
        End With
        W = Sheets("数据库").Range("A65536").End(3).Row
        If W = 1 Then LSH = 1: GoTo 10
        Brr = Sheets("数据库").Range("A2:B" & W)
        For I = 1 To UBound(Brr)
            If LSH < Val(Mid(Brr(I, 1), 4, 3)) Then LSH = Val(Mid(Brr(I, 1), 4, 3))
            If Brr(I, 2) = TextBox1.Text Then LSH = Val(Mid(Brr(I, 1), 4, 3)): GoTo 10
        Next
        LSH = LSH + 1
10      Arr(3) = Format(LSH, "000")
        TextBox4.Text = Join(Arr, "")
        TextBox4.Enabled = False
        TextBox4.BackColor = &H80000003
    End If
    Windows("编码库.xls").Visible = False
End Sub

zjdh

aj1314520 发表于 2012-7-14 20:06
就是因为做不出要的那个效果，所以一直在测试，就是生成不了~~~急死人了。呜呜，那个数据都是错误的，不是 ...

传个附件还用错误数据！晕

tomle

貌似正解还没出来，等待中

aj1314520

zjdh 发表于 2012-7-15 08:23
传个附件还用错误数据！晕

大哥，要再麻烦您一下，上级昨天下了一个新的指令，需要对产品类型那里分别流水...
，就是打开这个界面时我选择那个产品类型，能否每种都是从001开始流水，如选择USB-A型公头时是从001开始流水然后递增，选择USB-A型母头时也是从001开始然后递增，之前的品名相同时，采用相同流水号的功能需保留！！！！周日还在麻烦您，深感抱歉！！！

aj1314520

zjdh 发表于 2012-7-15 08:48
在你的基础上修改：
Private Sub CommandButton8_Click()    '生成编码
    If ComboBox1cd.Value = "" O ...

非常感谢ZJDH大哥对俺的帮助，成功实现了困扰了我一个星期的事情，再次表示感谢，您是一个好心人！