[已解决]跪求大神 收费表制作

jiji010

序号	姓名	面积	金额	是否缴费	交费日期	交费
1	张三	100	2000
2	李四	100	2000
3	王五	100	2000
4	张六	100	2000
5
6
7
8
9
10
11

1、怎样制作点击交费后出来一个对话框，选择“确定缴费并打印”或者“取消”；2选择“确定缴费并打印”后是否交费条目处显示为绿色，并自动生成交费日期，而且打印的是A*-D*的区域。跪求大神！！！！！！！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-3-25 13:47

自己贴代码试一下，注意只做了预览，自己改成打印应该没问题吧。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column <> 7 Then Exit Sub
   
4. If Target.Row = 1 Then Exit Sub
   
5. Dim n&
   
6. n = MsgBox("确定缴费并打印？", vbYesNo)
   
7. If n = 6 Then
   
8.   Target.Offset(, -2).Interior.Color = vbGreen
   
9.   Target.Offset(, -1) = Date
   
10.   Target.Offset(, -6).Resize(, 4).PrintPreview
    
11. End If
    
12. End Sub

复制代码

跳转到最佳答案楼层

Excel学徒123

写代码

jiji010

求代码！！！！！！！！！！！！！！！！！！

jiji010

jiji010

这样怎么做呢？

大灰狼1976

自己贴代码试一下，注意只做了预览，自己改成打印应该没问题吧。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column <> 7 Then Exit Sub
   
4. If Target.Row = 1 Then Exit Sub
   
5. Dim n&
   
6. n = MsgBox("确定缴费并打印？", vbYesNo)
   
7. If n = 6 Then
   
8.   Target.Offset(, -2).Interior.Color = vbGreen
   
9.   Target.Offset(, -1) = Date
   
10.   Target.Offset(, -6).Resize(, 4).PrintPreview
    
11. End If
    
12. End Sub

复制代码

jiji010

大灰狼1976 发表于 2017-3-25 13:47
自己贴代码试一下，注意只做了预览，自己改成打印应该没问题吧。

:handshake:handshake:handshake:handshake:handshake:handshake:handshake:handshake:handshake:handshake:handshake:handshake:handshake:handshake:handshake谢谢谢！！！！！！

jiji010

If Target.Count > 1 Then Exit Sub为什么还要这个？

jiji010

PrintPreview改成printout就直接打印了，

大灰狼1976

jiji010 发表于 2017-3-25 16:00
If Target.Count > 1 Then Exit Sub为什么还要这个？

你选中多个单元格时不执行代码。