Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос / 12 сообщений из 12, страница 1 из 1
25.10.2007, 18:21:58
    #34895424
Bella_8686
Bella_8686
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
Напишите макрос, который позволит выбирать формат вывода текущей даты. Если пользователь выбрал:
формат 1 – дата выводится в виде: 12 октября 2007
формат 2 – дата выводится в виде: число - 19.10.2007 время - 20:58:51
формат 3 – дата выводится в виде: 1 сентября 2007
формат 4 – дата выводится в виде: 12 окт 2007 г.

Я сделала:
Public Sub qqqq()
Dim d As Date
d = InputBox("веберите формат 1 до 4")
Select Case d
Case 1: MsgBox ("12 октября 2007")
Case 2: MsgBox ("число - 19.10.2007 время 20:58:51")
Case 3: MsgBox ("1 сентября 2007")
Case 4: MsgBox ("12окт2007")
Case Else: MsgBox ("только 1 до 4")
End Select
End Sub
Я думаю, что неправильно сделала, кто знает другой способ?
Подскажите!
Заранее спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2007, 21:45:32
    #34895944
LETME
LETME
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
А что именно Вам кажется неправильным?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2007, 22:26:31
    #34895986
Taranaga
Taranaga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
Конечно неправильно!
Ведь в задании было: Bella_8686формат 4 – дата выводится в виде: 12 окт 2007 г.
А Вы здесь:
Bella_8686Case 4: MsgBox ("12окт2007")Вопервых пробелы не поставили, а вовторых букву "г" и точку в конце забыли.
Как минимум три ошибки!
Нужно срочно исправить!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2007, 22:46:23
    #34896004
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
Интересно, кто над кем издевается?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2007, 09:31:59
    #34896324
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
White OwlИнтересно, кто над кем издевается?
Думаю барышня над нами издевается

ее просят
автор
формат 2 – дата выводится в виде: число - 19.10.2007 время - 20:58:51


Барышня пишет
авторCase 2: MsgBox ("число - 19.10.2007 время 20:58:51")

ну это просто жесть
авторDim d As Date
d = InputBox("веберите формат 1 до 4")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2007, 10:36:26
    #34899643
Bella_8686
Bella_8686
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
я не издеваю над вами! я учусь в спецальном группе! ладно!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2007, 14:16:24
    #34899837
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
Мы не издеваемся, а просто пытаемся объяснить вам ваши же ошибки, о чем вы же и просили.

авторНапишите макрос, который позволит выбирать формат вывода текущей даты
Вот это мне не понятно.
Формат вывода даты надо изменить на уровне ОС, Excel или текущей ячейки ?
Если речь идет о выводе в переменную или ячейку, то используем функцию Format .
В эту функцию передается строка для форматирования.
Для формат1 — "dd mmm yyyy"
Для формат2 "число — "dd.mm.yyyy время — hh:mm:ss "
Для формат3 — "dd mmm yyyy" — то же самое что и формат1
Для формат4 — ""dd mmm yy г.""

И что такое "я учусь в спецальном группе!" ??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2007, 15:42:16
    #34899927
Bella_8686
Bella_8686
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
хорошо! но мне надо выводить в окно Immediate! как? debug.Print?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2007, 17:40:54
    #34900019
LETME
LETME
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
Bella_8686хорошо! но мне надо выводить в окно Immediate! как? debug.Print?
Ок, но сначала всё же... - что такое: "я учусь в спецальном группе!" ??
Это важно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2007, 19:14:49
    #34900101
Bella_8686
Bella_8686
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
ладно я скажу вам но не издавайтесь пожалуйста про себя в том что я сама плохо слышу! я учусь в колледже "техник-программист"!
подскажите, пожалуйста!!!!
спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2007, 19:55:49
    #34900126
LETME
LETME
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
ну если всё так серьезно... - возмите и напишите в Вашей изначальнй разработке вместо msgbox - debug.print...
ЗЫ: Кстати, Вы так и не ответили - что в Вашем римере показалось неправильным.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2007, 20:05:30
    #34900136
Bella_8686
Bella_8686
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос
ладно! у меня все получается!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 393ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182013]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 65ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 229ms
total:  393ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]