|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.07.2010, 11:39 | #21 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Точняк одна была походу русская. Пасибо!
|
14.07.2010, 11:42 | #22 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Private Sub Workbook_Open()
Dim c As Range Randomize For Each c In Sheets("Лист2").Range("D4:D9 E4:E9") c = Int(Rnd * 10) Next c End Sub Такая запись не катит? |
14.07.2010, 11:49 | #23 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Код:
Код:
Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 14.07.2010 в 12:00. |
|
14.07.2010, 11:55 | #24 | |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
Цитата:
пробел - это пересечение диапазонов (в твоем случае они не пересекаются, что ведет к ошибке), объединение - это запятая, т.е. Range("D4:D9, E4:E9"), но зачем тебе так, можно ведь просто Range("D4:E9") ___________________________________ ______________________________ по поводу SpinButton я тебя обманул, там все слегка сложнее обстоит (судя по всему в момент возникновения события Workbook_Open графический слой с элементом SpinButton еще не появляется, либо еще что-то), эту неприятность можно обмануть след. образом: в модуле "ЭтаКнига" пишем: Код:
вызвать процедуру "а" через 2 секунды после сейчас, к этому моменту SpinButton уже на месте и нормально управляется кодом. а в обычном модуле: Код:
|
|
14.07.2010, 12:33 | #25 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
[QUOTE=аналитика;575296]а что ты хочешь? объединить?
пробел - это пересечение диапазонов (в твоем случае они не пересекаются, что ведет к ошибке), объединение - это запятая, т.е. Range("D4:D9, E4:E9"), но зачем тебе так, можно ведь просто Range("D4:E9") ___________________________________ ______________________________ так на много проще! А SpinButton пойдет и по первому случаю. Хотелось бы чтобы он вообще был пустым поначалу, а потом при щелчке вправо начинал с 1 |
14.07.2010, 12:38 | #26 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Помогите такое действие вогнать в цикл, или как подобно можно сделать?
Private Sub SpinButton1_Change() SpinButton1.Min = 1 SpinButton1.Max = 10 [D35] = Cells(4, 3 + SpinButton1.Value) 'For i = Sheets(2).Range("D4") To Sheets(2).Range("M4") Step 1 'If Sheets(1).Range("D35").Text <> 0 And Sheets(2).Range(i).Text = 1 Then ' FormAvariyDM.Show 'End If End Sub |
14.07.2010, 12:39 | #27 | |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
Код:
Цитата:
|
|
14.07.2010, 12:43 | #28 |
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Sheets(1).SpinButton1.Value = 0
так не получается пробовал. |
14.07.2010, 12:44 | #29 | |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
Цитата:
SpinButton1.Min = 1 SpinButton1.Max = 10 так эти свойства устанавливать внутри обработчика событий точно не надо, просто задай их в режиме конструктора |
|
14.07.2010, 12:46 | #30 |
Форумчанин
Регистрация: 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 |