Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » alenchikGru
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Упрощение формулы в Exel vba: избавиться от ссылок
 
#
28.03.2016 11:37:46
Спасибо! Очень помогло!  
Изменено: alenchikGru - 28.03.2016 11:46:44
 
Перейти    
Упрощение формулы в Exel vba: избавиться от ссылок
 
#
28.03.2016 11:15:20
Необходимо чтобы в D2 вместо "=C2/78" ставилось "=5*usd*12/78" , где C2 это "=5*usd*12"
Изменено: alenchikGru - 28.03.2016 11:23:49
 
Перейти    
Упрощение формулы в Exel vba: избавиться от ссылок
 
#
28.03.2016 10:48:39
Здравствуйте!

Буду очень благодарна, если кто-то сможет помочь... Есть ли какая то возможность, упростить формулу таким образом, чтобы в ней остались только цифровые значения + имя ячейки из диспетчера имен? Необходимо избавиться от ссылок на другие ячейки, кроме именованных ячеек, т.е. вместо "C5/78" должно остаться значение из ячейки C5 "5*usd*12"  -  "5*usd*12/78"
Изменено: alenchikGru - 28.03.2016 11:17:11
 
Перейти    
Проверка есть ли диапазон с указанным именем, Проверка есть ли диапазон с указанным именем
 
#
27.05.2015 16:33:06
Спасибо!Работает!
 
Перейти    
Проверка есть ли диапазон с указанным именем, Проверка есть ли диапазон с указанным именем
 
#
27.05.2015 15:58:19
Здравствуйте! Каким образом можно проверить есть ли диапазон, например, с именем diap_rub в книге и если нет - создать его.
 
Перейти    
Добавление ячеек в именованный диапазон
 
#
30.03.2015 12:07:59
Пытливый, получилось, спасибо!

SanjaТак он вместо старого диапазона пишет новый, а не добавляет к нему новые значения.
 
Перейти    
Добавление ячеек в именованный диапазон
 
#
30.03.2015 11:31:52
меня задача пройти все ячейки листа Ексель,  в поиске определенных флагов, и значения между этими флагами записать в диапазоны. Заранее не известно количество этих флагов. Цикл организую
Код
 If ((flag1r > 0) And (flag2 > 0) + flag1r < flag2) Then

      Sheets(shab).Names.Add _
        Name:="diap1", _
        RefersTo:=Range(Cells(flag1r, 4), Cells(flag2, 4))
  
        flag1r = 0
        End If
и мне надо чтобы было как то типа:
RefersTo:=Range("diap1" & Cells(flag1r, 4), Cells(flag2, 4))

Но компилятор выдает ошибку.  
Изменено: alenchikGru - 30.03.2015 13:36:29
 
Перейти    
Добавление ячеек в именованный диапазон
 
#
30.03.2015 10:22:54
Есть определенный именованный диапазон. Необходимо в этот диапазон добавить следующий диапазон, в котором известны адрес первой и последней ячейки. Подскажите как это можно сделать. количество строк в диапазоне diap1 может изменяться, поэтому должна быть привязка к имени, а не к адресам ячеек.
 
Перейти    
Объединение ячеек между нужными значениями в диапазон
 
#
26.03.2015 17:13:20
Есть таблица, в ней в четвертом столбце стоят флаги, обозначающие валюты - рубли, доллары и евро
Надо ячейки между 1euro и любой другой знаковой переменной (1usd, 1 euro) поместить в диапазон - diap_eur, между 1rub и другим флагом в диапазон diap_rub, между 1usd и другим флагом в диапазон diap_usd.

1.Не понимаю саму логику цикла, который надо построить, после 2валюта сразу уходит не туда...
2.Как в имеющийся названный диапазон добавить еще один диапазон?
Изменено: alenchikGru - 26.03.2015 17:18:07
 
Перейти    
Добавление в выбранный диапазон ячеек умножения на переменную
 
#
30.12.2014 22:48:01
Цитата
Alexander88 пишет: c.FormulaLocal = "=euro*" & c.Value
Работает! Большое спасибо!
 
Перейти    
Добавление в выбранный диапазон ячеек умножения на переменную
 
#
30.12.2014 22:32:38
Прицепила, оставила закоментированные строки на всякий случай (или только "чистый" надо было оставить?)
 
Перейти    
Добавление в выбранный диапазон ячеек умножения на переменную
 
#
30.12.2014 22:19:52
Необходимо в выбранный диапазон ячеек добавить умножение на переменную 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
Наверх