Групповое переименование гиперссылок в Excel.

На днях ко мне обратились уважаемые люди, и попросили помочь с проблемой:

А проблема оказалась в том, что в определенный момент «что-то пошло не так», у людей файл Excel был сохранен на сетевом диске \\ и гиперссылки в этом же файле ссылались на другие папки этого же сетевого диска, но в определенный момент несмотря на то, что файл так и остался на сетевом диске, и вроде бы с ним ничего не случилось, все гиперссылки в нем, вдруг стали ссылаться в временную папку локального диска, соответственно, говоря простыми словами: «все пошло по бороде».

И можно было бы не расстраиваться, если бы это была пара гиперссылок, но править руками 500+ ссылок, это так себе идея-и это стало реальной проблемой, и интересным вопросом для меня одновременно.

Что на эту тему рекомендуют коллеги, читаем здесь. И скрипт реально рабочий:

Sub FixHyperLinks()

Dim h As Hyperlink

    Dim sOld As String

    Dim sNew As String

    sOld = «C:\»

    sNew = «J:\»

    For Each h In ActiveSheet.Hyperlinks

        h.Address = Replace(h.Address, sOld, sNew)

    Next h

End Sub

 Теперь к делу…

Правой кнопкой на верхнем меню Excel (у меня на англицком, но на русском аналогично)

Добавляем раздел Developer

В разделе Developer открываемVisual Basic

В открывшемся окне выбираем

Правой кнопкой Insert-Module

В правом окне появившегося модуля вставляем непосредственно сам скрипт и меняем необходимые нам пути:

Запускаем Run Macro

И наслаждаемся массово переименованными, уже правильными ссылками. Проблема решена, и это радует… Подменяем предыдущий битый файлик новым с правильными ссылками и продолжаем работать дальше.

Всем хорошей работы!!!

Как посчитать ячейки в Excel?

Недавно поступил интересный вопрос от департамента персонала: Как посчитать ячейки в Excel?

По началу было не понятно, что считать и зачем, но в последствии разобрались: оказалось коллеги проставляют в ячейки букву «R»=по 8 часов каждый день, и в конце месяца им просто необходимо понимать сколько таких ячеек=рабочих дней было.

Для решения такой задачи, будет полезна функция =СЧЁТЕСЛИ(диапазон; критерий)

Вот как это выглядит в моем файле примере: =COUNTIF(B1:B3,»R»)

Ну и соответственно, уже в рабочем файле: =COUNTIF(HW19:HW211,»r»)

Подробно про эту функцию, здесь.

Интересный сайт по теме и похожим вопросам здесь.

Всем хорошей работы !!!

Гиперссылка на папку в документе или pdf файле.

На минувшей неделе поступил достаточно интересный вопрос, который ранее в моей практике никогда не встречался:

Как сделать гиперссылку в документе или pdf файле, чтоб открывалась обычная папка (на локальном ПК или сетевом диске-это не важно)? В которой будут лежать другие файлы и инструкции для пользователей.

Если посмотреть стандартные инструменты того же Word, то на вскидку, штатных инструментов я не обнаружил:

аналогичная ситуация и в редакторе pdf:

как видно на картинке, здесь есть все, что угодно, только не то, что мне нужно в этот раз.

Поэтому, придется подставить своего рода «костыль», и такой костыль есть, и он благополучно работает…

Делаем обычную web ссылку следующего вида:

file:///C:\distr

При переходе по ссылке Word высвечивает предупреждение по безопасности, не обращаем на это внимание.

И получаем, то что надо.

ссылки в документах pdf, аналогичны.

Кому интересно, подробно о разных видах ссылок, зачитать можно здесь.

Всем хорошей работы !!!