这个只能在我本人的电脑可用VBA，为什么别人用了不

68459358

有原文件！

Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub abc_Change()
Dim ITM
Dim arr, i%
Me.abd.ListItems.Clear
    With Sheets("数据库")
        arr = .Range("a2:K" & .[a65536].End(3).Row)
    End With
    For i = 1 To UBound(arr)
        If arr(i, 1) Like "*" & Me.abc & "*" Then
            Set ITM = abd.ListItems.Add()
    ITM.Text = arr(i, 3)
    ITM.SubItems(1) = arr(i, 1)
    ITM.SubItems(2) = arr(i, 4)
    ITM.SubItems(3) = arr(i, 5)
    ITM.SubItems(4) = arr(i, 6)
    ITM.SubItems(5) = arr(i, 7)
    ITM.SubItems(6) = arr(i, 8)
    ITM.SubItems(7) = arr(i, 9)
    ITM.SubItems(8) = arr(i, 10)
    ITM.SubItems(9) = arr(i, 2)
    ITM.SubItems(10) = arr(i, 11)
        End If
    Next
End Sub
Private Sub UserForm_Initialize()
With Me.abd
    .ColumnHeaders.Add , , "凭证号", .Width / 11.5 * 1
    .ColumnHeaders.Add , , "工单号", .Width / 5 * 1
    .ColumnHeaders.Add , , "产品编号", .Width / 6.5 * 1
    .ColumnHeaders.Add , , "名称规格", .Width / 4 * 1
    .ColumnHeaders.Add , , "模具型号", .Width / 8 * 1
    .ColumnHeaders.Add , , "订单数", .Width / 11 * 1
    .ColumnHeaders.Add , , "转交数", .Width / 11 * 1
    .ColumnHeaders.Add , , "送货数", .Width / 11 * 1
    .ColumnHeaders.Add , , "签收人", .Width / 11 * 1
    .ColumnHeaders.Add , , "签收日期", .Width / 7 * 1
    .ColumnHeaders.Add , , "备    注", .Width / 7 * 1
    .View = lvwReport
    .FullRowSelect = True
    .Gridlines = True
End With
Dim ITM
Dim arr, i%
With Sheets("数据库")
    arr = .Range("a2:K" & .[a65536].End(3).Row)
End With
For i = 1 To UBound(arr)
    Set ITM = abd.ListItems.Add()
    ITM.Text = arr(i, 3)
    ITM.SubItems(1) = arr(i, 1)
    ITM.SubItems(2) = arr(i, 4)
    ITM.SubItems(3) = arr(i, 5)
    ITM.SubItems(4) = arr(i, 6)
    ITM.SubItems(5) = arr(i, 7)
    ITM.SubItems(6) = arr(i, 8)
    ITM.SubItems(7) = arr(i, 9)
    ITM.SubItems(8) = arr(i, 10)
    ITM.SubItems(9) = arr(i, 2)
    ITM.SubItems(10) = arr(i, 11)
Next
End Sub

hwc2ycy

在别人的电脑上，你得先把LISTVIEW添加下，可能是这个问题。

lisa19860622

直接把代码写在私有宏里,这里,你发过去的文件,根本就看不到宏,这样,也不怕别人运行宏了,我现在给中粮的报表,就是让他们看不到宏代码,全写在自己电脑里,换台电脑就不能运行宏了.

hwc2ycy

附件在我这能使用，在新电脑上添加上LISTVIEW的引用就成了。

68459358

请高手们帮一下，能清楚写一下代码吗