Переименовать имена в зависимости от квартала файла - Microsoft Office Excel - Страница 2

valerij · 05.04.2013, 00:55

Господа, опять нужна ваша помощь.
Мозг кипит.
Как из имени файла, например - Январь.xls, получить номер месяца?

Код:

MsgBox Split(ThisWorkbook.Name, ".")(0) 'имя книги без расширения

Получаю Январь и стопор.

EducatedFool · 05.04.2013, 08:34

Код:

НомерМесяца = month("1 " & Split(ThisWorkbook.Name, ".")(0))

valerij · 05.04.2013, 09:22

Цитата:

Сообщение от EducatedFool

[CODE]

С П А С И Б О.

(\__/)
(='.'=)
E[:]|||[:]З
(")_(")

IgorGO · 05.04.2013, 10:52

Валера, а квартал потом так:

Код:

Квартал = Int((НомерМесяца-1)/3)+1

вот запрограммируешь все и... останешься без работы, аккуратнее там

DiemonStar · 05.04.2013, 11:21

Игорь,

можно сделать чуть проще:

Код:

Квартал = (НомерМесяца-1)\3+1

бэкслеш подразумевает целочисленное деление

valerij · 05.04.2013, 15:38

Спасибо.
Спасибо.
Спасибо.

Сложу все эти даты в отдельную папку, буде как энциклопедия.

Как сложно все по новой, зашился по уши, хорошо что копии есть.

Цитата:

и... останешься без работы

Останешься, тут. Игорь, что не месяц то "новости" - переделывай...
От страна - как наши дороги.

05.04.2013, 00:55	#11
valerij Старожил Регистрация: 12.05.2007 Сообщений: 2,339	Господа, опять нужна ваша помощь. Мозг кипит. Как из имени файла, например - Январь.xls, получить номер месяца? Код: `MsgBox Split(ThisWorkbook.Name, ".")(0) 'имя книги без расширения` Получаю Январь и стопор.

05.04.2013, 08:34	#12
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Код: `НомерМесяца = month("1 " & Split(ThisWorkbook.Name, ".")(0))` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

05.04.2013, 10:52	#14
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Валера, а квартал потом так: Код: `Квартал = Int((НомерМесяца-1)/3)+1` вот запрограммируешь все и... останешься без работы, аккуратнее там Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

05.04.2013, 11:21	#15
DiemonStar Старожил Регистрация: 08.02.2012 Сообщений: 2,173	Игорь, можно сделать чуть проще: Код: `Квартал = (НомерМесяца-1)\3+1` бэкслеш подразумевает целочисленное деление Правильно поставленная задача - три четверти решения.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задать автоматически дату в форме (начало квартала)	nataxa312	Microsoft Office Access	1	06.04.2012 14:58
открытие файла с изменяющимся именем в зависимости от дыты	dedelev	Microsoft Office Excel	2	31.01.2011 08:45
ВПР - выбор файла в зависимости от имени	Questru	Microsoft Office Excel	19	08.12.2010 10:40
Переместить файлы по папкам, в зависимости от имени файла	Paul Hindenburg	Общие вопросы Delphi	1	07.07.2009 09:50
Как можно извлечь все имена разделов Ini файла в юникоде?	SkAndrew	Общие вопросы Delphi	5	11.06.2009 09:03