有朋友发来问题:
首先,我们来看看他的这句话一共有几个点?
1
如何实现A1选择不同表名?
2
如何点打印预览显示被选择表名的预览?
3
如何在关闭后,回到原始位置?
首先,我们来看第一个问题:
如何实现A1选择不同表名?
这个在往期的已经分享过了,通过数据验证的序列来完成下拉菜单效果。
传送门:《为单元格添加下拉菜单 》
然后,我们来看第二个问题:
如何点打印预览显示被选择表名的预览?
我们已经获取了,想要打印预览的工作表名,我们只需要创建按钮,并且把打印预览的代码关联到按钮上即可。
代码
Sheets(CStr(Sheets("Sheet1").Range("A1"))).Select
上面代码分为三个,分开写也可以的
分别是
Sheets("XXX").Select→ 工作表的选择,
CStr(XXX)→ 强制转化成字符串,
Sheets("Sheet1").Range("A1")→ 单元格的选择。
ActiveWorkbook.ActiveSheet.PrintPreview
把活动工作表打印预览
最后,我们来看第三个问题:
如何在关闭后,回到原始位置?
回到A1单元格就可以了
代码
Sheets("Sheet1").Range("A1").Select
END
领取专属 10元无门槛券
私享最新 技术干货