На главную
ПРАВИЛА 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 Кбайт, скачиваний: 16)
      Нет ли системной переменной или свойства 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,1124 ]   [ 16 queries used ]   [ Generated: 18.11.17, 12:02 GMT ]