【发布时间】:2022-08-07 15:41:33
【问题描述】:
我需要将一系列单元格与用户在表格中输入的值相乘。
因此,如果他们在单元格中输入年份“2017”,那么他们从该年份输入的值需要乘以 2017、2018 和 2019 的另一个数字。
他们输入的年份不同,但所有数字都需要一直乘到 2019 年。
这个想法是,当右侧的另一个表格添加到其他表格下方时,“2019 年价格”将自动计算。为了清楚起见,计算包含在屏幕截图的顶部。
我尝试创建一个 VBA 代码,但它只是将初始值与每个值单独相乘,而不是创建一个总数。
Sub calculate ()
ActiveCell.Offset(0,1).Select
Dim Cell As Range
For Each Cell In Range(\"F5:F24\")
If Cell.Value < Range(\"B7\").Value Then
ElseIf Cell.Value >= Range(\"B7\") Then
Cell.Offset(0,4).Value = Range(\"B8\") * Cell.Offset(0,1).Value
End If
Next Cell
End Sub
-
在我看来,你应该注意用户界面的设计。