На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение
Популярные разделы FAQ:    user posted image Общие вопросы    user posted image Особенности VBA-кода    user posted image Оптимизация VBA-кода    user posted image Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.
Модераторы: Old Bat, MIF
  
> Разделитель "." вместо ",", Разделитель "." вместо ","
Доброго времени суток. Ребят спасайте. Уже второй день ломаю голову, как поменять запятую на точку в числе. Пробовал менять форматы ячеек и на общий, и на числовой, и на текстовый. пробовал через свойства EXEL менять разделитель дробной части на точку. В EXEL разделитель меняется, но при экспорте в текстовый файл через макрос ставится запятая вместо точки. Я понимаю, что вопрос может и не стоит свеч, но я полный профан в написании макросов, а тут по работе пришлось... >:( >:( >:(
Файл с макросом ниже. Прошу сильно не бить. мое первое творение... :blush:
Прикреплённый файлПрикреплённый файлExport_txt.rar (24,82 Кбайт, скачиваний: 13)
Нет ли системной переменной или свойства DecimalSeparator?
Мне посоветовали использовать Replace к ячейкам. ответ
http://www.planetaexcel.ru/forum/index.php...t#message778335
Попробуй поменяй разделитель целой и дробной частей числа с запятой на точку в региональных настройках компьютера.
Мои религиозные убеждения не позволяют мне комментировать код.
Моё мировоззренье таково: в программе комментария ни одного!
ExpandedWrap disabled
    Sub bbb()
        Set sel = Selection
        For Each Rng In sel
            Rng.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Next
    End Sub
[А что Если… КонецЕсли]
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:


Рейтинг@Mail.ru
[ Script Execution time: 0,1003 ]   [ 21 queries used ]   [ Generated: 17.08.17, 13:50 GMT ]