表格最后一行签字审核，随着表格行数增减变动

还是有点纠结 · 发表于 2023-3-18 08:42

原来：每页最后一行手动添加“审批”这个字内容。

改变后：每页的最后一行自动有“审批签字”的内容，如果遇到表格不是整张的，则在有内容的下一行显示“审批签字"内容。

3190496160 · 发表于 2023-3-18 09:27

在页面设置的设置页脚就行了吧

HSIAOQIANG · 发表于 2023-3-18 12:51

Sub MY()
Application.ScreenUpdating = False
Dim I As Integer
I = ActiveSheet.UsedRange.Rows.Count
Cells(I + 1, 1) = "制表:"
Cells(I + 1, 4) = "審批:"
Cells(I + 1, 6) = "總經理審批:"
Application.ScreenUpdating = True
End Sub

HSIAOQIANG · 发表于 2023-3-18 12:52

請看代碼,用VBA就行

还是有点纠结 · 发表于 2023-3-18 14:25

HSIAOQIANG 发表于 2023-3-18 12:52
請看代碼,用VBA就行

抱歉啊，我也觉得用代码能够实现，，可是用啥代码，求大神指教

还是有点纠结 · 发表于 2023-3-18 14:26

3190496160 发表于 2023-3-18 09:27
在页面设置的设置页脚就行了吧

页脚的话，如果最后一夜不是整张的话，签字的地方也是在最下面，不是在内容的下一行。

HSIAOQIANG · 发表于 2023-3-19 12:21

还是有点纠结发表于 2023-3-18 14:25
抱歉啊，我也觉得用代码能够实现，，可是用啥代码，求大神指教

你不看我上面的回復嗎？

sobili · 发表于 2023-3-19 20:09

做成超级表试试。

销售出库单_2023031.rar (14.28 KB, 下载次数: 18)

Away. · 发表于 2023-3-19 21:35

制表=IFERROR(OFFSET(A2,FIND("合计",A2)+1,0,1,1),"制表：")
审批=IFERROR(OFFSET(A2,FIND("合计",A2)+1,3,1,1),"审批：")
总经理审批=IFERROR(OFFSET(A2,FIND("合计",A2)+1,5,1,1),"总经理审批：")

还是有点纠结 · 发表于 2023-3-20 10:13

sobili 发表于 2023-3-19 20:09
做成超级表试试。

感谢感谢，我这就去试试

		自动登录	找回密码
密码			免费注册

[求助] 表格最后一行签字审核，随着表格行数增减变动