填充函数公式

ddz79101 · 发表于 2024-1-23 10:42

老师！我希望在表格中的涂色行和列位置填充函数公式，便于后续。望老师指点

838225419 · 发表于 2024-1-23 11:05

本帖最后由 838225419 于 2024-1-23 11:06 编辑

不懂，表中不是有公式吗？

ddz79101 · 发表于 2024-1-23 11:21

838225419 发表于 2024-1-23 11:05
不懂，表中不是有公式吗？

原了无公式，希望通过VBA填充公式

ddz79101 · 发表于 2024-1-23 11:40

ddz79101 发表于 2024-1-23 11:21
原了无公式，希望通过VBA填充公式

关键是行不固定，
z = Cells(Rows.Count, "b").End(3).Row
Range("D2:d" & z).FormulaR1C1 = "=SUM(R[-z]C:R[-1]C)"
出错
请老师帮忙看看

ddz79101 · 发表于 2024-1-23 12:02

ddz79101 发表于 2024-1-23 11:21
原了无公式，希望通过VBA填充公式

此问题遇到的难题是行不固定，如何填充函数公式

huarong7984 · 发表于 2024-1-23 13:08

建议：录个宏，不就解决了？

ddz79101 · 发表于 2024-1-23 13:12

huarong7984 发表于 2024-1-23 13:08
建议：录个宏，不就解决了？

录了宏了，但因为行不固定，设置了变量，通不过

WRB200412 · 发表于 2024-1-23 14:02

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i
i = Sheet1.[b1000].End(xlUp).Row
For j = 2 To i

Cells(j, "k") = Cells(j, "d") - WorksheetFunction.Sum(Range(Cells(j, "e"), Cells(j, "i")))
Cells(j, "n") = Cells(j, "j") - Cells(j, "m")
Next
End Sub
试试！

WRB200412 · 发表于 2024-1-23 14:05

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i
i = Sheet1.[b1000].End(xlUp).Row
For j = 2 To i

Cells(j, "k") = Cells(j, "d") - WorksheetFunction.Sum(Range(Cells(j, "e"), Cells(j, "i")))
Cells(j, "n") = Cells(j, "j") - Cells(j, "m")
Next
End Sub

ddz79101 · 发表于 2024-1-23 14:07

ddz79101 发表于 2024-1-23 13:12
录了宏了，但因为行不固定，设置了变量，通不过

再上传,请老师看看！

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

[求助] 填充函数公式