Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проблема - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проблема (Макросы/Sub)
Проблема
BaurinWladik Дата: Воскресенье, 04.05.2014, 18:44 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Плииз! Помогите с учёбой! В общем суть задания: В зависимости от ведённого времени (от 0 до 24) получите сообщение с пожеланием доброго утра, доброго дня, доброго вечера, спокойный ночи Задание путиковое но что то не работает, вот листинг который я написал :

Sub Proc1()
Dim t As Integer
Dim p As String
If t >= 6 & t < 12 Then
p = "Доброе утро"
ElseIf t >= 12 & t < 6 Then
p = "Доброго дня"
ElseIf t >= 6 & t < 12 Then
p = "Доброго вечера"
Else
p = "Спокойной ночи"
End Sub
В чём проблема, что не так?!
[moder]Почитайте правила форума для начала.
 
Ответить
СообщениеПлииз! Помогите с учёбой! В общем суть задания: В зависимости от ведённого времени (от 0 до 24) получите сообщение с пожеланием доброго утра, доброго дня, доброго вечера, спокойный ночи Задание путиковое но что то не работает, вот листинг который я написал :

Sub Proc1()
Dim t As Integer
Dim p As String
If t >= 6 & t < 12 Then
p = "Доброе утро"
ElseIf t >= 12 & t < 6 Then
p = "Доброго дня"
ElseIf t >= 6 & t < 12 Then
p = "Доброго вечера"
Else
p = "Спокойной ночи"
End Sub
В чём проблема, что не так?!
[moder]Почитайте правила форума для начала.
Автор - BaurinWladik
Дата добавления - 04.05.2014 в 18:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проблема (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!