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

Вход

Регистрация

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

 

= Мир MS Excel/Месяц из даты прописью - Мир MS Excel

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

Excel 2003 и 13
Подскажите код.
есть строчка которая из Текстбокса (LblAODateCh1) вытаскивает месяц, вот только цифрой, а как сделать чтобы была пропись.
Sheets("ЧекЛист").Cells(1, 5) = Month(LblAODateCh1)
Спс.
 
Ответить
СообщениеПодскажите код.
есть строчка которая из Текстбокса (LblAODateCh1) вытаскивает месяц, вот только цифрой, а как сделать чтобы была пропись.
Sheets("ЧекЛист").Cells(1, 5) = Month(LblAODateCh1)
Спс.
Автор - Skorpika
Дата добавления - 16.12.2014 в 00:11
alex77755 Дата: Вторник, 16.12.2014, 00:27 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

[vba]
Код
Sub WQWER()
     MsgBox Format(Now, "mmmm")
End Sub
[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
Сообщение[vba]
Код
Sub WQWER()
     MsgBox Format(Now, "mmmm")
End Sub
[/vba]
Автор - alex77755
Дата добавления - 16.12.2014 в 00:27
Wasilich Дата: Вторник, 16.12.2014, 00:29 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Через оператор Select Case. Или так
[vba]
Код
=Format(Month("1." & LblAODateCh1 & ".2014"), "mmmm")
[/vba]


Сообщение отредактировал Wasilic - Вторник, 16.12.2014, 00:34
 
Ответить
СообщениеЧерез оператор Select Case. Или так
[vba]
Код
=Format(Month("1." & LblAODateCh1 & ".2014"), "mmmm")
[/vba]
Автор - Wasilich
Дата добавления - 16.12.2014 в 00:29
MCH Дата: Вторник, 16.12.2014, 00:35 | Сообщение № 4
Группа: Админы
Ранг: Старожил
Сообщений: 2008
Репутация: 752 ±
Замечаний: ±

можно через Choose()
 
Ответить
Сообщениеможно через Choose()
Автор - MCH
Дата добавления - 16.12.2014 в 00:35
Skorpika Дата: Вторник, 16.12.2014, 00:40 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003 и 13
Sub Макрос1()
Cells(2, 1) = Format(Range("A1"), "mmmm")
End Sub
во, получилось. спс за формат.
Wasilic, не, в боксе - 7.12.2014
Забавно, но с cells такая фишка не прокатывает
....3 часа в помойку из-за 1-ой строчки >(


Сообщение отредактировал Skorpika - Вторник, 16.12.2014, 00:48
 
Ответить
СообщениеSub Макрос1()
Cells(2, 1) = Format(Range("A1"), "mmmm")
End Sub
во, получилось. спс за формат.
Wasilic, не, в боксе - 7.12.2014
Забавно, но с cells такая фишка не прокатывает
....3 часа в помойку из-за 1-ой строчки >(
Автор - Skorpika
Дата добавления - 16.12.2014 в 00:40
Wasilich Дата: Вторник, 16.12.2014, 00:57 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата Skorpika, 16.12.2014 в 00:11, в сообщении № 1
из Текстбокса (LblAODateCh1) вытаскивает месяц, вот только цифрой,

[vba]
Код
LblAODateCh1=12
Cells(2, 1) = Format(Month("1." & LblAODateCh1 & ".2014"), "mmmm")
[/vba]
Цитата Skorpika, 16.12.2014 в 00:40, в сообщении № 5
но с cells такая фишка не прокатывает
Не верю. :D
 
Ответить
Сообщение
Цитата Skorpika, 16.12.2014 в 00:11, в сообщении № 1
из Текстбокса (LblAODateCh1) вытаскивает месяц, вот только цифрой,

[vba]
Код
LblAODateCh1=12
Cells(2, 1) = Format(Month("1." & LblAODateCh1 & ".2014"), "mmmm")
[/vba]
Цитата Skorpika, 16.12.2014 в 00:40, в сообщении № 5
но с cells такая фишка не прокатывает
Не верю. :D
Автор - Wasilich
Дата добавления - 16.12.2014 в 00:57
Skorpika Дата: Вторник, 16.12.2014, 01:10 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003 и 13
Изначально: TextBox LblAODateCh1.text = 12,12,2014
Мне в cells(2, 1) нужно записать "декабрь"
Cells(2, 1) = Format(cells(1, 1), "mmmm") почему то не катит, как впрочем и от бокса.
Cells(2, 1) = Format(Range("A1"), "mmmm") - работает, вот что я имел в виду.
мож я что и не догоняю..
в любом случае всем спс
 
Ответить
СообщениеИзначально: TextBox LblAODateCh1.text = 12,12,2014
Мне в cells(2, 1) нужно записать "декабрь"
Cells(2, 1) = Format(cells(1, 1), "mmmm") почему то не катит, как впрочем и от бокса.
Cells(2, 1) = Format(Range("A1"), "mmmm") - работает, вот что я имел в виду.
мож я что и не догоняю..
в любом случае всем спс
Автор - Skorpika
Дата добавления - 16.12.2014 в 01:10
Wasilich Дата: Вторник, 16.12.2014, 01:31 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата Skorpika, 16.12.2014 в 01:10, в сообщении № 7
Изначально: TextBox LblAODateCh1.text = 12,12,2014
Изначально было так
Цитата Skorpika, 16.12.2014 в 00:11, в сообщении № 1
(LblAODateCh1) вытаскивает месяц, вот только цифрой


А вот это:
Цитата Skorpika, 16.12.2014 в 01:10, в сообщении № 7
Cells(2, 1) = Format(cells(1, 1), "mmmm") почему то не катит

Мож я чего не догоняю %)
К сообщению приложен файл: Skorpika.xls (20.5 Kb)
 
Ответить
Сообщение
Цитата Skorpika, 16.12.2014 в 01:10, в сообщении № 7
Изначально: TextBox LblAODateCh1.text = 12,12,2014
Изначально было так
Цитата Skorpika, 16.12.2014 в 00:11, в сообщении № 1
(LblAODateCh1) вытаскивает месяц, вот только цифрой


А вот это:
Цитата Skorpika, 16.12.2014 в 01:10, в сообщении № 7
Cells(2, 1) = Format(cells(1, 1), "mmmm") почему то не катит

Мож я чего не догоняю %)
Автор - Wasilich
Дата добавления - 16.12.2014 в 01:31
krosav4ig Дата: Вторник, 16.12.2014, 02:45 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
если нужно получить название месяца из числа, то можно проще
[vba]
Код
LblAODateCh1=12
Cells(2, 1) = Format(LblAODateCh1*30, "mmmm")
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеесли нужно получить название месяца из числа, то можно проще
[vba]
Код
LblAODateCh1=12
Cells(2, 1) = Format(LblAODateCh1*30, "mmmm")
[/vba]
Автор - krosav4ig
Дата добавления - 16.12.2014 в 02:45
alex77755 Дата: Вторник, 16.12.2014, 09:36 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Сорри. погорячился

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал alex77755 - Вторник, 16.12.2014, 09:47
 
Ответить
СообщениеСорри. погорячился
Автор - alex77755
Дата добавления - 16.12.2014 в 09:36
alex77755 Дата: Вторник, 16.12.2014, 09:45 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Сорри! Но, кстати, работает-таки
[vba]
Код
Cells(1, 1) = "12, 12, 2014"
Cells(2, 1) = Format(Cells(1, 1), "mmmm") ' работает
Cells(3, 1) = Format(Range("A1"), "mmmm") ' работает
Text = "12, 12, 2014"
MsgBox Format(Text, "mmmm")
[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
СообщениеСорри! Но, кстати, работает-таки
[vba]
Код
Cells(1, 1) = "12, 12, 2014"
Cells(2, 1) = Format(Cells(1, 1), "mmmm") ' работает
Cells(3, 1) = Format(Range("A1"), "mmmm") ' работает
Text = "12, 12, 2014"
MsgBox Format(Text, "mmmm")
[/vba]
Автор - alex77755
Дата добавления - 16.12.2014 в 09:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Месяц из даты прописью (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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