Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
Captain_Hemp
3 / 3 / 0
Регистрация: 22.05.2017
Сообщений: 32
Завершенные тесты: 2
1

Макрос для смены формата даты

04.07.2017, 10:10. Просмотров 2899. Ответов 16

Добрый день ! Как с помощью макроса поменять формат даты в столбце данных на dd/mm/yyyy для дальнейшего импорта xls-файла в базу данных ?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.07.2017, 10:10
Ответы с готовыми решениями:

Макрос для изменения формата даты
Уважаемые форумчане, может кто-то предложить макрос для перевода даты в формате 12/01/2016 в...

Макрос для смены столбцов
Доброго времени суток! Форумчане,SOS! Need help!! Нужно сделать макрос для перемены столбцов. Смысл...

Макрос для преобразования формата данных
Доброго времени суток! У меня такая ситуация. Есть дата в текстовом формате (в строке формула...

Word: макрос для смены нумерации в нижнем колонтитуле в поле
Есть документы, в которых нумерация отображена в полях стр. { PAGE } из { =SUM(2;- число) },...

16
Narimanych
862 / 613 / 303
Регистрация: 23.03.2015
Сообщений: 2,096
04.07.2017, 11:04 2
Как вариант:
Columns(x).NumberFormat = "dd/mm/yyyy;"
где x- номер столбца.
0
Captain_Hemp
3 / 3 / 0
Регистрация: 22.05.2017
Сообщений: 32
Завершенные тесты: 2
04.07.2017, 11:09  [ТС] 3
Narimanych, Тобишь мне огласить макрос, вписать туда вышеприведенный код ? Извините, просто первый раз столкнулся с надобностью написания макроса.
0
Narimanych
862 / 613 / 303
Регистрация: 23.03.2015
Сообщений: 2,096
05.07.2017, 08:05 4
Пробуйте...
Если что- на связи...
0
Captain_Hemp
3 / 3 / 0
Регистрация: 22.05.2017
Сообщений: 32
Завершенные тесты: 2
05.07.2017, 08:27  [ТС] 5
Narimanych, я немного порылся, почитал литературу и вот что у меня вышло:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub data()
'ëèñò 1 è 2
Worksheets("ðîçïë.(ðàõ.1)").Range("M7:M10000").NumberFormat = "DD/MM/YYYY"
Worksheets("äåìîíòàæ(ðàõ.2)").Range("M7:M10000").NumberFormat = "DD/MM/YYYY"
'ëèñò 3
Worksheets("ïëîìá.(ðàõ.3)").Range("M7:M10000").NumberFormat = "DD/MM/YYYY"
Worksheets("ïëîìá.(ðàõ.3)").Range("R7:R10000").NumberFormat = "DD/MM/YYYY"
Worksheets("ïëîìá.(ðàõ.3)").Range("W7:W10000").NumberFormat = "DD/MM/YYYY"
'ëèñò 4
Worksheets("ìîíòàæ(ðàõ.4)").Range("M7:M10000,R7:R10000,W7:W10000").NumberFormat = "DD/MM/YYYY"
'ëèñò 5
Worksheets("ïîâ³ðêà,ÖÑÌ(ðàõ.5,6)").Range("G7:G10000").NumberFormat = "DD/MM/YYYY"
'ëèñò 6
Worksheets("ðåìîíò(ðàõ.7)").Range("K6:K10000").NumberFormat = "DD/MM/YYYY"
End Sub
Но загвоздка в том, что теперь макрос редактирует ячейки до первой попавшейся пустой и дальше ни в какую не изъявляет желание трудиться. Поискал в "паутине", но ничего толкового не нашел по этой проблеме.
0
Narimanych
862 / 613 / 303
Регистрация: 23.03.2015
Сообщений: 2,096
05.07.2017, 08:31 6
Прикрепите пожалуйста ваш файл.
0
Captain_Hemp
3 / 3 / 0
Регистрация: 22.05.2017
Сообщений: 32
Завершенные тесты: 2
05.07.2017, 08:43  [ТС] 7
К сожалению не могу его прикрепить, там конфиденциальная информация.
0
Narimanych
862 / 613 / 303
Регистрация: 23.03.2015
Сообщений: 2,096
05.07.2017, 08:52 8
Посмотрите прикрепленный файл- там все работает...
0
Вложения
Тип файла: rar Date Format Change.rar (34.2 Кб, 5 просмотров)
Captain_Hemp
3 / 3 / 0
Регистрация: 22.05.2017
Сообщений: 32
Завершенные тесты: 2
05.07.2017, 09:03  [ТС] 9
Narimanych, вот файл, примеры дат с исходника.
0
Вложения
Тип файла: rar Лист Microsoft Excel.rar (52.2 Кб, 4 просмотров)
OLEGOFF
996 / 458 / 115
Регистрация: 27.02.2013
Сообщений: 1,323
05.07.2017, 09:15 10
Выделить столбец и выровнять текст по правому краю
0
Captain_Hemp
3 / 3 / 0
Регистрация: 22.05.2017
Сообщений: 32
Завершенные тесты: 2
05.07.2017, 09:37  [ТС] 11
OLEGOFF, и это ни к чему не приводит.
0
Narimanych
862 / 613 / 303
Регистрация: 23.03.2015
Сообщений: 2,096
05.07.2017, 10:24 12
Посмотрите... (как вариант)
0
Вложения
Тип файла: rar NN.rar (19.1 Кб, 3 просмотров)
Captain_Hemp
3 / 3 / 0
Регистрация: 22.05.2017
Сообщений: 32
Завершенные тесты: 2
09.07.2017, 15:52  [ТС] 13
Narimanych, Добрый день. Я попробовал Ваш макрос, который Вы присылали. Но он работает немного не корректно, самому его исправить и понять в чём причина не получилось. Ниже приклепляю исходный файл и скрин работы макроса.
0
Миниатюры
Макрос для смены формата даты  
Вложения
Тип файла: rar тест.rar (109.5 Кб, 4 просмотров)
Narimanych
862 / 613 / 303
Регистрация: 23.03.2015
Сообщений: 2,096
10.07.2017, 08:39 14
Captain_Hemp,
Пришлите исходный файл до обработки кодами...

P.S. Вы в коде написали "Sheets(3).Columns(13).NumberFormat = "DD\/MM\/YYYY" "
вместо Sheets(3).Columns(13).NumberFormat = "DD/MM/YYYY"
0
Captain_Hemp
3 / 3 / 0
Регистрация: 22.05.2017
Сообщений: 32
Завершенные тесты: 2
10.07.2017, 09:13  [ТС] 15
Narimanych, Вот исходник. Про формат где-то в л-ре увидел, что так используется. Может и ошибка.
0
Вложения
Тип файла: rar 1.rar (98.2 Кб, 3 просмотров)
Narimanych
862 / 613 / 303
Регистрация: 23.03.2015
Сообщений: 2,096
12.07.2017, 09:14 16
Captain_Hemp,
Посмотрите прикреленный файл
0
Вложения
Тип файла: rar 1Rev.rar (108.2 Кб, 2 просмотров)
nodirstein
25 / 25 / 8
Регистрация: 12.04.2015
Сообщений: 75
12.07.2017, 14:18 17
1.rar
0
12.07.2017, 14:18
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.07.2017, 14:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Word макрос для копирования документа с учетом формата
Добрый день, форумчане! Подскажите пожалуйста, есть задачка. Макросом открывается файл Word...

Способы смены формата ячейки
Доброе время суток! Ситуация такая: копирую десятизначное число (номер телефона) из одной ячейки в...

Вариант смены формата даты
Здравствуйте. Как сменить формат даты не убирая звездочку в данном случае?например убрать время....

Макрос или экшен для смены текста
Есть логотим на котором нанесена дата и время (таких файлов много 4 файла на каждый день с разным...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.