Доброго времени суток!
Уверен, что моя проблема довольно простая, но уже изрыл все просторы интернета и не нашёл никакого адекватного решения. Проблема вот в чём: В таблице есть столбец, в котором даты выкачены из базы данных в формате ДД.ММ.ГГГГ ЧЧ:ММ:СС. Мне же нужно с помощью макроса перевести все ячейки в конкретно выбранном активном столбце (пока не встретиться пустая ячейка) в формат [$-ru-RU]d mmm yy;@.
Например: "02.06.2015 09:02:21" должно превратиться в формат "2 июн 2015".
Я с помощью костылей научился проворачивать это с одной выбранной ячейкой:
Но у меня больше 30000 записей. Помогите с написанием адекватного цикла, прошу(
P.S. Работаю с VBA впервые, поэтому прошу прощения, если ответ уже есть, а я просто неправильно формулировал свой вопрос.
Уверен, что моя проблема довольно простая, но уже изрыл все просторы интернета и не нашёл никакого адекватного решения. Проблема вот в чём: В таблице есть столбец, в котором даты выкачены из базы данных в формате ДД.ММ.ГГГГ ЧЧ:ММ:СС. Мне же нужно с помощью макроса перевести все ячейки в конкретно выбранном активном столбце (пока не встретиться пустая ячейка) в формат [$-ru-RU]d mmm yy;@.
Например: "02.06.2015 09:02:21" должно превратиться в формат "2 июн 2015".
Я с помощью костылей научился проворачивать это с одной выбранной ячейкой:
Код |
---|
ActiveCell.Select SendKeys "{F2} + {ENTER}", True Selection.NumberFormat = "[$-ru-RU]d mmm yy;@" With Selection .HorizontalAlignment = xlRight End With |
Но у меня больше 30000 записей. Помогите с написанием адекватного цикла, прошу(
P.S. Работаю с VBA впервые, поэтому прошу прощения, если ответ уже есть, а я просто неправильно формулировал свой вопрос.