Приветствую!
Прошу помочь с макросом.
Необходимо к числовому значению ячейки добавить единицы измерения (могут принимать разное значение) с сохранением возможности работать с данными ячейки как с числом.
Попробовал создавать пользовательский формат с переменной textPart:
targetCell.NumberFormat = " 0 " & "" & textPart & ""

но в случае когда "textPart" принимает значение со знаком деления (например км/ч) возникает ошибка "Нельзя установить свойство NumberFormat класса Range".
Как я понимаю, итогом выполнения макроса должен быть новый формат вида 0 "км/ч"

Добрый день.
Подскажите как решить задачу :
В ячейку А1 копируются данные в числовом формате. Количество знаков после запятой может быть от нуля до 4.

Определить число десятичных знаков в формате ячейки А1 и на его основании округлять значения в ячейках B2 и С2, т.е.
если формат ячейки А1 "0,0" - число десятичных знаков - 1, в ячейки В2 и С2 вставляем формулу =ОКРУГЛВВЕРХ(B2;1) и =ОКРУГЛВВЕРХ(С2;1) соответственно;
если А1 "0,00" - число десятичных знаков - 2...

Доброго времени суток! Прошу помочь разобраться с синтаксисом.
Нужен макрос вставляющий формулу по "склейке" данных из нескольких ячеек, адреса которых зависят от переменной "page"
[РЗ.xlsx]Лист1!R" & page * 5 + 5,
[РЗ.xlsx]Лист1!R" & page * 5 + 10
Пробовал таким образом:


Range("b1").Select
       ActiveCell.Formula = "= ""Протокол №"" &AF29 & "" дата калибровки "" & [РЗ.xlsx]Лист1!R" & page * 5 + 5 " & [РЗ.xlsx]Лист1!R" & page * 5 + 10


но выдает сообщение "Expected: end of statement

Доброго дня! Есть файл базы данных "Рабочие записи" и файл "протоколы" с множеством однотипных листов. Каждый лист протокола через номер листа связан ссылками с соответствующим диапазоном "Рабочих записей". При создании нового листа протокола приходиться корректировать ссылки.

Вопрос как с помощью макроса вставлять ссылки с уже вычисленным адресом?
По условию нужны именно формулы для возможности в последующем проверки.

Думаю должно быть что то в таком виде:
Range("A7").Select
   ActiveCell.FormulaR1C1 = "='[Рабочие записи.xlsx]Лист1'!R14C "номер листа протокола"
Range("B9").Select
   ActiveCell.FormulaR1C1 = "='[Рабочие записи.xlsx]Лист1'!R15C "номер листа протокола *20+1"
Где "номер листа протокола" - переменная берущая значения из ячейки на листе протокола, или ячейка с номером листа.
Заранее благодарен.