更多待解决问题>>

提问

excel根据表1录入数据打印相对应内容表实现功能

举报 回答
excel根据表1录入数据打印相对应内容表实现功能
问在线客服
扫码问在线客服

  • 回答数

    4

  • 浏览数

    4,444

举报 回答

4个回答 默认排序
  • 默认排序
  • 按时间排序

没找到满意答案？去问秘塔AI搜索
取消 复制问题

ztaoye

已采纳
哎哟，这VBA代码看着就头大！
简单说就是：
- 如果当前表叫农户，就打农户信息表；不然就打其他自然人那张表。
- 接着看某个单元格是不是填了是，要是是，顺手把评级表也打了。
- 再瞅一眼另一个地方填的是有还是无：
　→ 填有，就打工作简历；
　→ 填无，就打无工作情况表。
全程自动判断、自动打印，不用手动翻来翻去～
（PS：实际用的时候记得检查表名别写错，不然直接报错闪退，血泪教训）
评论
取消 评论
超值推荐

bcj16

Sub xx()
Dim lastrow As Long
lastrow = Range(B65536).End(xlUp).Row()
Sheets(Sheet2).Select
For i = 2 To lastrow
For j = 2 To 8
Cells(j + 3, 3) = Sheet1.Cells(i, j)
Next j
For j = 9 To 13
Cells(j - 4, 6) = Sheet1.Cells(i, j)
Next j
Cells(14, 6) = Sheet1.Cells(i, 14)
Cells(13, 6) = Sheet1.Cells(i, 15)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
End Sub
因为原图看不清楚，有些单元格定位可能会有出入，自己改下
评论
取消 评论

MING397266

你将文件 发网盘上，将链接发上来，帮你写一下吧。追问 : 链接: https://pan.baidu.com/s/1c3DukmHKY0C1TYjq8tbTkA 密码: y7a8
追答 : 写好了，设了三个按钮，设定了打印区域。你试试：链接: https://pan.baidu.com/s/1YCpWO-Q18ZdhzXMaWbR5RQ 密码: rtnm
评论
取消 评论

zhou273958577

不用VBA，简单的办法：
把表一的内容复制在表二下面一行，用公式把表一相应的内容读入到表二中，再设置打印区域为表二内容。打印时复制表一要打印的一行内容到表二下的一行即可。
评论
取消 评论

最新回答 更多>

ZOL问答 > excel根据表1录入数据打印相对应内容表实现功能

举报

感谢您为社区的和谐贡献力量请选择举报类型

广告内容 反动言论 色情内容 其他违规违法内容

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

扫码参与新品0元试用
晒单、顶楼豪礼等你拿

扫一扫，关注我们
提示

确定要取消此次报名，退出该活动？

确定 取消