溜溜问答 > 日常办公 > Excel > Excel中怎样插入'固定格式'的行?
高傑西
高傑西
邀请你来回答
106人阅读 2022-04-06

Excel中怎样插入'固定格式'的行?

我有一个200个客户销售表的工作簿,我想问的是:无论在那个工作表中,只要我完成了一笔销售,就在下面插入一事先设置好的行,用以对这次销售进行'小计'汇总,怎样点击一个'按钮'就完成这个插入的操作,请用宏。销售表:a2:日期;b2:配件;c2:销售标记;d2:销售属性;e2:数量;f2:单价;g2:金额;h2:备注;i2:序号。插入行:占两行,a至i列(设本次销售了10种配件)a12与a13“合并单元格”并输入“小计”b12:“未收款”,b13是“未收款”的值(公式=g13-d13-c13);c12:“已收款”,c12是“已收款”的值;d12与e12设置格式为“跨列居中”并输入“去零金额”,d13与e13也“跨列居中”并设置“条件格式”只有f13的“付款方式”为“现金”才可以去零;f12:'付款方式',f13:“序列”-“现金,挂帐,分期”;g12:“应收款”,g14'应收款'的值(在插入后该行后,对本次销售的“金额”进行“小计”。我用过录制的宏,很不方便。请您给编辑一个宏。多谢了对不起,不是“条件格式”而是“数据有效性”
我要回答
1个回答

我的建议是,不要做什么按钮了,那还得一个一个去做,直接按Alt+F8执行下面的宏就行了。按Alt+F11,打开VBA编辑器,插入一个模块,把下面的代码贴进去,返回Excel按Alt+F8运行Subtotal即可实现。 可对应收款、未收款进行计算。QQ:99137479

Sub Subtotal()
Dim R As Integer
R = Selection.Row - 1
R1 = Cells(R, 1).End(xlUp).Row
Range(Cells(R + 1, 1), Cells(R + 1, 7)) = Array("小计", "未收款", "已收款", "去零金额", "", "付款方式", "应收款")
Range(Cells(R + 1, 1), Cells(R + 2, 1)).Merge
Range(Cells(R + 1, 1), Cells(R + 2, 7)).HorizontalAlignment = xlCenter
Range(Cells(R + 1, 1), Cells(R + 2, 7)).VerticalAlignment = xlCenter
Range(Cells(R + 1, 4), Cells(R + 2, 5)).Merge True
Cells(R + 2, 6).Validation.Delete
Cells(R + 2, 6).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="现金,挂帐,分期"
Cells(R + 2, 7).FormulaR1C1 = "=SUM(R" & R1 & "C:R[-2]C)"
Cells(R + 2, 2).FormulaR1C1 = "=RC7-RC4-RC3"
End Sub

查看全部
2022-04-06
回复 采纳

相关问题

怎样固定Excel行?
共2条回答 >
溜粉_285880: 首先选中需要固定的Excel行.在查看里面有个冻结窗格,即可。
回复
Excel中怎么固定一行不动?
共1条回答 >
PYL.: 你好!Excel中固定一行不动就是冻结窗格,先选中该行,然后点击工具栏上的视图-冻结窗格。
回复
Excel中任何一行怎么固定?
共1条回答 >
黛的还是你: 你想用的是冻结窗格吗?选中该行,点击视图菜单,找到中闷“冻结窗格”下拉箭头,再点击冻击拆分窗格。
回复
Excel如何在固定格式下插入数字?
共1条回答 >
莫名奇妙:滴「醉了」: 应用Excel某些单元格中需要输入固定格式的数据时,怎么办呢?我们利用“数据有效性”做成一个下拉列表,即可进行选择性输入。02选中需要建立下拉列表的单元格区域,执行“数据→有效性”命令,打开“数据有效性”对话框,在“设置”一栏下,按“允许”右侧的下拉按钮,在随后弹出的快捷菜单中,选择“序列”选项,然后在下面“来源”方框中输入序列的各元素(如“董事长”总经理,副总经理,销售主管,其他职位”等),按确定返回。03选中上述区域中某个单元格,在其右侧出现一个下拉按钮,点击此按钮,在随后出现的下拉列表中,....
(6) 回复
Excel如何固定行批量插入分页符?
共1条回答 >
Yxin👻: 1、我们打开一个Excel表格,鼠标点击想要进行分页的单元格,为了便于后期观察效果,我们将该单元格填充黄色。2、点击【页面布局】,在下拉菜单中选择【插入分页符】,再点击二级菜单中的【插入分页符】。3、此时我们可以看到,在单元格上方和左方各出现一条淡淡的实体虚线,与页面的自动分页符不一样。4、点击工具栏的【视图】,在下拉菜单中选择【分页预览】。5、这时候,我们可以看到页面已经被分成了四个部分。
(29) 回复
发表成功!
感谢您的分享!
好的
官方微信群

(微信添加“妙妙”或“笑笑”,邀您进群)