工程资源管理器
第二步,在sheet1上双击,然后在右侧的空白区粘贴如下代码。
Sub Macro1()
ActiveWindow.SelectedSheets.PrintOut Copies:=2
Range("C4:F20").ClearContents
End Sub
第三步,在sheet中插入一个图形,然后右击这个图形,选择指定宏,指定为刚才的macro1。
这样就可以实现点击图形,实现打印双份,清空C4:f12的目的了。
使用range对象可以达到你的目的具体你可以查找相关资料或者到我的主页下载一个Demo看看就知道了
看看我的程序示例,有什么不明白再问我
Public Sub aaa()
With ThisWorkbook.Sheets("Sheet1") '指定工作表"sheet1"
.Range("A1:AZ300").ClearContents '清除A1~AZ300的数据
.Range("A1:A2").Merge 'A1单元格跟A2合并
.Cells(1, 1).Value = "人民" '在A1中输入数据
End With
End Sub
选中你那些待清零的单元格区域(不相邻单元格可以用Ctrl键选中),点菜单的工具,宏,录制宏,定义快捷键,确定;按删除键;
停止录制。
这样你就有了
一键
清零的快捷键了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)