求助ListView框应用生成标贴单

我是小黑屋 · 发表于 2022-11-14 16:16

如图工作表中所示，点击选择“选择螺丝单”按钮调出窗口，然后第一步点击生成标贴窗口上的载入清单可以弹出文件选择框选择项目螺丝单载入到ListView1框中（对应的列如框中和螺丝单表中一一对应载入）。然后根据需求点击勾选的选择框。自动将对应勾选的箱号的行数置入到 “标签” 表中（格式如表中所示，大格子中置入物料名称+“=”数量列，下面那行就置入Label4文本控件中的对应项目（由载入的时候读取螺丝单的E1单元格读取得来），然后保存一份工作表，表名是所选择的箱号，中间用-符号隔开（如1-4工作表表名）。我是勾选了1号和4号的数据）

新建文件夹 (2).zip (194.33 KB, 下载次数: 20)

3190496160 · 发表于 2022-11-14 19:10

一个生成标签的问题，没有必要搞得如此复杂吧

我是小黑屋 · 发表于 2022-11-14 20:06

3190496160 发表于 2022-11-14 19:10
一个生成标签的问题，没有必要搞得如此复杂吧

主要是想可以根据载入的清单，然后生成勾选对应箱号的标签，再分别打印出来

3190496160 · 发表于 2022-11-14 20:41

Private Sub CommandButton6_Click()
Dim fileOpenName
fileOpenName = Application.GetOpenFilename("excel文件(*.xls*),*.xls")
If fileOpenName = False Then Exit Sub
fs = fileOpenName
Set wb = Workbooks.Open(fs)
Dim lst As ListItem
arr = wb.Worksheets(1).[a1].CurrentRegion
wb.Close fasle
With Me.ListView1
      For j = 2 To UBound(arr, 2)
         .ColumnHeaders.Add , , arr(2, j), 110
      Next
      '设置标题行
      .CheckBoxes = True
      .Gridlines = True
      .View = lvwReport '报表视图
      .Gridlines = True '显示网格线
      .Font.Size = 12 '设置字号为9号
      .FullRowSelect = True '整行选择
      .BackColor = 155
      '设置视图
      For k = 3 To UBound(arr)
         Set lst = .ListItems.Add()
         lst.Text = arr(k, 2)
         For m = 3 To UBound(arr, 2)
            lst.SubItems(m - 2) = arr(k, m)
         Next
      Next
      '添加记录
      Set .SelectedItem = .ListItems(1)
      '选择第一条记录
End With
Set lst = Nothing
End Sub

3190496160 · 发表于 2022-11-14 20:42

只是导入数据

新建文件夹 (2).rar (59.17 KB, 下载次数: 15)

zpy2 · 发表于 2022-11-15 08:07

29 29 8.8级六角螺栓M1×38 PCS 29 19-2号箱

19-2这种情况下，很难自动化

我是小黑屋 · 发表于 2022-11-15 08:28

zpy2 发表于 2022-11-15 08:07
29 29 8.8级六角螺栓M1×38 PCS 29 19-2号箱

19-2这种情况下，很难自动化

老师，那如果是窗体上CheckBox勾选好对应的箱号，然后ListView框里面也自动根据窗体上CheckBox对应勾取的箱号来勾选对应的箱号行。这样再根据出来的行点击生成标贴到对应格子中是否可行？

我是小黑屋 · 发表于 2022-11-15 10:43

zpy2 发表于 2022-11-15 08:07
29 29 8.8级六角螺栓M1×38 PCS 29 19-2号箱

19-2这种情况下，很难自动化

老师或者排除19-2这个，当19处理也行

我是小黑屋 · 发表于 2022-11-16 16:28

老师帮忙看看

		自动登录	找回密码
密码			免费注册

[求助] 求助ListView框应用生成标贴单

评分