Добрый день!
Возникла следующая проблема. Я написал макрос, который вставляет в ячейку формулу путем VBA (делаю это макросом, поскольку у меня таких формул несколько и файл будет тяжелым, если они будут по умолчанию, а так макрос вставляет формулы и меняю затем их на значение).
Пример формулы в VBA следующий:
Вставляю формулу, затем перевожу ее в формат даты и меняю на значение. Поскольку используется функция СЦЕПИТЬ, то внутри формулы другие функции распознаются как текст, на русском языке. Возможно ли это как-то обойти? У кого-то из коллег стоит русская версия Excel, а у кого-то английская, необходимо, чтобы работало в обеих версиях.
Спасибо.
Возникла следующая проблема. Я написал макрос, который вставляет в ячейку формулу путем VBA (делаю это макросом, поскольку у меня таких формул несколько и файл будет тяжелым, если они будут по умолчанию, а так макрос вставляет формулы и меняю затем их на значение).
Пример формулы в VBA следующий:
Код |
---|
ActiveCell.FormulaR1C1 = _ "=CONCATENATE(""=ЕСЛИОШИБКА(ЕСЛИОШИБКА(ИНДЕКС('"",Ссылки!R7C5,""SI'!$BG:$BG;ПОИСКПОЗ("",R2C2,"";'"",Ссылки!R7C5,""SI'!$BH:$BH;0));ИНДЕКС('"",Ссылки!R6C5,""SI'!$BG:$BG;ПОИСКПОЗ("",R2C2,"";'"",Ссылки!R6C5,""SI'!$BH:$BH;0)));ИНДЕКС('"",Ссылки!R5C5,""SI'!$BG:$BG;ПОИСКПОЗ("",R2C2,"";'"",Ссылки!R5C5,""SI'!$BH:$BH;0)))"")" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False With Intersect(ActiveSheet.UsedRange, [B7:B7]) .NumberFormat = "dd/mm/yyyy" .HorizontalAlignment = xlCenter .FormulaLocal = .FormulaLocal End With Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False |
Спасибо.