listview控件不支持64位的Excel怎么办

y1983y

原帖http://club.excelhome.net/thread-1320913-1-1.html
由于listview控件不支持64位的Excel，因此想用listbox控件替换，请大神修改代码，谢谢！谢谢各位的大力支持，附件见7楼。目前该系统在32位Excel中完美运行。
Private Sub UserForm_Initialize()
    Dim lvw
    Dim i As Long, m As Long
        ListView1.ColumnHeaders.Add 1, , "图号", ListView1.Width * 0.2
        ListView1.ColumnHeaders.Add 2, , "存放位置", ListView1.Width * 0.1
        ListView1.ColumnHeaders.Add 3, , "物料编码", ListView1.Width * 0.05
        ListView1.ColumnHeaders.Add 4, , "名称", ListView1.Width * 0.15
        ListView1.ColumnHeaders.Add 5, , "规格型号", ListView1.Width * 0.1
        ListView1.ColumnHeaders.Add 6, , "单位", ListView1.Width * 0.05
        ListView1.ColumnHeaders.Add 7, , "单价", ListView1.Width * 0.05
        ListView1.ColumnHeaders.Add 8, , "实际库存数量", ListView1.Width * 0.15
        ListView1.ColumnHeaders.Add 9, , "理论库存数量", ListView1.Width * 0.15
    With Sheet5
        For i = 6 To .[a65536].End(xlUp).Row
            Set lvw = ListView1.ListItems.Add()
                lvw.Text = .Cells(i, 1)
            For m = 2 To 7
                lvw.SubItems(m - 1) = .Cells(i, m)
            Next m
                lvw.SubItems(7) = .Cells(i, 14)
                lvw.SubItems(8) = .Cells(i, 16)
        Next i
    End With
End Sub
Private Sub ListView1_DblClick()
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
Dim j As Long, m As Long
Dim lvw
    With Sheet2
        j = .[a65536].End(xlUp).Row + 1
        If TextBox2.Value <> "" Then
        .Cells(j, 1) = ListView1.SelectedItem.Text
        For m = 2 To 7
        .Cells(j, m) = ListView1.SelectedItem.SubItems(m - 1)
        Next m
        .Cells(j, 8) = TextBox2.Value
        .Cells(j, 9) = VBA.Format(Now(), "yyyy-mm-dd")
        .Cells(j, 10) = .Cells(j, 7) * .Cells(j, 8)
        .Cells(j, 11) = TextBox3.Value
        .Cells(j, 12) = Sheet1.Range("d2")
        Else
        MsgBox "请输入数量", vbInformation, "系统提示"
        End If
       End With
        TextBox1.SetFocus
        TextBox1.SelStart = 0
        TextBox1.SelLength = Len(TextBox1.Text)
        Application.ScreenUpdating = True
        Application.Calculation = xlAutomatic
        ThisWorkbook.Save
End Sub



补充内容 (2018-7-31 09:10):
修改好的文件在12楼，谢谢大家关注！

zpy2

估计比较困难吧，这两种是完全不同的控件。倒不如把这些窗体做成一个单独的程序来控制excel。

y1983y

zpy2 发表于 2018-7-11 07:24
估计比较困难吧，这两种是完全不同的控件。倒不如把这些窗体做成一个单独的程序来控制excel。

给指条方向，谢谢！

我是来讨说法的

变通》》》》

ivccav

Listbox在不是引用EXCEL时没有标题，不过可以把标题作为第一行。
灵活运用List属性应该可以代替Listview的。以下是添加一行数据的代码：

初始化时要设置列数：.ColumnCount = UBound(arr, 2),

            ListBox1.AddItem n  'n也是从0开始的
            For j = 0 To UBound(arr, 2) - 1
                ListBox1.List(n, j) = arr(i, j + 1)
            Next
            n = n + 1

y1983y

我是来讨说法的 发表于 2018-7-11 09:53
变通》》》》

谢谢！我这个是用在窗体上实现模糊查询，进而进行数据工作表自动填充

y1983y

ivccav 发表于 2018-7-11 10:30
Listbox在不是引用EXCEL时没有标题，不过可以把标题作为第一行。
灵活运用List属性应该可以代替Listview ...

