Потеря количества единиц при автоматизации

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Потеря количества единиц при автоматизации - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Потеря количества единиц при автоматизации (Макросы/Sub)

Потеря количества единиц при автоматизации

ant6729

Дата: Понедельник, 19.02.2018, 16:47 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Всем привет, не могу понять такой подставной момент...

При выполнении в ручном режим ctrl h заменить . на , значение 7,5
При выполнении в автоматизированном (макрорекодером записанное) 75 000

Пример приложил.

Надо вообще 7,5

К сообщению приложен файл: _Microsoft_Offi.xlsm (16.7 Kb)

Ответить

sboy

Дата: Понедельник, 19.02.2018, 16:54 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Попробуйте не заменой, а "текст по столбцам"
[vba]

Код

Sub qwerty()
Range("A:A").TextToColumns Destination:=Range("A1"), DecimalSeparator:="."
End Sub

[/vba]
[p.s.]Заодно и текст в числа превратится

К сообщению приложен файл: 5370897.xlsm (18.6 Kb)

Яндекс: 410016850021169

Сообщение отредактировал sboy - Понедельник, 19.02.2018, 16:57

Ответить

RAN

Дата: Понедельник, 19.02.2018, 17:23 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

   Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

ant6729

Дата: Понедельник, 19.02.2018, 17:54 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Да, спасибо!

Ответить

Потеря количества единиц при автоматизации (Макросы/Sub)

Страница 1 из 1
1