主页 / 问题 / 877655
Accepted
Sanvirtus
Asked:2020-09-05 17:13:50 +0000 UTC2020-09-05 17:13:50 +0000 UTC

如何将数字与点相乘和将数字与逗号相乘？

  • 772

有excel一个文档将浮点数存储在单元格中。我正在尝试计算它们，但出现“类型不匹配”错误：

“运行时错误‘13’：类型不匹配”。

例如，单元格包含以下数据：

A1: 1,00    B1: 25,17
A2: 3,00    B2: 133.67

我试图这样计算这些数字：

Dim Count        As Double
Dim Cost         As Double
Dim Summ         As Double

For i = 1 To LastRowOpenDbfSheet (Цикл с первой до последней строки в документе)
    Count = sheetOpenDbf.Cells(i, 12)        // Так не работает
    Count = sheetOpenDbf.Cells(i, 12).Value  // Так не работает
    Count = CDbl(sheetOpenDbf.Cells(i, 12))  // Так не работает

那么这些数字Count，Cost需要相乘。要指定的正确数据类型是什么以及如何读取单元格中的值以使其工作，然后您可以将数字相乘？

excel

2 个回答

  1. Best Answer

    “数字”带有点 - 文本，在使用此类数据进行数学运算时会出现错误。有必要将数据转换为单一类型。

    Sub Sum_()
Dim aData()
Dim dSum As Double
Dim i As Long
    With ActiveSheet ' если нужно, указать другой лист'
        i = .Cells(.Rows.count, 1).End(xlUp).Row
        aData = .Range("A1:B" & i).Value

        For i = 1 To UBound(aData)
            aData(i, 1) = Replace(aData(i, 1), ".", ",")
            aData(i, 2) = Replace(aData(i, 2), ".", ",")
            dSum = dSum + aData(i, 1) * aData(i, 2)
        Next i

        .Cells(1, 3).Value = dSum
    End With
End Sub

    以相同的格式存储数据更正确。

    选择数据范围，，Ctrl+H查找点，用逗号替换，确定。

    对于普通数据，不需要宏：

    =СУММПРОИЗВ(A1:A100;B1:B100)
    • 1

  2. 使用基本类型（数字、字符串等）时，即 赋值时，不使用 set。需要 Set 才能将标识符分配给类对象。那些。在您的情况下，它将是：

    Dim Count As Double  
Dim Cost As Double  
Dim Summ As Double
Dim i as integer

For i = 1 To LastRowOpenDbfSheet
   Count = sheetOpenDbf.Cells(i, 12)        
   Count = sheetOpenDbf.Cells(i, 12).Value  
   Count = CDbl(sheetOpenDbf.Cells(i, 12))  
Next i
    • 0

相关问题