Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Потеря количества единиц при автоматизации (Макросы/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)
 
Ответить
СообщениеВсем привет, не могу понять такой подставной момент...

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

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

Надо вообще 7,5
Автор - ant6729
Дата добавления - 19.02.2018 в 16:47
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
 
Ответить
СообщениеДобрый день.
Попробуйте не заменой, а "текст по столбцам"
[vba]
Код
Sub qwerty()
    Range("A:A").TextToColumns Destination:=Range("A1"), DecimalSeparator:="."
End Sub
[/vba]
[p.s.]Заодно и текст в числа превратится
Автор - sboy
Дата добавления - 19.02.2018 в 16:54
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]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
   Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
[/vba]
Автор - RAN
Дата добавления - 19.02.2018 в 17:23
ant6729 Дата: Понедельник, 19.02.2018, 17:54 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Да, спасибо!
 
Ответить
СообщениеДа, спасибо!
Автор - ant6729
Дата добавления - 19.02.2018 в 17:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Потеря количества единиц при автоматизации (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!