Погода: −4 °C
26.04−1...9переменная облачность, без осадков
27.042...12небольшая облачность, без осадков
  • Для екселя нужно вставить в список диапазон значений
    Пишу Rage2.Range("B11").Value = "=R"+число(значение1)+"C1"+":R"+число("Значение2")+"C1";
    где значения вычесляются
    Не получается.

    Проверить и внести значения можно интерактивно
    в Данные-проверка-источник.

    пробовал еще так
    Page2.Range"=R"+число(значение1)+"C1"+":R"+число("Значение2")+"C1).Select(); Page2.Selection.Name="Название";
    ругается на Selection - типа нет такого объекта.
    В книге "VBA" гарнаева нифига не написано.

    Quod principi placuit, legis habet vigorem

  • В ответ на: Проверить и внести значения можно интерактивно
    ну так и внесите, предварительно запустив запись макроса :ухмылка:

    "Самый мудрый внешне во всём подобен самому глупому", народная китайская мудрость.

  • так макроса нет.
    макрос обязательно писать?
    или каким -нить другим образом можно в список внести?

    Quod principi placuit, legis habet vigorem

  • Запускаете запись макроса, вносите в ячейку нужную формулу, останавливаете запись. Смотрите какой макрос образовался и из него берете формулу.

    "Сервис, макрос, начать запись"
    "alt+f11" - посмотреть какой модуль с макросом записался.

    "Самый мудрый внешне во всём подобен самому глупому", народная китайская мудрость.

  • сделал
    Ex.Range("B11").Validation.Delete();
    Ex.Range("B11").Validation.Add(3,1,1,"=R"+сокрЛП(число(Номерячейки1))+"C1:R"+сокрЛП(число(Номерячейки2))+"C1","");
    Ex.Range("B11").Validation.IgnoreBlank = 1;
    Ex.Range("B11").Validation.InCellDropdown = 1;
    Ex.Range("B11").Validation.ShowInput = 1;

    Quod principi placuit, legis habet vigorem

  • теперь можите использовать этот кусок как есть в программе vba или модифицировать по вкусу.

    "Самый мудрый внешне во всём подобен самому глупому", народная китайская мудрость.

Записей на странице:

Перейти в форум

Модератор: