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

Вход

Регистрация

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

 

= Мир MS Excel/Формула в УФ макросом не подстраивается под локаль (рус,eng) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Формула в УФ макросом не подстраивается под локаль (рус,eng) (Макросы/Sub)
Формула в УФ макросом не подстраивается под локаль (рус,eng)
skais Дата: Пятница, 16.06.2017, 23:53 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
При вставке макросом формулы в УФ на английском языке, формула не подстраивается под русскую локаль и наоборот.
Я создал пример, в котором макрос записывает две формулы на русском и английском языках. Однако, работает каждая только для своей локали.
Как же сделать так, чтоб ввод формулы был универсальным и работал на любой локали. При вводе просто формулы в ячейку таких проблем не возникает, а вот при вводе для УФ - проблема.
К сообщению приложен файл: 1302166.xlsm(18Kb)
 
Ответить
СообщениеПри вставке макросом формулы в УФ на английском языке, формула не подстраивается под русскую локаль и наоборот.
Я создал пример, в котором макрос записывает две формулы на русском и английском языках. Однако, работает каждая только для своей локали.
Как же сделать так, чтоб ввод формулы был универсальным и работал на любой локали. При вводе просто формулы в ячейку таких проблем не возникает, а вот при вводе для УФ - проблема.

Автор - skais
Дата добавления - 16.06.2017 в 23:53
_Boroda_ Дата: Суббота, 17.06.2017, 00:53 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11331
Репутация: 4677 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А если так?
[vba]
Код
Sub tt()
    With ActiveCell.SpecialCells(xlLastCell).Offset(1)
        .Formula = "=SUM(A1:C1)>0"
        f_ = .FormulaLocal
        .Clear
    End With
    With Range("D1").FormatConditions. _
        Add(xlExpression, , f_)
        .Interior.Color = vbYellow
    End With
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА если так?
[vba]
Код
Sub tt()
    With ActiveCell.SpecialCells(xlLastCell).Offset(1)
        .Formula = "=SUM(A1:C1)>0"
        f_ = .FormulaLocal
        .Clear
    End With
    With Range("D1").FormatConditions. _
        Add(xlExpression, , f_)
        .Interior.Color = vbYellow
    End With
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 17.06.2017 в 00:53
skais Дата: Суббота, 17.06.2017, 10:52 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Спасибо!
Предполагал такое решение, предполагал еще перевод формулы в макросе.
Странно, что MS не реализовал этот момент. Думал, возможно я как-то не так записываю формулу.


Сообщение отредактировал skais - Суббота, 17.06.2017, 13:24
 
Ответить
СообщениеСпасибо!
Предполагал такое решение, предполагал еще перевод формулы в макросе.
Странно, что MS не реализовал этот момент. Думал, возможно я как-то не так записываю формулу.

Автор - skais
Дата добавления - 17.06.2017 в 10:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Формула в УФ макросом не подстраивается под локаль (рус,eng) (Макросы/Sub)
Страница 1 из 11
Поиск:

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