| Вопрос: Генератора случайных | Добавлено: 17.03.07 08:27 |
Автор вопроса:  agent
|
| Ответы | Всего ответов: 23 |
|
Номер ответа: 16 Автор ответа: agent Вопросов: 5 Ответов: 11 |
Профиль | | #16 | Добавлено: 17.03.07 20:11 |
| Нужно сделать так чтобя все эти проивольные числа были записаны в ячейки!!!!! | ||
|
Номер ответа: 17 Автор ответа:  D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #17 | Добавлено: 17.03.07 20:13 |
| Я VBA незнаю такшто пробуй как то сам | ||
|
Номер ответа: 18 Автор ответа: agentВопросов: 5 Ответов: 11 |
Профиль | | #18 | Добавлено: 17.03.07 20:13 |
| Нужно сделать так чтобя все эти проивольные числа были записаны в ячейки!!!!! | ||
|
Номер ответа: 19 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #19 | Добавлено: 17.03.07 20:26 |
|
Нужно сделать так чтобя все эти проивольные числа были записаны в ячейки!!!!!
Чувак у тебя копм зациклилса. 
|
||
|
Номер ответа: 20 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #20 | Добавлено: 17.03.07 22:53 |
|
------ это вставить в нужное событие -------
dim i as byte for i = 0 to 24 Cells (i,1)= GenRndNumber (-99,99) next i -------------------------------------------- --- А это после процедуры обрабатываемое событие--- Public Function GenRndNumber(Lower%, Upper 
Randomize GenRndNumber = Int((Upper% - Lower% + 1) * Rnd + Lower
End Function ----------------------------------------------- Не стоит офиса у меня, непомню я так событие загрузки документа. Зайди в вб (F11 вроде) там слева список документов, клацни на него, откроется окно кода, ввеху того окна 2 открывающихся списка, вот в том который справа найди что-то похожое на Load, клацнещ - содастся событие, в него и вставиш указанный код выше А вообще народ, у кого офис стоит, создайте ему файл и вымылите по почте, а то он нас достанет
|
||
|
Номер ответа: 21 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #21 | Добавлено: 17.03.07 22:55 |
|
Public Function GenRndNumber(byval Lower%, byval Upper
as Integer
Randomize Timer GenRndNumber = Int((Upper% - Lower% + 1) * Rnd + Lower
End Function эта покрасивее будет |
||
|
Номер ответа: 22 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #22 | Добавлено: 18.03.07 16:27 |
|
Public Function GenRndNumber(byval Lower%, byval Upper Ну так папаша все таки написал
as Integer
Randomize Timer GenRndNumber = Int((Upper% - Lower% + 1) * Rnd + Lower
End Function эта покрасивее будет |
||
|
Номер ответа: 23 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #23 | Добавлено: 18.03.07 19:16 |
|
какой папаша? Это я находу прям в окне браузера и подправил её
|
||