Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1942|回复: 5

[已解决]收费表VBA改进,请求大神帮忙!

[复制链接]
发表于 2017-3-27 08:37 | 显示全部楼层 |阅读模式
序号
姓名
面积
金额
是否缴费
交费日期
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的情况占用两行,怎样点“交费并打印”,能打印出两行,这代码怎样改进一下,请求高手帮忙!谢谢!
最佳答案
2017-3-27 16:41
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
  2.     If Target.Column <> 7 Then Exit Sub
  3.     If Target.Row = 1 Then Exit Sub
  4.     Dim n&
  5.     n = MsgBox("确定缴费并打印?", vbYesNo)
  6.     If n = 6 Then
  7.       Target.Offset(, -2).Interior.Color = vbGreen
  8.       Target.Offset(, -1) = Date
  9.       Target.Offset(, -6).Resize(Target.Count, 4).PrintPreview
  10.     End If
  11. End Sub
复制代码
 楼主| 发表于 2017-3-27 10:22 | 显示全部楼层
1111

新建 Microsoft Excel 工作表 (2).rar

14.24 KB, 下载次数: 5

111

回复

使用道具 举报

发表于 2017-3-27 11:39 | 显示全部楼层
只给出思路,判断合并单元格的大小(行数),然后相应调整打印区大小。
回复

使用道具 举报

 楼主| 发表于 2017-3-27 14:51 | 显示全部楼层
大灰狼1976 发表于 2017-3-27 11:39
只给出思路,判断合并单元格的大小(行数),然后相应调整打印区大小。

我是真的不会啊,一点都不会[em04],您好人做到底吧!
回复

使用道具 举报

发表于 2017-3-27 16:41 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
  2.     If Target.Column <> 7 Then Exit Sub
  3.     If Target.Row = 1 Then Exit Sub
  4.     Dim n&
  5.     n = MsgBox("确定缴费并打印?", vbYesNo)
  6.     If n = 6 Then
  7.       Target.Offset(, -2).Interior.Color = vbGreen
  8.       Target.Offset(, -1) = Date
  9.       Target.Offset(, -6).Resize(Target.Count, 4).PrintPreview
  10.     End If
  11. End Sub
复制代码

评分

参与人数 1 +1 收起 理由
jiji010 + 1 谢谢老师,帮大忙了

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-3-27 16:49 | 显示全部楼层
由衷的感谢你,我现在是应急,但是我决定开始学习了,谢谢!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:46 , Processed in 0.328659 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表