[已解决]关于双击弹出 装载listview的窗体 的报错。。。求救赎。。。

wj983

我按80集中的59集的listview控件，我想双击单元格弹出一个装载listview的窗体，但老是提示找不到工程库，老是报错。运行59集中的例子么又能弹出窗体的，不知道啥原因了，附上附件，求大神帮忙啊！！！

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. If Target.Row = 4 And Target.Column > 2 Then
   
3. UserForm1.Show
   
4. End If
   
5. End Sub
   
6. 
   
7. 
   
8. 
   
9. Private Sub UserForm_Initialize()
   
10. Dim i As Integer
    
11. Dim ITM As ListItem
    
12.    ListView1.ColumnHeaders.Clear
    
13.   
    
14.    ListView1.ColumnHeaders.Add 1, "R", "日期", 70
    
15.    ListView1.ColumnHeaders.Add 2, "N", "车间", 35, lvwColumnCenter
    
16.    ListView1.ColumnHeaders.Add 3, "C", "位号", 50, lvwColumnCenter
    
17.    ListView1.ColumnHeaders.Add 4, "B", "筒子数", 40, lvwColumnCenter
    
18.    ListView1.ColumnHeaders.Add 5, "Z", "卷绕工", 50, lvwColumnCenter
    
19.    ListView1.ColumnHeaders.Add 6, "W", "纺丝工", 50, lvwColumnCenter
    
20.    ListView1.ColumnHeaders.Add 7, "D", "规格", 50, lvwColumnCenter
    
21.    ListView1.ColumnHeaders.Add 8, "S", "批号", 50, lvwColumnCenter
    
22.    ListView1.ColumnHeaders.Add 9, "J", "纸管厂商", 50, lvwColumnCenter
    
23.    ListView1.ColumnHeaders.Add 10, "T", "纸管颜色", 50, lvwColumnCenter
    
24.    ListView1.ColumnHeaders.Add 11, "M", "小卷断头", 50, lvwColumnCenter
    
25.    ListView1.ColumnHeaders.Add 12, "P", "满卷断头", 50, lvwColumnCenter
    
26.    ListView1.ColumnHeaders.Add 13, "O", "切换断头", 50, lvwColumnCenter
    
27.    ListView1.ColumnHeaders.Add 14, "I", "满卷次数", 50, lvwColumnCenter
    
28.    
    
29.    ListView1.View = lvwReport 'listview控件的显示外观
    
30.    ListView1.Gridlines = True '是否有表格线
    
31. 
    
32. 
    
33.    For i = 2 To Sheets("明细").Range("A65536").End(xlUp).Row
    
34.    
    
35. 
    
36.    If Sheets("明细").Cells(i, 1) = Range("c2") And Sheets("明细").Cells(i, 7).Value = Selection.Value Then
    
37. 
    
38.      Set ITM = ListView1.ListItems.Add()
    
39.      
    
40.      ITM.Text = Sheets("明细").Cells(i, 1)
    
41.      ITM.SubItems(1) = Sheets("明细").Cells(i, 2)
    
42.      ITM.SubItems(2) = Sheets("明细").Cells(i, 3)
    
43.      ITM.SubItems(3) = Sheets("明细").Cells(i, 4)
    
44.      ITM.SubItems(4) = Sheets("明细").Cells(i, 5)
    
45.      ITM.SubItems(5) = Sheets("明细").Cells(i, 6)
    
46.      ITM.SubItems(6) = Sheets("明细").Cells(i, 7)
    
47.      ITM.SubItems(7) = Sheets("明细").Cells(i, 8)
    
48.      ITM.SubItems(8) = Sheets("明细").Cells(i, 9)
    
49.      ITM.SubItems(9) = Sheets("明细").Cells(i, 10)
    
50.      ITM.SubItems(10) = Sheets("明细").Cells(i, 11)
    
51.      ITM.SubItems(11) = Sheets("明细").Cells(i, 12)
    
52.      ITM.SubItems(12) = Sheets("明细").Cells(i, 13)
    
53.      ITM.SubItems(13) = Sheets("明细").Cells(i, 14)
    
54. 
    
55.      
    
56.      End If
    
57.      
    
58.      Next i
    
59. 
    
60. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-7-2 21:13

VBE窗口 - 工具菜单 -  引用 - 在窗口列表中找到 "丢失的....." 把勾选去掉,即可

跳转到最佳答案楼层

妞叫七七

VBE窗口 - 工具菜单 -  引用 - 在窗口列表中找到 "丢失的....." 把勾选去掉,即可

wj983

果然，谢谢了~~

wj983

如果在弹出的时候，数据按ITM.SubItems(2)排序怎么弄？！

妞叫七七

Private Sub UserForm_Initialize()
  ListView1.SortKey = 2
  ListView1.SortOrder = lvwDescending
End Sub

wj983

好的，谢谢~