Question

我在VBA中编写了一个函数，用于计算销售订单的预定义汇率。但是我忘了将计算的金额除以项目数量。我使用CDbl函数来选择值行并将其除以相应的项目数量。当只有一行但没有多行时它可以工作吗？

任何人都可以提供解决方案，代码如下，谢谢！只是澄清 - 范围（＆＃34; V / U / W19＆＃34;）是定义汇率的区域。

With Sheets("Paste Orders Here")
    lr = .Cells(.Rows.Count, "L").End(xlUp).Row
    For r = 2 To lr
        Select Case UCase(.Cells(r, "K").Value)
            Case "USD"
                Sheets("Brightpearl").Cells(r, "G") = _
                  CDbl(.Cells(r, "L").Value * Sheets("Configuration").Range("V19").Value)
            Case "EUR"
                Sheets("Brightpearl").Cells(r, "G") = _
                  CDbl(.Cells(r, "L").Value * Sheets("Configuration").Range("U19").Value)
            Case "GBP"
                Sheets("Brightpearl").Cells(r, "G") = _
                  CDbl(.Cells(r, "L").Value * Sheets("Configuration").Range("W19").Value)
        End Select
    Next r
End With

With Sheets("Brightpearl")
    lr = .Cells(.Rows.Count, "G").End(xlUp).Row
    For r = 2 To lr
        Sheets("Brightpearl").Cells(r, "G") = _
            CDbl(.Cells(r, "G").Value / Cells(r, "F").Value)
    Next r
End With

Answer 1

除非是拼写错误，否则您需要在第二次引用细胞之前添加句号

CDbl（.Cells（r，“G”）。值/ 单元格（r，“F”） .Value）

将几个值除以整行VBA Excel

1 个答案: