Заполнение ячеек - VBA (49119)
Формулировка задачи:
Здравия, форум!
Нужна помощь в экселе, я в бейсике полный ноль, так что заранее извините. Вобщем нужен макрос, который будет заполнять выделенный диапазон ячеек данными из списка ячеек, находящихся на другом листе, заполнение должно быть в рандомном порядке.
Нашел вот такой пример
но тут все прописано в коде, а мне надо чтоб вставка происходила там, где я мышей выделил диапазон и плюс выбор из копируемого диапазона должен быть рандомным
Решение задачи: «Заполнение ячеек»
textual
Листинг программы
Sub Mer() Dim v(), i&, n&, w&, c As Range, d As Range On Error Resume Next Set d = Application.InputBox("Выберите диапазон данных мышкой" & vbLf & _ "или введите адрес", Type:=8) If Err Then Exit Sub v = d.Value n = d.Count w = UBound(v, 2) For Each c In Selection i = Int(Rnd * n) c.Value = v(i \ w + 1, i Mod w + 1) Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д