问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501
你好,欢迎来到懂视!登录注册
当前位置: 首页 - 正文

excel添加按钮打印和每次打印数值都会加1,如F3数值是003,没点一次打印+...

发布网友 发布时间:2024-07-02 11:55

我来回答

1个回答

热心网友 时间:2024-10-10 00:59

点击A1单元格时执行打印命令,
B2单元格为打印编号,B2单元格格式要设置下否则前面的0会自动消除掉,设置方法:设B2单元格格式,自定义,输入000后确定。
首先在弹出的对话框内输入要打印的份数,确认后打印
复制如下内容到sheet1中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then '单击A1单元格执行如下内容
'前面一个1为列号,后面一个1为行号,更改相应数字后,点相应单元格执行以下内容
Dim x, y As Integer
x = InputBox("输入打印份数")
y = Range("b2")
For i = 1 To x
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("b2") = y + 1
Next
End If
End Sub

热心网友 时间:2024-10-10 01:01

点击A1单元格时执行打印命令,
B2单元格为打印编号,B2单元格格式要设置下否则前面的0会自动消除掉,设置方法:设B2单元格格式,自定义,输入000后确定。
首先在弹出的对话框内输入要打印的份数,确认后打印
复制如下内容到sheet1中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then '单击A1单元格执行如下内容
'前面一个1为列号,后面一个1为行号,更改相应数字后,点相应单元格执行以下内容
Dim x, y As Integer
x = InputBox("输入打印份数")
y = Range("b2")
For i = 1 To x
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("b2") = y + 1
Next
End If
End Sub

热心网友 时间:2024-10-10 01:04

点击A1单元格时执行打印命令,
B2单元格为打印编号,B2单元格格式要设置下否则前面的0会自动消除掉,设置方法:设B2单元格格式,自定义,输入000后确定。
首先在弹出的对话框内输入要打印的份数,确认后打印
复制如下内容到sheet1中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then '单击A1单元格执行如下内容
'前面一个1为列号,后面一个1为行号,更改相应数字后,点相应单元格执行以下内容
Dim x, y As Integer
x = InputBox("输入打印份数")
y = Range("b2")
For i = 1 To x
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("b2") = y + 1
Next
End If
End Sub
声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
2024年农历四月初六出生龙宝宝八字命格如何今日出生最旺的名字合集_百... 电业局三院划片属不属于文轩校区? div和table和DIV之间的距离怎么控制?还有DIV的层。。。就是他们之间的... div中有个table如何让他们缩放一致? 环氧玻璃鳞片涂料价格举例厂家信息说明 饿了么送餐员的工作时间是怎样的 饿了么预订单配送规则 吃了山药舌头麻麻的是怎么回事 植物为什么需要化肥 农作物晚上还生长吗吸收养分吗 妈妈胃切掉1/4很瘦很瘦还能活多少年? 甘肃陇西房价怎么样。买那种房子好。谢谢 药流后吃什么消炎药比较好 有什么好的交友app推荐 写歌怎么写出自己的旋律 我看了很多歌词 好像都附带自己的旋律不用曲... ...自己写了几句歌词觉得还不错、 可是不知道要配什么样的旋律额... 吉他 单音旋律怎么写出来 产后如何正确清洁伤口周围的皮肤,避免感染? 在南宁骑摩托车怎么入户? 可以设置政法委员会的党组织不包括什么? 可以设置政法委员会的党组织不包括是 一道关于log的题目帮忙解一下~~~ 问2个关于log的题目求大神指导 求解答下面所有Log题目的详细解答过程。。求大神 212分等于( )小时( )分 请回答高中log类题目,(填空题): 数学题目不会,求步骤求解 小米 能去腾讯吗 腾讯真会投资小米吗? 腾讯做智能硬件盟主,小米会如何应对? 厦门飞娱盈禾文化传媒有限公司怎么样? 曲靖公司注册:创业干货海外开公司全流程 曲靖注册公司:创业开始首先你要知道怎么注册公司 从贵港市要去哪里坐车到广州市天河区?要多少钱? 曲靖公司注册:创业干货注册各类公司的经营范围怎么写 贵港市樟木乡 长途车到广州的有么?? 贵港到广州要多长时间? 心理专家:孩子偏爱这种颜色,很可能出现问题?父母:难以想象 下列属于项目董事会职权的有( )。 董事会的职权包括哪些? 在有限责任公司中,下列属于董事会职权的有()。 请问8口100M自适应以太网交换机tl~sf1008+交换机可以不用猫或者路由器... 孩子喜欢的颜色暗示将来性格,偏爱这类颜色家长要留心,警惕 樱桃树花期管理技术 大数据云计算适合什么人群? 全站仪误差范围 大樱桃现在是盛花期了坐果不好,还能打保花保果的药吗,用什么样的... ...定位精度:平面±(2cm+1ppm),垂直±(3cm+1ppm)"中PPM是什么意思 跪求暗黑3 传奇物品掉落的“当”那个声音的铃声,想当短信。邮箱cl... 哪些英文字母是希腊字母的读法?
  • 焦点

热门图文

猜你喜欢