excel 范围内数字的乘法

w7t8yxp5  于 2023-02-17  发布在  其他
关注(0)|答案(1)|浏览(169)

我有代码乘两个单元格范围从不同的工作表和地方的结果在另一个工作表。

Private Sub CommandButton1_Click()
Worksheets("Revenue").Range("A1").Value = "Year"
Worksheets("Revenue").Range("B1").Value = "Revenue"
Worksheets("Revenue").Range("A2:A12").Value = Worksheets("Price").Range("A2:A12").Value
Worksheets("Revenue").Range("B2:B12").Value = CDbl(Worksheets("Price").Range("B2:B12").Value) * CDbl(Worksheets("Demand").Range("B2:B12").Value)
End Sub

板材价格中的数字:

表中数字需求:

当我把它们相乘时,会得到一个失配误差。

t9aqgxwy

t9aqgxwy1#

使用工作表乘以相同大小的范围。评估

Private Sub CommandButton1_Click()
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    With wb.Worksheets("Revenue")
        .Range("A1").Value = "Year"
        .Range("B1").Value = "Revenue"
        .Range("A2:A12").Value = wb.Worksheets("Price").Range("A2:A12").Value
        .Range("B2:B12").Value = .Evaluate("Price!B2:B12*Demand!B2:B12")
    End With

End Sub

相关问题