|
序号 | 姓名 | 面积 | 金额 | 是否缴费 | 交费日期 | | 1 | 张三 | 100 | 2000 | | | 交费并打印 | 2 | 李四 | 100 | 2000 | | 2017/3/25 | 交费并打印 | 3 | 王五 | 100 | 2000 | | | 交费并打印 | 4 | 张六 | 100 | 2000 | | | 交费并打印 | 张六 | 150 | 3000 | 6 | | | | | | 交费并打印 | 7 | | | | | | 交费并打印 | 8 | | | | | | 交费并打印 | 9 | | | | | | 交费并打印 | 10 | | | | | | 交费并打印 | 11 | | | | | | 交费并打印 | Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 2 Then Exit Sub
If Target.Column <> 7 Then Exit Sub
If Target.Row = 1 Then Exit Sub
Dim n&
n = MsgBox("确定缴费并打印?", vbYesNo)
If n = 6 Then
Target.Offset(, -2).Interior.Color = vbGreen
Target.Offset(, -1) = Date
Target.Offset(, -6).Resize(, 4).PrintPreview
End If
End Sub
这代码只能打印一行,但是到序列4的情况占用两行,怎样点“交费并打印”,能打印出两行,这代码怎样改进一下,请求高手帮忙!谢谢!
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Column <> 7 Then Exit Sub
- If Target.Row = 1 Then Exit Sub
- Dim n&
- n = MsgBox("确定缴费并打印?", vbYesNo)
- If n = 6 Then
- Target.Offset(, -2).Interior.Color = vbGreen
- Target.Offset(, -1) = Date
- Target.Offset(, -6).Resize(Target.Count, 4).PrintPreview
- End If
- End Sub
复制代码
|
|