В тексте файла есть число 252525.00 и оно выделено. Если использовать вот такой макрос, то отбрасываются нули после точки, т.е. число становится не 252525,00, а 252525.
Каким образом можно оставить нули (не отбрасывать их)?
Пробовал Format и FormatNumber не помогло.
Макрос
Sub test()
Dim Число_С_Точкой As Double
Число_С_Точкой = Replace(Selection.Text, ".", ",") 'Записываем значение и меняем точку на запятую (иначе ошибка)
MsgBox (Число_С_Точкой)
End Sub
У переменной "Число_С_Точкой" тип данных "Double", в такую переменную нельзя записать дробное число, у которого только нули после запятой. Так запрограммировано.
Оформлять данные нужно перед вставкой (куда вы планировали эти данные вставить).
Или не используйте тип данных "Double", а используйте тип данных "String" или "Variant".
Спасибо. Я Вас понял.