|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.12.2010, 21:20 | #11 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Если добавить в Com_mz дополнительное значение, которое не относится к месяцу, сбоев для условия
If Com_mz.ListIndex + 1 <= Month(Date) Or Com_mz.ListIndex = 12 Or Sheets("Отчет").Range("R1") < Year(Date) Then не будет Com_mz.AddItem "январь" Com_mz.AddItem "февраль" Com_mz.AddItem "март" Com_mz.AddItem "апрель" Com_mz.AddItem "май" Com_mz.AddItem "июнь" Com_mz.AddItem "июль" Com_mz.AddItem "август" Com_mz.AddItem "сентябрь" Com_mz.AddItem "октябрь" Com_mz.AddItem "ноябрь" Com_mz.AddItem "декабрь" Com_mz.AddItem "Дата" Com_mz.List(0, 1) = 2 Com_mz.List(1, 1) = 3 Com_mz.List(2, 1) = 4 Com_mz.List(3, 1) = 5 Com_mz.List(4, 1) = 6 Com_mz.List(5, 1) = 7 Com_mz.List(6, 1) = 8 Com_mz.List(7, 1) = 9 Com_mz.List(8, 1) = 10 Com_mz.List(9, 1) = 11 Com_mz.List(10, 1) = 12 Com_mz.List(11, 1) = 1 |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как текстовый файл в формате word 2007 переделать в файл в формате | ZAY JULIA | Microsoft Office Word | 13 | 09.06.2010 19:43 |
Выполнение кода на текущий или прошедший месяц. | segail | Microsoft Office Excel | 8 | 14.02.2010 00:35 |
Изменить текущий год, | segail | Microsoft Office Excel | 12 | 16.01.2010 15:45 |
Условие на текущий год. | ГОСЕАН | БД в Delphi | 2 | 27.06.2008 11:27 |
Текущий уровень звука ! | XuMuK | Win Api | 3 | 11.10.2007 10:25 |