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

Вход

Регистрация

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

 

= Мир MS Excel/Функция для перевода названия месяца в число - Мир MS Excel

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

Подскажите как сделать функцию, чтобы переводила название месяца в число (порядковый номер в году)
Например
Jan - 1
Feb - 2
...
Dec - 12
 
Ответить
СообщениеПодскажите как сделать функцию, чтобы переводила название месяца в число (порядковый номер в году)
Например
Jan - 1
Feb - 2
...
Dec - 12

Автор - olega34
Дата добавления - 16.08.2013 в 11:36
Pelena Дата: Пятница, 16.08.2013, 11:48 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19137
Репутация: 4409 ±
Замечаний: ±

Excel 365 & Mac Excel
Формула не подойдет?
Код
=(ПОИСК(A1;"janfebmaraprmayjunjulaugsepoctnovdec")+2)/3


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеФормула не подойдет?
Код
=(ПОИСК(A1;"janfebmaraprmayjunjulaugsepoctnovdec")+2)/3

Автор - Pelena
Дата добавления - 16.08.2013 в 11:48
olega34 Дата: Пятница, 16.08.2013, 11:59 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Работает! Но как??!!
Что за формула такая, где об этом можно прочитать?
Спасибо.
 
Ответить
СообщениеРаботает! Но как??!!
Что за формула такая, где об этом можно прочитать?
Спасибо.

Автор - olega34
Дата добавления - 16.08.2013 в 11:59
Serge_007 Дата: Пятница, 16.08.2013, 12:13 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16452
Репутация: 2746 ±
Замечаний: ±

Excel 2016
где об этом можно прочитать?
Здесь

Модификация формулы (чуть покороче):
Код
=(ПОИСК(ПСТР(A1;2;2);"anebarprayunulugepctovec")+1)/2

Макросом:[vba]
Код
Sub Month()
       Dim m As Range
       Set m = Range("a1")
           Select Case m
           Case "Jan"
           MsgBox 1
           Case "Feb"
           MsgBox 2
           Case "Mar"
           MsgBox 3
           Case "Apr"
           MsgBox 4
           Case "May"
           MsgBox 5
           Case "Jun"
           MsgBox 6
           Case "Jul"
           MsgBox 7
           Case "Aug"
           MsgBox 8
           Case "Sen"
           MsgBox 9
           Case "Oct"
           MsgBox 10
           Case "Nov"
           MsgBox 11
           Case "Dec"
           MsgBox 12
           Case Else
           MsgBox "Нет такого месяца"
           End Select
End Sub
[/vba]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
где об этом можно прочитать?
Здесь

Модификация формулы (чуть покороче):
Код
=(ПОИСК(ПСТР(A1;2;2);"anebarprayunulugepctovec")+1)/2

Макросом:[vba]
Код
Sub Month()
       Dim m As Range
       Set m = Range("a1")
           Select Case m
           Case "Jan"
           MsgBox 1
           Case "Feb"
           MsgBox 2
           Case "Mar"
           MsgBox 3
           Case "Apr"
           MsgBox 4
           Case "May"
           MsgBox 5
           Case "Jun"
           MsgBox 6
           Case "Jul"
           MsgBox 7
           Case "Aug"
           MsgBox 8
           Case "Sen"
           MsgBox 9
           Case "Oct"
           MsgBox 10
           Case "Nov"
           MsgBox 11
           Case "Dec"
           MsgBox 12
           Case Else
           MsgBox "Нет такого месяца"
           End Select
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 16.08.2013 в 12:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Функция для перевода названия месяца в число (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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