Числа превращаются в даты, если региональные настройки внешней программы не совпадают с настройками вашего Windows и MS Excel. Например, загрузка данных из европейской учётной системы или с американского сайта (где между целой и дробной частью — точка).
Открыв такие файлы в Excel с настройками, где между целой и дробной частью — запятая, а точка используется, как разделитель в дате, мы столкнёмся с этой проблемой.
Решить её поможет макрос:
Копируйте код и сохраните его в Личной книге макросов:
Sub FixNumbersDates() 'Исправление чисел, превратившихся в даты
Dim num As Double, cell As Range
For Each cell In Selection
If Not IsEmpty(cell) Then
If cell.NumberFormat = "General" Then
num = CDbl(Replace(cell, ".", ","))
Else
num = CDbl(Format(cell, "m,yyyy"))
End If
cell.Clear
cell.Value = num
End If
Next cell
End Sub
Открыть редактор VBA Alt +F11, вызвать меню для выполнения или изменения макросов Alt + F8.
Спасибо, что дочитали до конца!
Если Вам было интересно, ставьте лайк, пишите, что думаете в комментариях и подписывайтесь на канал, если еще не сделали этого.
Еще готовые решения:
- Изменение стиля ссылок в таблицах Excel с A1 на R1C1
- Изменение стиля шрифта на листе Excel
- Сортировка ярлычков книги Excel по алфавиту
- Сохранение отдельным файлом текущий лист в новую папку
- Отображение скрытых листов в файлах Excel, выгруженных из 1С
- Отображение всех скрытых листов в книге Excel
- Макросы для преобразования формул в значения
- Макрос вставки в ячейку полного адреса хранения книги
- Макрос вывода списка файлов в папке
Интересное по теме Excel:
- Функции Excel: ВПР (вертикальный просмотр)
- Как переместить строку или столбец в Сводной таблице Excel
- Как напечатать заголовки таблицы Excel на каждой странице
- Как отобразить листы в файлах Excel, выгруженных из 1С
- "Умные" таблицы в Excel
- Мгновенное заполнение
- Быстрое перемещение строк и столбцов