|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.03.2010, 21:09 | #1 |
Пользователь
Регистрация: 21.12.2009
Сообщений: 47
|
надо чтоб число q было равно месяцу(словами)
в Cells(1,1) имеется дата вида 22.04.2010
необходимо сделать так, чтоб число q было равно месяцу(словами) даты из этой ячейки (т.е. тут q=апрель) q = MonthName(Month(Cells(1, 1)))-не работает((( а еще мне надо сравнить есть ли этот месяц в списке, мне список делать месяцев с большой или маленькой буквы?? или это не важно?? |
23.03.2010, 21:15 | #2 |
Пользователь
Регистрация: 27.09.2008
Сообщений: 69
|
q = format(Month(Cells(1, 1)),"MMMM")
Андрей
|
23.03.2010, 21:31 | #3 |
Пользователь
Регистрация: 09.12.2008
Сообщений: 56
|
Можно так
Sub Макрос1() Dim mes As Integer, q As String mes = Format(CDate(Cells(4, 1)), "m") * 1 q = WorksheetFunction.Choose(mes, "январь", "февраль", "март", "апрель") End Sub Допишите названия месяцев до декабря, а то мне лениво... Вдруг не подойдет. А про сравнение - зависит как Вы будете сравнивать. Но ведь есть еще UCase(), переводите все в верхний регистр для чистоты эксперимента
обычно я на http://planetaexcel.ru/forum.php
|
24.03.2010, 04:41 | #4 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Про сравнение: может проще использовать Month(Cells(1, 1) и сравнивать с числами из списка (1...12)?
Чем шире угол зрения, тем он тупее.
|
|
24.03.2010, 18:15 | #5 |
Пользователь
Регистрация: 21.12.2009
Сообщений: 47
|
дело в том, что у меня задание ваще заключается в том, чтоб с формы был введен месяц(через combobox) и надо проверить есть ли он в списке дат
|
24.03.2010, 19:14 | #6 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
селект кейсом присваивайте переменной номер месяца
select case Combobox1.value case "Январь" m=1 case "Февраль" m=2 и т.д. а вот что значит "есть ли он в списке дат" не понял, но грубо в цикле по ячейкам с датами if month(cells(r,c))=m then msgbox "есть такое" end if небольшая добавка, в ячейке А1 написано "Январь" s = CDate("01." & Cells(1, 1) & ".2010") - присвоит переменной s значение даты 01.01.2010 |
24.03.2010, 19:46 | #7 |
Пользователь
Регистрация: 21.12.2009
Сообщений: 47
|
ни че не поняла(((
че ток делала ни че не выходит((( посмотрите пожалуста!! задание вощем такое: необходимо ввести даты с формы(UF4) начальную и конечную, а в label вывести результат, т.е. сколько дат находится в этом диапозоне |
24.03.2010, 19:51 | #8 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
названия месяцев это не даты, в нашем мире дата состоит из дня, месяца и года.
|
24.03.2010, 20:02 | #9 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
принял что раз выбран "апрель" то это апрель 2010
если даты стоят "май" и "апрель" то считает с 01.04.2010 (включительно) по 01.06.2010 (не включительно) |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа: число словами | Artur09 | Помощь студентам | 3 | 10.03.2019 07:29 |
Число словами | flyinsky | Microsoft Office Excel | 11 | 07.05.2015 10:55 |
подскажите какой компилятор и язык выбрать чтоб по началу не было проблем с библиотеками и учебниками? | TDrive | Общие вопросы C/C++ | 5 | 03.08.2009 15:27 |
Надо чтоб браузер загрузил только чать документа | reyn90 | Помощь студентам | 0 | 01.06.2009 19:24 |
Задача по PASCAl. Помогите сделать. надо чтоб из внешнего файла | Waia | Помощь студентам | 1 | 02.12.2008 09:10 |