Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Нид хелп для написания макроса для экселя


Автор: Electric 15.3.2006, 15:09
Не знаете ли вы как макросом копировать рандомную ячейку из второго листа (определенного диапазона) и вставить в первом листе в конкретную ячейку?..
Уточню. Например в листе 2 есть столбец А в котором заполнены 100 ячеек. Мне нужно что бы скопировалась рандомная ячейка в диапазоне отА1 до А100 и вставилась в ячеику А2 (например) листа 1))
Всем спасип.

Автор: Staruha 15.3.2006, 21:47
Самое сложное в этом коде это перевести слово рандомная smile

Автор: Akina 16.3.2006, 10:19
Код
'draft
worksheets("Лист1").Cells("A2") = worksheets("Лист2").Cells("A" & trim(str(fix(rnd*99+1))))

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)