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

aj1314520

aj1314520 发表于 2012-7-14 20:07
我要的是如果名称相同，则流水号相同~~

但是一直就写不出那个效果，搞到现在也弄不出来，还把程序弄乱了，呜呜~

aj1314520

zjdh 发表于 2012-7-14 15:25
你的附件都是空表格，仍旧无法调试！

老大，您把那个文件的名称重命名下，再打开就会出现，即可进入EXCEL了，因为这个有设了隐藏，现在不知道怎么取消了。。。。抱歉！

zjdh

aj1314520 发表于 2012-7-14 14:53
我上传一个之前的效果图

你的附件都是空表格，仍旧无法调试！

aj1314520

zjdh 发表于 2012-7-14 13:31
少了：
End With
End If

大哥，现在就是自动编码点击后没有自动出现编码，能帮我看看是怎么回事吗？确实没有出现出错的信息了！！！

aj1314520

zjdh 发表于 2012-7-14 13:31
少了：
End With
End If

我上传一个之前的效果图

ztccsj

zjdh 发表于 2012-7-14 13:31
少了：
End With
End If

高手。                                

zjdh

少了：
End With
End If

Private Sub CommandButton8_Click()    '生成编码
    Application.ScreenUpdating = False
    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)
        Dim Newarr
        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")
            Newrow = Sheets("数据库").Range("A65536").End(xlUp).Row
            If Newrow >= 2 Then
                ReDim Newarr(2 To Newrow)
                For i = 2 To Newrow
                    Newarr(i) = Val(Mid(Sheets("数据库").Range("A" & i).Text, 4, 3))
                Next i
                G = Format(Application.WorksheetFunction.Max(Newarr) + 1, "000")
            Else
                With Sheets("数据库")
                    Set Rngb = .Range("B2", "B" & Newrow).Find(what:=TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=xlNext)
                    If Not Rngb Is Nothing Then
                        Windows("编码库.xls").Visible = False
                        y = Val(Mid(Sheets("数据库").Range("A" & i).Text, 4, 3))

                        If y = 1 Then Val (Mid(Sheets("数据库").Range("A" & i).Text, 4, 3))
                        If y = 2 Then Exit Sub
                        Exit Sub
                    Else
                        G = "001"
                    End If
                    Arr(3) = G
                    TextBox4.Text = Join(Arr, "")

                    TextBox4.Enabled = False
                    TextBox4.BackColor = &H80000003
                End With
                Windows("编码库.xls").Visible = False
            End If
        End With
    End If
    Application.ScreenUpdating = True
End Sub

aj1314520

zjdh 发表于 2012-7-14 10:52
你不上传附件，怎么让人调试？

就是那个生成编码按钮，一点就出错了！

aj1314520

zjdh 发表于 2012-7-14 10:52
你不上传附件，怎么让人调试？

对不起啊，兄弟，忘记了！这个是2003的，工程密码4BM！请帮我看看！ 编码库.zip (45.35 KB, 下载次数: 8)

2012-7-14 11:13 上传

点击文件名下载附件

zjdh

你不上传附件，怎么让人调试？