VBA диапазон программно в список
2247
5
AKKRILL
sniper
Для екселя нужно вставить в список диапазон значений
Пишу Rage2.Range("B11").Value = "=R"+число(значение1)+"C1"+":R"+число("Значение2")+"C1";
где значения вычесляются
Не получается.
Проверить и внести значения можно интерактивно
в Данные-проверка-источник.
пробовал еще так
Page2.Range"=R"+число(значение1)+"C1"+":R"+число("Значение2")+"C1).Select(); Page2.Selection.Name="Название";
ругается на Selection - типа нет такого объекта.
В книге "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" гарнаева нифига не написано.
Проверить и внести значения можно интерактивнону так и внесите, предварительно запустив запись макроса
так макроса нет.
макрос обязательно писать?
или каким -нить другим образом можно в список внести?
макрос обязательно писать?
или каким -нить другим образом можно в список внести?
Запускаете запись макроса, вносите в ячейку нужную формулу, останавливаете запись. Смотрите какой макрос образовался и из него берете формулу.
"Сервис, макрос, начать запись"
"alt+f11" - посмотреть какой модуль с макросом записался.
"Сервис, макрос, начать запись"
"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;
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;
теперь можите использовать этот кусок как есть в программе vba или модифицировать по вкусу.