Мобильная версия форумов
Открыть
 −9°C
завтра: −4°C
Погода в Перми
−9°C
утром−14°C
днем−9°C
завтра−4°C
Подробно
 66,70
+0.1615
Курс USD ЦБ РФна 16 февраля
66,7044
+0.1615
 75,25
+0.2021
Курс EUR ЦБ РФна 16 февраля
75,2492
+0.2021
PRM.Форум /Компьютеры Интернет Связь / Программирование /

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

  • sniper

    Сообщений: 7676

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

  • guru

    Сообщений: 8043

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

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

  • sniper

    Сообщений: 7676

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

    Quod principi placuit, legis habet vigorem

  • guru

    Сообщений: 8043

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

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

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

  • sniper

    Сообщений: 7676

    сделал
    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

  • guru

    Сообщений: 8043

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

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

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

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

Модератор: