Вопрос по Excel

Question

Как сделать так, чтобы в Excel закрашивалась ячейка с гиперссылкой на папку в которую положили файл, а при удалении оставалась бесцветной?

glavqa · Accepted Answer

В Excel нет встроенной функции, которая автоматически отслеживает, 
появился ли файл в папке по ссылке
, и закрашивает ячейку на основе этого. Но можно реализовать это 
через макрос (VBA)
. Вот пошаговое решение:
✅ 
Что нужно:
Ячейка содержит 
гиперссылку на папку
.
Нужно, чтобы ячейка:
окрашивалась, если 
в папке появился хотя бы один файл
;
оставалась бесцветной, если 
папка пустая
.
📌 
Решение на VBA:
Нажмите 
Alt + F11
, чтобы открыть редактор VBA.
Вставьте код ниже в модуль (через 
Insert > Module
):
Sub CheckFoldersAndColorCells()
    Dim rng As Range
    Dim cell As Range
    Dim folderPath As String
    Dim filesInFolder As Object

' Задать диапазон ячеек с гиперссылками
    Set rng = Sheet1.Range(&#34;A2:A100&#34;) ' Замените на ваш диапазон

For Each cell In rng
        If cell.Hyperlinks.Count > 0 Then
            folderPath = cell.Hyperlinks(1).Address

' Убедимся, что путь заканчивается на &#34;\&#34;
            If Right(folderPath, 1) <> &#34;\&#34; Then
                folderPath = folderPath & &#34;\&#34;
            End If

On Error Resume Next
            Set filesInFolder = CreateObject(&#34;Scripting.FileSystemObject&#34;).GetFolder(folderPath).Files
            On Error GoTo 0

If Not filesInFolder Is Nothing Then
                If filesInFolder.Count > 0 Then
                    cell.Interior.Color = RGB(198, 239, 206) ' Светло-зелёный
                Else
                    cell.Interior.ColorIndex = xlNone ' Убрать цвет
                End If
            Else
                cell.Interior.Color = RGB(255, 199, 206) ' Красный — если путь не найден
            End If
        End If
    Next cell
End Sub

🟡 
Как использовать:
Закройте редактор VBA.
Нажмите 
Alt + F8
, выберите 
CheckFoldersAndColorCells
, нажмите 
Выполнить
.
⚙️ Опционально:
Можно запускать макрос автоматически при открытии файла или по кнопке.
Для надёжной работы убедитесь, что у Excel есть доступ к этим папкам (например, если это сетевые диски).
❗Важно:
Макрос не будет работать, если файл Excel сохранён как 
.xlsx
. Нужно сохранить как 
.xlsm (с поддержкой макросов)
.
Такой макрос 
не отслеживает изменения в реальном времени
. Чтобы обновить цвета, нужно 
повторно запустить макрос
 (можно повесить на кнопку).
Экономим ваше время. GLAVQA

leonard_podartsev · Answer

Просто сделай условное форматирование: установи правило, что если ячейка содержит гиперссылку, она окрашивается, а при удалении — возвращается к исходному стилю. Для этого используй формулу типа 
=ISBLANK(A1)
 или 
=HYPERLINK(A1)
. В настройках условного форматирования выбери нужный цвет для гиперссылки и сброс при удалении. Так ячейка будет автоматически менять цвет в зависимости от наличия гиперссылки.