本帖最后由 枫丹白露 于 2024-4-26 23:28 编辑
我要将《订单》表内有28列数据,有选择的装11列到字典,并按列序重新排列,显示在listbox
再录入到《排单计划》表
在字典这里卡住了,请老师帮我写一段代码,谢谢。
搞定了,是我想复杂了
- Private Sub UserForm_Initialize() '窗体初始化
- Dim arr, brr(), k, j, x, r
- r = Sheet3.Cells(Rows.Count, "r").End(xlUp).Row
- arr = Sheet3.Range("C4:AB" & r) '数据源
-
- k = 0
- For x = 1 To UBound(arr)
- ReDim Preserve brr(1 To UBound(arr), 1 To 12)
-
- If arr(x, 24) <> 0 Then
- k = k + 1
-
- brr(k, 1) = arr(x, 1) '客户
- brr(k, 2) = arr(x, 6) '简称
- brr(k, 3) = arr(x, 24) '欠数
- brr(k, 4) = arr(x, 18) '合同号
- brr(k, 5) = arr(x, 19) '订单号
- brr(k, 6) = arr(x, 20) '编码
- brr(k, 7) = arr(x, 21) '物料
- brr(k, 8) = arr(x, 26) '配置
- brr(k, 9) = arr(x, 3) '工装
- brr(k, 10) = arr(x, 4) '流转号
- brr(k, 11) = arr(x, 5) '品名
- brr(k, 12) = arr(x, 16) '备注
-
- End If
- Next
- ListBox1.List = brr
- With ListBox1 '设置列表框属性
- .Font.Size = 10 '字号12
- .ForeColor = RGB(233, 9, 248) '字色蓝
- .ColumnCount = 12 '列数
- .ColumnWidths = "65,220,30,70,2,2,2,180,2,2,2,100" '列宽
- End With
- End Sub
复制代码
|