Формула в УФ макросом не подстраивается под локаль (рус,eng)

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

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

skais

Дата: Пятница, 16.06.2017, 23:53 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 236

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

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

Excel 2010

При вставке макросом формулы в УФ на английском языке, формула не подстраивается под русскую локаль и наоборот.
Я создал пример, в котором макрос записывает две формулы на русском и английском языках. Однако, работает каждая только для своей локали.
Как же сделать так, чтоб ввод формулы был универсальным и работал на любой локали. При вводе просто формулы в ячейку таких проблем не возникает, а вот при вводе для УФ - проблема.

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

Ответить

_Boroda_

Дата: Суббота, 17.06.2017, 00:53 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

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

Замечаний: ±

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

Ответить

skais

Дата: Суббота, 17.06.2017, 10:52 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 236

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

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

Excel 2010

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

Сообщение отредактировал skais - Суббота, 17.06.2017, 13:24

Ответить

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

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