ComboBox глючит
Дело в следующем: из списка значение в комбобокс вставляется то числом (с запятой), то текстом (с точкой). От чего это зависит я так и не понял,но не от языка ввода.
Приходится извращатся,
PowerFan = ComboBoxFan
For Each cell In Range("Fan")
If PowerFan = Trim(Str(cell)) Or Val(PowerFan) = Fix(cell) Then
PowerFan = cell
End If
Next
Ecли кто знает в чем проблема буду очень и весьма...
Приходится извращатся,
PowerFan = ComboBoxFan
For Each cell In Range("Fan")
If PowerFan = Trim(Str(cell)) Or Val(PowerFan) = Fix(cell) Then
PowerFan = cell
End If
Next
Ecли кто знает в чем проблема буду очень и весьма...
Попробуй делать Format перед тем, как вставить
прошу прощения, но [COLOR=blue]insane88[/COLOR][COLOR=black] прав, в любом случае тебе надо при заполнении комбобокса надо делать Формат[/COLOR]
Dim Gross As Double
Gross = 3256.025
combWeight.AddItem Format(Gross, "#####0.000") & " тонн"
вышеуказанным способом, я когда-то заполнял комбобокс массой брутто
Dim Gross As Double
Gross = 3256.025
combWeight.AddItem Format(Gross, "#####0.000") & " тонн"
вышеуказанным способом, я когда-то заполнял комбобокс массой брутто