Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Упрощение формулы в Exel vba: избавиться от ссылок
 
Здравствуйте!

Буду очень благодарна, если кто-то сможет помочь... Есть ли какая то возможность, упростить формулу таким образом, чтобы в ней остались только цифровые значения + имя ячейки из диспетчера имен? Необходимо избавиться от ссылок на другие ячейки, кроме именованных ячеек, т.е. вместо "C5/78" должно остаться значение из ячейки C5 "5*usd*12"  -  "5*usd*12/78"
Изменено: alenchikGru - 28.03.2016 11:17:11
Проверка есть ли диапазон с указанным именем, Проверка есть ли диапазон с указанным именем
 
Здравствуйте! Каким образом можно проверить есть ли диапазон, например, с именем diap_rub в книге и если нет - создать его.
Добавление ячеек в именованный диапазон
 
Есть определенный именованный диапазон. Необходимо в этот диапазон добавить следующий диапазон, в котором известны адрес первой и последней ячейки. Подскажите как это можно сделать. количество строк в диапазоне diap1 может изменяться, поэтому должна быть привязка к имени, а не к адресам ячеек.
Объединение ячеек между нужными значениями в диапазон
 
Есть таблица, в ней в четвертом столбце стоят флаги, обозначающие валюты - рубли, доллары и евро
Надо ячейки между 1euro и любой другой знаковой переменной (1usd, 1 euro) поместить в диапазон - diap_eur, между 1rub и другим флагом в диапазон diap_rub, между 1usd и другим флагом в диапазон diap_usd.

1.Не понимаю саму логику цикла, который надо построить, после 2валюта сразу уходит не туда...
2.Как в имеющийся названный диапазон добавить еще один диапазон?
Изменено: alenchikGru - 26.03.2015 17:18:07
Добавление в выбранный диапазон ячеек умножения на переменную
 
Необходимо в выбранный диапазон ячеек добавить умножение на переменную EURO. Если в ячейке стоит переменная типа INT или число с "." точкой - цикл проходит без проблем. Если переменная типа Double - выходят ошибка
Run-time error '1004'
Код
Sub euro()
Dim ss As String
    Set diap = Selection

   For Each c In diap
         c.Value = "=euro*" & c.Value
   Next c
End Sub
Пробовала присваивать значение без "=" и потом заменять
Код
c.Replace What:="euro", Replacement:="=euro", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 - проходит без ошибок, но и не заменяет

c.FormulaR1C1 = ss
- выдает туже ошибку 1004
Заменяю "," на "."  - проходит без ошибок, но не меняет.
Помогите ценным советом.
Изменено: alenchikG - 31.12.2014 18:03:35
Страницы: 1
Наверх