Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
изменение формата данных по date add
 
#1
19.01.2024 08:45:37
Добрый день
Очень извиняюсь если  повторюсь с темой.
Есть часть макроса (как я думаю в которой заключается ошибка), которая выводит все данные в формате месяца прописью (январь, февраль, март и т.д), а не датой (01.01.24, 01.02.24 и т.д.).
Как это поправить...?

Do While work.MergeCells = True

   current_date = ThisWorkbook.Sheets(1).Range("D2") 'начало даты берет с шапки
   next_month = DateAdd("m", 1, current_date)
   days_count = DateDiff("d", current_date, next_month)
 
 
 
#2
19.01.2024 08:56:27
Приложите файл.
 
 
 
#3
19.01.2024 09:04:21
Прикрепила*
 
 
 
#4
19.01.2024 09:06:38
AntaVT Здравствуйте
Цитата
Есть часть макроса (как я думаю в которой заключается ошибка), которая выводит все данные в формате месяца прописью
Вы ошибаетесь эта часть макроса ни причем
 
 
 
#5
19.01.2024 09:45:31
Добрый день. Поменяйте на листе формат ячеек. А макрос тут вообще ни причем (как уже заметили выше)
 
 
 
#6
19.01.2024 09:49:05
Подскажите, почему в таком случае в других файлах данные формируются сразу в нужном формате. Это не отслеживается макросом?
 
 
 
#7
19.01.2024 10:01:39
Мне кажется, что проблема с самим файлом - на вновь создаваемых листах (причем не важно - руками или макросом) все ячейки имеют такой формат. Выход - создать новый файл, скопировать данные из старого файла (только не лист, а именно данные) и отдельно скопировать макрос
 
 
 
#8
19.01.2024 10:22:11
AntaVT,

В качестве костыля вставьте пару строк в начало макроса.

Set NewList = ThisWorkbook.Sheets.Add(, ActiveSheet)

NewList.Cells.NumberFormat = "General"

NewList.Range("C:C").NumberFormat = "dd.mm.yyyy"

NewList.Name = "ВЛ" + CStr(ThisWorkbook.Sheets.Count)
 
 
 
#9
19.01.2024 10:29:29
Цитата
написал:
В качестве костыля вставьте пару строк
я бы не стал - если файл начал вести себя странно, то от него лучше избавиться. Неизвестно, что там поломается в следующий раз.

PS вторая строка в "костыле" избыточна, т.к. при вставке даты в ячейку с общим форматом преобразуется автоматически
 
 
 
#10
19.01.2024 10:38:04
Вообще все оказалось проще. На вкладке Главная в разделе Стили надо найти Обычный, нажать на нем правой кнопкой, выбрать Изменить и в открывшемся окне нажать кнопку Формат и там выбрать Общий. Должно помочь
 
 
 
#11
19.01.2024 11:01:20
спасибо большое за помощь!
 
 
 
Страницы: 1
Наверх