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

@Captain_Hemp · Регистрация: 22.05.2017

Студворк — интернет-сервис помощи студентам

Добрый день ! Как с помощью макроса поменять формат даты в столбце данных на dd/mm/yyyy для дальнейшего импорта xls-файла в базу данных ?

@Narimanych · 04.07.2017, 11:04

Как вариант:
Columns(x).NumberFormat = "dd/mm/yyyy;"
где x- номер столбца.

@Captain_Hemp · 04.07.2017, 11:09 **[ТС]**

Narimanych, Тобишь мне огласить макрос, вписать туда вышеприведенный код ? Извините, просто первый раз столкнулся с надобностью написания макроса.

@Narimanych · 05.07.2017, 08:05

Пробуйте...
Если что- на связи...

@Captain_Hemp · 05.07.2017, 08:27 **[ТС]**

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

Но загвоздка в том, что теперь макрос редактирует ячейки до первой попавшейся пустой и дальше ни в какую не изъявляет желание трудиться. Поискал в "паутине", но ничего толкового не нашел по этой проблеме.

@Narimanych · 05.07.2017, 08:31

Прикрепите пожалуйста ваш файл.

@Captain_Hemp · 05.07.2017, 08:43 **[ТС]**

К сожалению не могу его прикрепить, там конфиденциальная информация.

@Narimanych · 05.07.2017, 08:52

Посмотрите прикрепленный файл- там все работает...

@Captain_Hemp · 05.07.2017, 09:03 **[ТС]**

Narimanych, вот файл, примеры дат с исходника.

@OLEGOFF · 05.07.2017, 09:15

Выделить столбец и выровнять текст по правому краю

@Captain_Hemp · 05.07.2017, 09:37 **[ТС]**

OLEGOFF, и это ни к чему не приводит.

@Narimanych · 05.07.2017, 10:24

Посмотрите... (как вариант)

@Captain_Hemp · 09.07.2017, 15:52 **[ТС]**

Narimanych, Добрый день. Я попробовал Ваш макрос, который Вы присылали. Но он работает немного не корректно, самому его исправить и понять в чём причина не получилось. Ниже приклепляю исходный файл и скрин работы макроса.

@Narimanych · 10.07.2017, 08:39

Captain_Hemp,
Пришлите исходный файл до обработки кодами...

P.S. Вы в коде написали "Sheets(3).Columns(13).NumberFormat = "DD\/MM\/YYYY" "
вместо Sheets(3).Columns(13).NumberFormat = "DD/MM/YYYY"

@Captain_Hemp · 10.07.2017, 09:13 **[ТС]**

Narimanych, Вот исходник. Про формат где-то в л-ре увидел, что так используется. Может и ошибка.

@Narimanych · 12.07.2017, 09:14

Captain_Hemp,
Посмотрите прикреленный файл

@nodirstein · 12.07.2017, 14:18

1.rar

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Captain_Hemp 3 / 3 / 0 Регистрация: 22.05.2017 Сообщений: 32

	Макрос для смены формата даты 04.07.2017, 10:10. Показов 8810. Ответов 16 Метки excel, vba (Все метки) Добрый день ! Как с помощью макроса поменять формат даты в столбце данных на dd/mm/yyyy для дальнейшего импорта xls-файла в базу данных ? 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	04.07.2017, 11:04
	Как вариант: Columns(x).NumberFormat = "dd/mm/yyyy;" где x- номер столбца. 0

@Captain_Hemp 3 / 3 / 0 Регистрация: 22.05.2017 Сообщений: 32
	04.07.2017, 11:09 [ТС]
	Narimanych, Тобишь мне огласить макрос, вписать туда вышеприведенный код ? Извините, просто первый раз столкнулся с надобностью написания макроса. 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	05.07.2017, 08:05
	Пробуйте... Если что- на связи... 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	05.07.2017, 08:31
	Прикрепите пожалуйста ваш файл. 0

@Captain_Hemp 3 / 3 / 0 Регистрация: 22.05.2017 Сообщений: 32
	05.07.2017, 08:43 [ТС]
	К сожалению не могу его прикрепить, там конфиденциальная информация. 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	05.07.2017, 09:15
	Выделить столбец и выровнять текст по правому краю 0

@Captain_Hemp 3 / 3 / 0 Регистрация: 22.05.2017 Сообщений: 32
	05.07.2017, 09:37 [ТС]
	OLEGOFF, и это ни к чему не приводит. 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	10.07.2017, 08:39
	Captain_Hemp, Пришлите исходный файл до обработки кодами... P.S. Вы в коде написали "Sheets(3).Columns(13).NumberFormat = "DD\/MM\/YYYY" " вместо Sheets(3).Columns(13).NumberFormat = "DD/MM/YYYY" 0

@nodirstein 32 / 32 / 8 Регистрация: 12.04.2015 Сообщений: 79
	12.07.2017, 14:18
	1.rar 0