如何做到添加记录表内容，打印时输出图形表

jjhy520

山菊花 发表于 2019-11-12 20:27
.PrintOut
替换为：
If MsgBox("确定打印吗？     ", 36, "打印") = 6 Then .PrintOut

感谢大佬，照葫芦画瓢，我增加了几项，已经很完美了。再最后最后请教一个问题，一个表格能不能支持两种宏
我有一些只要打印过磅单
还有一种要打印过磅结算单
能不能再给我一个按钮是打印过磅结算单的




过磅记录表.zip (29.99 KB, 下载次数: 2)

2019-11-13 01:16 上传

点击文件名下载附件

山菊花

jjhy520 发表于 2019-11-12 22:17
感谢大佬，照葫芦画瓢，我增加了几项，已经很完美了。再最后最后请教一个问题，一个表格能不能支持两种宏 ...

试试：

jjhy520

山菊花 发表于 2019-11-13 08:12
试试：

1、我测试了下，这次版本限制了“N列”为打印按钮，后期无法做到增加列 跟减少列，那样都会对打印按钮失效，感觉没有第一个版本方便。
2、代码里 也比之前复杂了，没看出来大佬是怎么区分过磅单跟过磅结算单的

jjhy520

山菊花 发表于 2019-11-13 08:12
试试：

大。。。。大佬 不改了吗。。。。

jjhy520

哦 我看到了 代码里的 14 我好像明白了 我研究下

jjhy520

山菊花 发表于 2019-11-13 08:12
试试：

ok是Ok了，就是不能添加列跟删除列，
出现下面这两种统计方式不一样时，只能通过隐藏列来实现，添加列的话 好像不行
一个表格里有多种不同的工作簿，打印方式不一样 所以比较尴尬

jjhy520

@wangg913, @山菊花, @chrisfang, @胡剑0227, @wshcw, @piny, @fangjianp, @shaowu459, @dengjq2000, @mps777, @满坛皆为吾师, @象山海鲜

另外 各位大佬们 可以把这个帖子移到ExcelVBA程序开发 区吗

山菊花

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Arr()
    If Target.CountLarge > 1 Then Exit Sub
    If Not Target.Value Like "过磅*单" Then Exit Sub
   
    Arr = Range("a" & Target.Row).Resize(1, 6).Value
    Application.ScreenUpdating = False
    With Sheets(Target.Value)
        .Range("b3").Value = Arr(1, 2)
        .Range("i4").Value = Arr(1, 3)
        .Range("b6").Value = Arr(1, 4)
        .Range("c6").Value = Arr(1, 5)
        If MsgBox("确定打印吗？     ", 36, "打印") = 6 Then .PrintOut
    End With
    Application.ScreenUpdating = True
End Sub

jjhy520

山菊花 发表于 2019-11-14 17:14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Arr()
    If Target.CountLarg ...

哈哈哈哈哈 完美支持添加删除列了。搞定 搞定 非常完美 感谢 大佬