| Вопрос: переменная - случайное число (+3q) | Добавлено: 20.11.06 15:38 |
Автор вопроса:  fark
|
|
здравствуйте!
как сделать так, чтобы определённая переменная была сгенерирована случайно в заданных пределах? например: x = любое целое(или нет) число от 4 до 8 2)посоветуйте учебник по VBA, заточеный под Excel. сейчас пользую "Excel Visual Basic для приложений" Элизабет Бунин, /Бином/1996 год. 3)почему в VBA 6.3 не выполняется команда Beep? (она должна давать писк системного динамика). и какой командой бикнуть динамиком? 4)интересно, кто какую прикладуху использует при работе с VBA? я пользую только блокнот для кода, учебник в электронном формате и англо-русский словарь технических терминов. может, кто-чего посоветует? спасибо. |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  fark Вопросов: 5 Ответов: 11 |
Профиль | | #1 | Добавлено: 20.11.06 15:46 |
|
ещё вопрос в догонку...
5)как сделать, чтобы каждое выполнение программы прописывало в окно Immediate свой результат в новую строчку, а не продолжало старую? Например: выполнил прогу один раз, результат выполнения выводится командой Debug.Print в Immediate. x = 1 после слудующего выполнения программы значения продолжают записываться в эту-же строчку: x = 1 x = 2 x = 3 надо, чтобы: х = 1 х = 2 х = 3 спасибо! |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 20.11.06 17:15 |
|
5) Debug.Print "x=1" & vbCrLf
3) VB низя бикать по сис динамику - ищи Beep.dll 4) VB 6 
2) http://www.yandex.ru/yandsearch?rpt=rad&text=VB+%C3%E5%ED%E5%F0%E0%F6%E8%FF+%F7%E8%F1%EB%E0 |
||
|
Номер ответа: 3 Автор ответа: night-roll Вопросов: 36 Ответов: 326 |
Профиль | | #3 | Добавлено: 21.11.06 00:24 |
|
Sub RndDigit()
Dim x As Variant x = 4 + Rnd(1) * 4 ' случайное число от 4 до 8 (не целое) Debug.Print "x = " & x '& vbCrLf End Sub |
||
|
Номер ответа: 4 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #4 | Добавлено: 21.11.06 12:04 |
|
VB низя бикать по сис динамику - ищи Beep.dll
КЮ!!! Юзай: Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
|
||
|
Номер ответа: 5 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #5 | Добавлено: 21.11.06 12:09 |
| Правда прет токо с XP. | ||
|
Номер ответа: 6 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #6 | Добавлено: 22.11.06 16:41 |
| И пикает не динамиком... | ||
|
Номер ответа: 7 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #7 | Добавлено: 22.11.06 17:07 |
|
И пикает не динамиком...
Почему не динамиком? Динамиком, но системным. |
||
|
Номер ответа: 8 Автор ответа: farkВопросов: 5 Ответов: 11 |
Профиль | | #8 | Добавлено: 27.11.06 18:55 |
что-то не работает пищалка динамиком 
пишет, что "only comments may appear after End Sub, End Function, or End Property" может я неправильно использую? (просто вставляю туда, где надо выполнить. как например InputBox) я в VBA лох ещё
к вопросу 1 - а как сделать, чтобы результатом генерирования были только целые числа? есть отдельная функция? и вообще, есть справочник на русском обо всех функциях VBA, чтоб я больше никого не доставал? |
||
|
Номер ответа: 9 Автор ответа: farkВопросов: 5 Ответов: 11 |
Профиль | | #9 | Добавлено: 27.11.06 19:14 |
|
вах! ещё не могу найти вот чего:
задаю, допустим, массив с количеством цифр (ввожу нужное количество) от (задаю число) до (задаю число). числа делятся на положительные и отрицательные и выводятся на лист в соответствующую колонку. когда задаю от -10 до 10 - всё нормально! когда задаю больший разброс (больше 100), пишет: Runtime Error "9" Subscript out of range как это обойти? спасибо всем! |
||
|
Номер ответа: 10 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #10 | Добавлено: 27.11.06 21:18 |
|
пишет, что "only comments may appear after End Sub, End Function, or End Property"
Надеюсь, ты запихал объявление функции перед всеми другими функциями? |
||
|
Номер ответа: 11 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #11 | Добавлено: 28.11.06 20:22 |
|
к вопросу 1 - а как сделать, чтобы результатом генерирования были только целые числа? есть отдельная функция? x = CInt(4 + Rnd(1) * 4) ' случайное число от 4 до 8 (целое) из примера см. выше о других функциях округления см. справку!
и вообще, есть справочник на русском обо всех функциях VBA, чтоб я больше никого не доставал? справочников существует достаточное колиество, например Object Browser в VBAProject или жми F1 на незнакомом слове в модуле
или вот одна из ссылок [url]http://www.msoffice.nm.ru/[/url] но лучший друг и помощник - это книга
|
||
Страница: 1 |