Как реализовать выбор заполнения диапазонов - VBA
Формулировка задачи:
Всем добрый день,
Есть лист на котором в есть пронумерованные колонки (от 1 до 17) и диапазоны (диапазон1, диапазон2, диапазон3).
Диапазоны добавлены в диспетчер имен(_Ran1, _Ran2, _Ran3) соответственно.
Создан список этих диапазонов, для выбора, какой заполнять + пункт "Все".
Созданы имена для заполнения колонок "От" и "До".
Пример "ПримерRangeCybForum.xls"
При выборе От=3 и До=16. Заполняются колонки с 3й по 16тую.
Как реализовать выбор заполнения диапазонов. + возможность при выборе пункта "Все" заполнить все диапазоны по очереди.
Заранее всем спасибо......
Решение задачи: «Как реализовать выбор заполнения диапазонов»
textual
Листинг программы
Dim x As Range Dim i As Integer, ii As Integer Dim rang As String, Diap As String rang = Sheets(1).Range("C4").Value For i = Range("DataOf") To Range("DataTo") For ii = 1 To Range("Диапазоны").Count - 1 If rang = "Все" Then Diap = "Диапазон" & ii Else Diap = rang End If For Each x In Range(Diap) x.Offset(0, i) = Rnd Next x Next ii Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д