对于下一个不匹配错误

Question

我目前正在尝试将一些数据转换成我想要的单位。只有两个单位，毫升和微米。组合框允许用户选择数据所在的单元。如果数据不在用户需要的单元中，则需要进行转换。

我试着检验一下：

现在的情况是，数据以毫秒为单位，我需要将其转换为微米。然而，它给出了第二个在线数据类型不匹配的错误：rngx.value = rngx.value / y。

Dim cx As range
Dim rng As range
Dim cy As range
Dim rngx As range
Const y As Double = 25.4
If unit <> Sheet1.ComboBox1.value Then '------> Data 1 
   If Sheet1.ComboBox1.value = " Mils" Then '---> from mils to microns 
     Set cx = Sheet9.range("E2", Sheet9.range("E2").End(xlDown))
     For Each rng In cx
     rng.value = rng.value * y
     Next rng
   Else
     Set cx = Sheet9.range("E2", Sheet9.range("E2").End(xlDown))'---> Microns to mils 
     For Each rng In cx
     rng.value = rng.value / y
     Next rng
   End If
End If

If unit <> Sheet1.ComboBox2.value Then '-------> Data 2 
   If Sheet1.ComboBox2.value = " Mils" Then'---> from mils to microns 
    Set cy = Sheet9.range("I2", Sheet9.range("I2").End(xlDown))
     For Each rngx In cy
     rngx.value = rngx.value * y
     Next rngx
  Else
    Set cy = Sheet9.range("I2", Sheet9.range("I2").End(xlDown))'---> Microns to mils 
    For Each rngx In cy
     rngx.value = rngx.value / y
     Next rngx
  End If
End If

Answer 1

这个错误基本上意味着：变量或属性不是正确的类型。

例如，需要整数值的变量不能接受字符串值，除非可以将整个字符串识别为整数。

解决方案：

1)确保返回的所有值都是数字

2)确保返回的值中没有一个为"“<<字符串类型为空

这应该能解决你的问题