3°C
завтра: 11°C
Погода в Перми
3°C
ночью0°C
утром5°C
завтра11°C
Подробно
 92,51
−0.7860
Курс USD ЦБ РФна 25 апреля
92,5058
−0.7860
 98,91
−0.6491
Курс EUR ЦБ РФна 25 апреля
98,9118
−0.6491
PRM.Форум /Компьютеры Интернет Связь / Программирование /

VBA диапазон программно в список

  • Для екселя нужно вставить в список диапазон значений
    Пишу 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 или модифицировать по вкусу.

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

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

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

Модератор: