• Авторизация
Дневник Yon_Shannou Лента друзей - Дневник - Полная версия


и снова здравствуйте 05-06-2018 13:01 к комментариям - к полной версии - понравилось!


Настроение сейчас - победитель!

уже некоторое время витает идея снова сюда писать. почему - наверное, об этом будет следующий пост.

нынче же - о насущном. а именно, о расписании. собственно, пост из рубрики "хозяйке на заметку".

гадский сервис РЖД прекратил печатать расписание электричек в бумажном виде, чем сильно огорчил пенсионеров. ввиду этой беды я уже не первый год печатаю расписание с сайта туту.ру. всю дорогу технология была очень проста: скопировать расписание с сайта, вставить в эксель, убрать пустые строки и столбцы - вуаля, полгода нет проблем. нынче же расписание на сайте с гиперссылками, хитроформатированное и его так просто не скопируешь. мало того, при удалении гиперссылок эксель считает, что его прямой долг - выполнить операцию деления (в тех ячейках, где стоит время отправления/прибытия поездов) или в некоторых ячейках просто поставить произвольную дату. значит, какова теперь технология.

1. на сайте перейти в режим печати (там расписание видно по-старому)

2. скопировать расписание в эксель

3. в экселе выполнить "формат - автоформат", снять галку с пункта "замена чисел"

4. войти в поиск и заменить все двоеточия на запятые

5. использовать макрос

Sub УдалениеГиперссылок()
For Each sh In ThisWorkbook.Worksheets
sh.Hyperlinks.Delete
Next
End Sub
 
6. использовать VBM элемент 
 
Sub Udalenie_Pustyh_Stolbtsov()
Dim c As Long, FirstColumn As Long, LastColumn As Long
FirstColumn = ActiveSheet.UsedRange.Column
LastColumn = ActiveSheet.UsedRange.Columns.Count - 1 + ActiveSheet.UsedRange.Column
    For c = LastColumn To FirstColumn Step -1
        If Application.CountA(Columns(c)) = 0 Then
            Columns(c).Delete
        End If
    Next c
End Sub
 
7. провесть обратную замену запятых на двоеточия
8. изменить формат ячеек на время и выбрать способ отображения без секунд
9. произвести некоторые косметические доработки, как-то изменение размера шрифта, добавление заголовка - и расписание готово.
 
беда в том, что постоянно приходится вспоминать этот алгоритм и, что хуже, рожать его заново. сегодня я потратил на это час. но теперь буду умнее!

вверх^ к полной версии понравилось! в evernote


Вы сейчас не можете прокомментировать это сообщение.

Дневник и снова здравствуйте | Yon_Shannou - И ПРАВИЛЬНО... | Лента друзей Yon_Shannou / Полная версия Добавить в друзья Страницы: раньше»