数据已经成，但是如何实现模糊查询筛选有点困难了。见附件，密码：123456

ivccav

y1983y 发表于 2018-7-11 13:12
数据已经成，但是如何实现模糊查询筛选有点困难了。见附件，密码：123456

你的版本太高，我的EXCEL2003用不了。
我说得很清楚了，是List属性。你全部用Listview的属性怎么可能运行呢？
listbox和listview的属性不是相同的。

ivccav

绑定了数据源就没法操作了，需要使用数组。
使用数组是无法使用标题的，只能自己加。
主要代码已经帮你写好了，但是你要输出的内容自己改一下。

1. Private Sub ListBox1_Click()
   
2.     Dim iRow As Integer
   
3.     Dim i As Byte
   
4.     With ListBox1
   
5.         If .ListCount < 2 Then Exit Sub '第一行是标题
   
6.         If .ListIndex < 1 Then Exit Sub ''第一行是标题
   
7.         '输出单击选中的一行。
   
8.         iRow = Sheet2.Range("A65536").End(xlUp).Row + 1
   
9.         For i = 0 To .ColumnCount - 1
   
10.             Sheet2.Cells(iRow, i + 1) = .List(.ListIndex, i)
    
11.         Next
    
12.     End With
    
13.   End Sub
    
14. 
    
15. Private Sub TextBox1_Change()
    
16.     Dim strtb1 As String
    
17.     Dim i As Long, m As Long
    
18.     Dim n As Long
    
19.     strtb1 = UCase(TextBox1.Text)
    
20.     With ListBox1
    
21.         .Clear
    
22.         .AddItem '加标题
    
23.         For i = 1 To 7
    
24.             .List(0, i - 1) = arr(1, i)
    
25.         Next
    
26.         .List(0, 7) = arr(1, 14)
    
27.         .List(0, 8) = arr(1, 16)
    
28.         n = 1
    
29.         For i = 6 To UBound(arr)
    
30.             If arr(i, 1) Like "*" & strtb1 & "*" Then
    
31.                 ListBox1.AddItem
    
32.                 For m = 1 To 7
    
33.                     ListBox1.List(n, m - 1) = arr(i, m)
    
34.                 Next m
    
35.                 ListBox1.List(n, 7) = arr(i, 14)
    
36.                 ListBox1.List(n, 8) = arr(i, 16)
    
37.                 n = n + 1
    
38.             End If
    
39.         Next i
    
40.     End With
    
41. End Sub
    
42. 
    
43. Private Sub UserForm_Initialize()
    
44.     Dim iRow As Integer, n As Long, i As Long, m As Long
    
45.     iRow = Sheet5.Range("A65536").End(xlUp).Row
    
46.     arr = Sheet5.Range("a5:p" & iRow)
    
47.     With Me.ListBox1
    
48.         .ColumnCount = 9
    
49.         .ColumnWidths = "90,45,45,45,90,30,45,45,50"
    
50.         .AddItem
    
51.         .MultiSelect = fmMultiSelectSingle '单选
    
52.         For iRow = 1 To 7
    
53.             .List(0, iRow - 1) = arr(1, iRow)
    
54.         Next
    
55.         .List(0, 7) = arr(1, 14)
    
56.         .List(0, 8) = arr(1, 16)
    
57.         n = 1
    
58.         For i = 6 To UBound(arr)
    
59.             .AddItem
    
60.             For m = 1 To 7
    
61.                 .List(n, m - 1) = arr(i, m)
    
62.             Next m
    
63.             .List(n, 7) = arr(i, 14)
    
64.             .List(n, 8) = arr(i, 16)
    
65.             n = n + 1
    
66.         Next i
    
67.       End With
    
68.   End Sub

复制代码

刀具管理系统64位.zip (360.24 KB, 下载次数: 34)

2018-7-11 22:14 上传

点击文件名下载附件

y1983y

ivccav 发表于 2018-7-11 13:57
你的版本太高，我的EXCEL2003用不了。
我说得很清楚了，是List属性。你全部用Listview的属性怎么可 ...

谢谢！非常感谢你的帮助！