Andrey F, формулой (это же мы про условное форматирование) Вы не сможете скрыть столбцы, по крайней мере, я не знаю как . Максимум - сделать данные белыми/убрать границы, НО поставив в параметрах страницы "чёрно-белая печать", все "скрытые" таким образом данные распечатаются Да и таблица будет не по центру листа...
Sub ЗначДата()
Name = ActiveSheet.Name
iCol = 2 'задаём номер столбца
With Sheets(Name).Columns(iCol)
.ColumnWidth = 9.14 'задаём ширину столбца
.NumberFormat = "m/d/yyyy" 'задаём формат Даты "ДД.ММ.ГГГГ"
End With
ii = 2 'цикл на преобразование значений в Дату
While Sheets(Name).Cells(ii, iCol) <> ""
Sheets(Name).Cells(ii, iCol) = CDate(Sheets(Name).Cells(ii, iCol))
ii = ii + 1
Wend
End Sub
Изменено: Вячеслав - 11.08.2016 14:09:04(Внесены корректировки в код после ознакомления с файлом-примером)
Выкладываю далёкий от совершенства, но всё же готовый результат Если найдутся желающие оптимизировать код - буду только рад! Внимание! По 10 строке приходит ответ "3А", которого нет в документации. Расшифровка была получена ручным запросом к сервису.
best2000, Ваш случай больше на "глюк" смахивает. Вижу, что после удаления строк добавляются строки с форматированными ячейкам, НО причину пока не понимаю. Меня другой вопрос интересует. Как у Вас файл с 3 листами и форматированными ячейкам на 9 столбцов и 1 048 569 строк весит +/- 11 Кб? Т.к. у меня созданный с нуля (полностью чистый) файл *.xlsx с 1 листом весит +/- 8 Кб, а если на 9 столбцов и 1 048 569 строк добавить границы, то файл тяжелеет до +/- 25,1 Мб. При этом при удалении пустых строк без границ добавляются строки без границ.
Если я правильно понимаю, все возможные результаты описаны в документации к этому сервису. Запрос без указания КПП возвращает "Налогоплательщик с указанным ИНН зарегистрирован в ЕГРН", что само по себе не очень интересно, поэтому интересует т.н. "Вторая версия сервиса" (3-4 станицы документации). Образец с данными обновлён.
Доброго дня, форумчане! Пожалуйста, помогите решить задачу (думаю, многим пригодится): Начиная с 1 квартала 2015 г. в налоговую декларацию по НДС должны включаться сведения из книг покупок, книг продаж и т.д. - не суть. Учитывая изложенное, ФНС России был создан сервис (http://npchk.nalog.ru/) для проверки контрагентов. Среди прочего имеется SOAP - интерфейс к данному сервису.
Я не программист. Опыта/знаний по обращениям к внешним данным из VBA у меня ноль целых шиш десятых, поэтому никак не могу разобраться в документации этого мыльного интерфейса для правильного обращения с ним Плз, ХЭЛП!
Изменено: Вячеслав - 07.04.2015 18:54:43(Залил образец с данными, которые возвращают разные результаты.)