[已解决]单元格里输入多少张就打印多少张，怎么弄，大侠来帮忙呀啊高手在哪里啊？？？？？...

ynzjc2002

里面有一段了，怎么实现在k列输入数量然后回车就提示是否打印，然后确定就打印sheet5里的内容？？？大侠来帮忙哦，高手在哪里？{:26:}

最佳答案

月排行榜 / 总排行榜

zjdh

2014-2-26 16:27

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 11 Then Exit Sub
    Sheet4.Unprotect "1"
    Cells.Locked = False
    Range("a1", Target).Locked = True
    Sheet4.Protect "1"
    i = Target.Row
    If MsgBox("你确定要打印吗？", 1) = 1 Then
        With Sheet5
            .[a2] = "*" & Cells(i, 1) & "*"
            .[a3] = Cells(i, 1)
            .[b4] = Cells(i, 2)
            .[b5] = Cells(i, 4)
            .[b6] = Cells(i, 7)
            .[d6] = Cells(i, 9)
            .PrintOut Copies:=Target.Value
        End With
    Else
        MsgBox "你放弃了打印！"
    End If
End Sub

跳转到最佳答案楼层

ynzjc2002

{:29:}高手在哪里在哪里？？？？

冠军欧洲2010

空的。。
没有附件啊。

ynzjc2002

冠军欧洲2010 发表于 2014-2-26 15:38
空的。。
没有附件啊。

不好意思哦，开着文件压缩不到哦！！{:20:}

ynzjc2002

{:24:} 人呢?

冠军欧洲2010

.......

zjdh

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 11 Then Exit Sub
    Sheet4.Unprotect "1"
    Cells.Locked = False
    Range("a1", Target).Locked = True
    Sheet4.Protect "1"
    i = Target.Row
    If MsgBox("你确定要打印吗？", 1) = 1 Then
        With Sheet5
            .[a2] = "*" & Cells(i, 1) & "*"
            .[a3] = Cells(i, 1)
            .[b4] = Cells(i, 2)
            .[b5] = Cells(i, 4)
            .[b6] = Cells(i, 7)
            .[d6] = Cells(i, 9)
            .PrintOut Copies:=Target.Value
        End With
    Else
        MsgBox "你放弃了打印！"
    End If
End Sub

ynzjc2002

zjdh 发表于 2014-2-26 16:27
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If T ...

{:11:}