如何写这样的代码

hbhs2022 · 发表于 2023-6-4 08:45

本帖最后由 hbhs2022 于 2023-6-5 15:38 编辑

表格数据统计用函数制作，如何用VBA代码制作？

表格里面有说明。

吴中泉 · 发表于 2023-6-4 17:21

如果用纯用代码计算比较繁杂
若可以用代码在相应的单元格填写楼主提供的公式，还是比较容易的

hbhs2022 · 发表于 2023-6-4 18:11

我自己试写了一个和值代码。其它的不会写，如果你会写其它的，可以分开写，我再加进去。
Sub test()
Dim lastRow As Long
Dim i As Long
lastRow = Cells(Rows.Count, 4).End(xlUp).Row
For i = 3 To lastRow
Cells(i, 11) = Cells(i, 4) + Cells(i, 5) + Cells(i, 6) + Cells(i, 7) + Cells(i, 8)
Next
End Sub

吴中泉 · 发表于 2023-6-4 20:29

hbhs2022 发表于 2023-6-4 18:11
我自己试写了一个和值代码。其它的不会写，如果你会写其它的，可以分开写，我再加进去。
Sub test()
...

利用VBA在单元格填写公式，变向实现，从起不要在单元格逐一（拉拽）填充公式了，也不怕误删了公式，
如果误删了，点一下刷新公式按钮即可。

吴中泉 · 发表于 2023-6-4 20:33

hbhs2022 发表于 2023-6-4 18:11
我自己试写了一个和值代码。其它的不会写，如果你会写其它的，可以分开写，我再加进去。
Sub test()
...

图表.rar (262.14 KB, 下载次数: 8)

吴中泉 · 发表于 2023-6-4 20:41

hbhs2022 发表于 2023-6-4 18:11
我自己试写了一个和值代码。其它的不会写，如果你会写其它的，可以分开写，我再加进去。
Sub test()
...

你这样直接操作单元格对象写代码，运行会很慢的，这只是简单的求和，还有后面六列，计算比较复杂，计算量大，所以不难想象完成一次计算可能要几十秒。

hbhs2022 · 发表于 2023-6-4 21:08

吴中泉发表于 2023-6-4 20:41
你这样直接操作单元格对象写代码，运行会很慢的，这只是简单的求和，还有后面六列，计算比较复杂，计算量 ...

谢谢你！这好像是录宏，如果行数很多，不是要修改宏代码。

吴中泉 · 发表于 2023-6-5 08:35

hbhs2022 发表于 2023-6-4 21:08
谢谢你！这好像是录宏，如果行数很多，不是要修改宏代码。

这与录宏是有区别的,如图解释,等会修改一下,让它自动识别你输入的行数.

吴中泉 · 发表于 2023-6-5 08:49

hbhs2022 发表于 2023-6-4 21:08
谢谢你！这好像是录宏，如果行数很多，不是要修改宏代码。

这个附件里代码能自动识别你输入的行数,你只管往里输入数据即可

图表.zip (234.76 KB, 下载次数: 6)

吴中泉 · 发表于 2023-6-5 10:26

hbhs2022 发表于 2023-6-4 21:08
谢谢你！这好像是录宏，如果行数很多，不是要修改宏代码。

好的,又弄了一个VBA代码,应该不算录宏吧

详见附件

图表.zip (155.23 KB, 下载次数: 4)

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

[已解决] 如何写这样的代码