Вопрос № 33457: 1. Поделитесь кто-нибуть электронным справочником по VBA. Мыло grnras@ukr.net.
2. Есть поле Edit1 и переменная x. Если в поле Edit1 что-то записано, то x нужно присвоить то, что запаисано в поле. Если Edit1 пусто, то x=' ' (пробел)
...Вопрос № 33482: Здравствуйте!А можно ли сделать так, Что-бы программа запустилась в
определённое время по часам компа, причём до этого, она ни разу не
запускалась?Если можно, напишите, пожалуйста, как.
Спасибо!...
Вопрос № 33.457
1. Поделитесь кто-нибуть электронным справочником по VBA. Мыло grnras@ukr.net.
2. Есть поле Edit1 и переменная x. Если в поле Edit1 что-то записано, то x нужно присвоить то, что запаисано в поле. Если Edit1 пусто, то x=' ' (пробел)
Отвечает: Ерёмин Андрей
Здравствуйте, Гузенко Руслан Николаевич!
2) Очень просто. Вот код: Dim x As String
x = Edit1.Text
If Len(x) <= 0 Then
x = " "
End If --------- Работа - не волк, а произведение силы на расстояние!
Ответ отправил: Ерёмин Андрей (статус: Профессионал)
Отправлен: 17.01.2006, 17:30
Отвечает: Чурсанов Евгений Ильич
Здравствуйте, Гузенко Руслан Николаевич!
1. Вечером вышлю. 1.85 Мб
2. Если Поле Edit1 пустое то в переменной x ничего нет. Никаких пробелов, ничего. Ведь пробел это тоже символ.
Удачи.
--------- Создайте систему, которой сможет пользоваться дурак, и только дурак захочет ею пользоваться.
Ответ отправил: Чурсанов Евгений Ильич (статус: 9-ый класс)
Отправлен: 17.01.2006, 17:58
Отвечает: Николай К
Здравствуйте, Гузенко Руслан Николаевич!
x= iif(edit1.text=""," ",edit1.text)
Ответ отправил: Николай К (статус: 1-ый класс)
Отправлен: 18.01.2006, 16:32
Private Sub Edit1_Change()
If IsNull(Edit1.Text) then
x=" "
else
x=Edit1.Text
End IF
End Sub
Ответ отправил: AlexanderZh (статус: 4-ый класс)
Отправлен: 19.01.2006, 13:01
Отвечает: Залетин Виталий Викторович
Здравствуйте, Гузенко Руслан Николаевич!
1. http://www.firststeps.ru/vba/excel/vbaexcel1.html
http://www.megaflash.ru/prog/vbe20/index.htm
И самый наиархаичный, но полезный - справка Оффиса 97.
2. Если вы понимаете под полем текстовое поле (а не поле в документе Word), то тут можно обойтись простым присваиванием: Сделайте двойной щелчок на текстовом поле и у Вас появится заготовка для события его изменения. Напишите следующий код:
Dim x As String
Private Sub Edit1_Change()
x = TextBox1.Text
Me.Caption = x 'Это баловство, чтоб увидеть, чему равна Х
End Sub
--------- Учиться никогда не поздно. Особенно программированию!
Здравствуйте!А можно ли сделать так, Что-бы программа запустилась в
определённое время по часам компа, причём до этого, она ни разу не
запускалась?Если можно, напишите, пожалуйста, как.
Спасибо!
Отправлен: 17.01.2006, 22:26
Вопрос задал: Asdfrewq (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Николай К
Здравствуйте, Asdfrewq!
Можно, но только с пом. Scheduled Tasks. Чтобы задача запустилась должен работать соответствующий сервис, по моему так и называется Seduled Tasks(или планировщик задач). Задачу можно сделать и у себя на компе, потом просто скопировать в каталог Disk:WindowsTask.
Ответ отправил: Николай К (статус: 1-ый класс)
Отправлен: 18.01.2006, 16:41 Оценка за ответ: 5
Ответ отправил: AlexanderZh (статус: 4-ый класс)
Отправлен: 19.01.2006, 12:53
Отвечает: Залетин Виталий Викторович
Здравствуйте, Asdfrewq!
Можно: для этого надо или писать свой планировщик задач или использовать системный: Меню Пуск(Настройка, если винда 2000)Панель управленияНазначенные задания, там щелкните на ярлыке Добавить задание. Запустится мастер, который и добавляет это самое задание.
--------- Учиться никогда не поздно. Особенно программированию!