求大神用一个宏加载一下模板数据。多谢！

108079955

请大神帮忙用通过窗体调用用一个宏把表里的数据加载到销售模板。

1.窗体已弄好，只需一个宏(jiazai)来把表里的数据加载到模板即可
2.当数据行小于模板行时，最好能够自动隐藏那些空白行，但模板的总行数不变。多谢谢！

3190496160

Private Sub ListView1_DblClick()
    Dim h&, y&, r&
    With Sheets("data")
        ar = .Range("a1:ah" & .Range("A65500").End(3).Row)
    End With
    ReDim br(1 To UBound(ar), 1 To 5)
    With ListView1
        r = .SelectedItem.Index
        dh = .ListItems.Item(r)
        For i = 2 To UBound(ar)
            If Trim(ar(i, 15)) = Trim(dh) Then
                n = n + 1
                br(n, 1) = ar(i, 2)
                rq = ar(i, 11)
                kh = ar(i, 12)
                fs = ar(i, 19)
                For j = 4 To 7
                    br(n, j - 2) = ar(i, j)
                Next j
            End If
        Next i
    End With
    With Sheets("模板")
        .[b6:f20] = Empty
        .[e3] = dh
        .[b3] = rq
        .[b4] = kh
        .[e4] = fs
        .[b6].Resize(n, 5) = br
    End With
    'Unload Me
End Sub

3190496160

测试00.rar (53.19 KB, 下载次数: 31)

2022-9-19 11:18 上传

点击文件名下载附件

108079955

3190496160 发表于 2022-9-19 11:18

非常感谢春风化雨老师的多次帮助。你辛苦了。我还想麻烦老师一下 ，能不能修改一下代码位置，你写的是鼠标单击选定，我点击窗体上的确定按钮打印不了呀！ 能不能修改成点击前面的单选框选定 再点击确定按钮之后就可以打印了。 我只是爱好者，其实啥也不懂，我看了半天也不知道怎么改呀！我想按我的改好我是自己家里用这个l了。麻烦老师有空了再看看！

3190496160

108079955 发表于 2022-9-19 13:45
非常感谢春风化雨老师的多次帮助。你辛苦了。我还想麻烦老师一下 ，能不能修改一下代码位置，你写的是鼠 ...

双击listview控件中相应行，实现数据填充效果呀，

108079955

3190496160 发表于 2022-9-19 14:23
双击listview控件中相应行，实现数据填充效果呀，

哦     明白  再次感谢老师的辛勤付出

ivccav

测试00.zip (58.02 KB, 下载次数: 23)

2022-9-27 13:06 上传

点击文件名下载附件

108079955

ivccav 发表于 2022-9-27 13:06

太感激老师了    我这个问题求助了好几个月了     有老师帮我了 但稍有一点不是我想要的这样  我知道我稍已改可以 我有自己不会改    这次总算如我所愿了呀     非常感谢老师呀     太感谢老师的辛苦付出      完全是我想要的样子呀

adminsong

108079955 发表于 2022-9-27 13:42
太感激老师了    我这个问题求助了好几个月了     有老师帮我了 但稍有一点不是我想要的这样  我知道我 ...

楼主，你的问题是解决了吧，我也想实现你说的这个功能，你最终的文件能分享一下吧，

108079955

adminsong 发表于 2023-11-3 10:44
楼主，你的问题是解决了吧，我也想实现你说的这个功能，你最终的文件能分享一下吧，

我是小白也不懂呀    原本希然不在数据表里设置打印按钮，但几位老师写的代码都在数据表。自己不会改，就用老师写的了。我也到现在也没有实现自己想要的那种样子呀 ！好久都没有在玩那个了！