Простая процедура - Microsoft Office Excel

mirawoo · 27.09.2008, 20:48

Доброго времени суток всем!
Жизнь привела меня к необходимости изучения VBA, мною біл куплен самоучитель, но даже с ним - проблемы. Помогите с кодом! что-то не работает, хотя он самый простой. Заранее спс!

Private Sub UserForm_Activate()
Dim Quote As String
Quote = "Hello:"
lblNow.Caption = Quote & Format(Now, "dddddd, hh ч. mm мин.")
End Sub

VictorM · 27.09.2008, 21:10

А что не работает-то?
Может Вы что не так делаете?
Посмотрите файл. Откройте VBE - Alt+F11, запустите форму на выполнение F5.
Все работает.

mirawoo · 29.09.2008, 09:12

Цитата:

Сообщение от VictorM

А что не работает-то?
Может Вы что не так делаете?
Посмотрите файл. Откройте VBE - Alt+F11, запустите форму на выполнение F5.
Все работает.

Спасибо за ответ, у Вас работает, а у меня - почему-то нет! Подчеркивает строку lblNow.Caption = Quote & Format(Now, "dddddd, hh ч. mm мин.") постоянно и ругается .

дмидми · 29.09.2008, 11:00

Ну что это за флад?!
Код абсолютно (по крайней мере для Excel 2003) корректен.
Кто и как ругается-то? Надо же указывать свою версию ёкселя, приводить номер и текст сообщения об ошибке, прикладывать файл.

Кстати, элемент типа "надпись" с именем lblNow на форме-то есть?

VictorM · 29.09.2008, 11:24

Цитата:

Кстати, элемент типа "надпись" с именем lblNow на форме-то есть?

да, я ему сделал полностью рабочую форму (в файле) и у меня все работает. Excel 2003, что там может не работать? Не знаю...

mirawoo · 02.10.2008, 11:01

Цитата:

Сообщение от дмидми

Ну что это за флад?!
Код абсолютно (по крайней мере для Excel 2003) корректен.
Кто и как ругается-то? Надо же указывать свою версию ёкселя, приводить номер и текст сообщения об ошибке, прикладывать файл.

Кстати, элемент типа "надпись" с именем lblNow на форме-то есть?

На работе файл работает, а дома - не запускается.
Вот, что мне отвечает на попытку запустить процедуру дома:

"Run-time error '424'
Object required"

27.09.2008, 20:48	#1
mirawoo Пользователь Регистрация: 26.02.2008 Сообщений: 56	Простая процедура Доброго времени суток всем! Жизнь привела меня к необходимости изучения VBA, мною біл куплен самоучитель, но даже с ним - проблемы. Помогите с кодом! что-то не работает, хотя он самый простой. Заранее спс! Private Sub UserForm_Activate() Dim Quote As String Quote = "Hello:" lblNow.Caption = Quote & Format(Now, "dddddd, hh ч. mm мин.") End Sub Sorry za translit - Ne znaju, kak na Debain postavit Russkiy!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Не простая задача !!!	MaxZoa	Microsoft Office Excel	2	06.03.2008 18:07
Простая задачка	Dukalis	Общие вопросы C/C++	1	13.01.2008 18:10
Простая программа	Distr	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	1	15.11.2007 08:27
Простая задача еще	utyyf	Помощь студентам	28	23.10.2007 00:07
Простая задача	utyyf	Помощь студентам	25	18.10.2007 14:50

29.09.2008, 11:00	#4
дмидми Форумчанин Регистрация: 06.03.2008 Сообщений: 352	Ну что это за флад?! Код абсолютно (по крайней мере для Excel 2003) корректен. Кто и как ругается-то? Надо же указывать свою версию ёкселя, приводить номер и текст сообщения об ошибке, прикладывать файл. Кстати, элемент типа "надпись" с именем lblNow на форме-то есть?