|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.07.2010, 10:01 | #11 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Есть функция =СЛУЧМЕЖДУ. Как её заставить обновляться каждый раз при запуске книги?
|
14.07.2010, 10:16 | #12 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
в модуле "ЭтаКнига":
Код:
Код:
|
14.07.2010, 10:27 | #13 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Спасибо! О! Только заметил она и сама обновляется.
|
14.07.2010, 11:00 | #14 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Private Sub Workbook_Open()
Randomize Sheets(1).Range("A1")=Int(Rnd*10) End Sub Вот это подходит. Только нужно целую таблицу заполнить случайными |
14.07.2010, 11:07 | #15 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Еще раз про SpinButton.
у него SpinButton1.Min = 1 SpinButton1.Max = 10 При выходе сохраняемся, SpinButton стоит на значении 5. Как сделать чтобы при открытии книги он начинал листать с 1 значения, а не с 5. Пробовал записывать: Private Sub Workbook_Open() SpinButton1.Value = 1 End Sub не получается |
14.07.2010, 11:20 | #16 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
можно создать свою функцию (она пересчитывается только при нажатии Ctrl+Alt+F9)
Код:
Код:
или так: Код:
|
14.07.2010, 11:25 | #17 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Понятно! Спасибо! Низкий поклон за помощь!
|
14.07.2010, 11:27 | #18 | |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
Цитата:
Sheets(1).SpinButton1.Value = 10 |
|
14.07.2010, 11:33 | #19 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Private Sub Workbook_Open()
Dim с As Range Randomize For Each с In Sheets("Лист2").Range("D4:D9") c = Int(Rnd * 10) Next c End Sub ругается на next почемуто. |
14.07.2010, 11:36 | #20 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
я писал прям здесь, можа одна из с русская (Пантусвитчер балуется)
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вопрос по мелочи | Syltan | Общие вопросы C/C++ | 6 | 29.09.2009 00:19 |
Вопрос по мелочи | Golovastik | Общие вопросы C/C++ | 8 | 23.07.2009 22:47 |
Задачи вызывают затруднение... матрица и сумма ряда. | GorNikSar | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 21.12.2008 12:51 |
Задачи вызывают затруднение... матрица и сумма ряда. | GorNikSar | Помощь студентам | 2 | 19.12.2008 07:11 |