Usuwanie pozornych linków zewnętrznych w programie Excel

Dla wszystkich innych, którzy spędzili godziny na przeczesywaniu swojego pliku, problem może również wystąpić, jeśli skopiowałeś zakres walidacji danych z innego skoroszytu.

Aby to naprawić:

Wstążka–>Plik–>Sprawdź problemy–>Sprawdź zgodność

Spowoduje to wyświetlenie kontrolki, która powie Ci, czy Walidacja wskazuje na zewnętrzny arkusz.

Co najważniejsze, powie ci, w którym arkuszu się znajduje.

W każdym razie, gdy już znasz arkusz(y), przejdź do niego. Teraz

Wstążka–>Home–>strzałka w dół obok Znajdź i wybierz–>Weryfikacja danych.

Spowoduje to wybranie komórek, które mają zastosowaną Walidację Danych.

Teraz

Wstążka–>Dane–>Walidacja danych

i napraw uszkodzone odniesienie w polu “Źródło” lub kliknij “Wyczyść wszystko”, jeśli nie jest to potrzebne.

W końcu namierzyłem to w regułach formatowania warunkowego.

Kliknięcie na “Strona główna - Formatowanie warunkowe - Zarządzaj regułami” powoduje wyświetlenie następującego okna dialogowego, które jest stosunkowo łatwe do przejrzenia i zastąpienia zewnętrznych odniesień.

Jeśli skoroszyt jest duży nie jest łatwo znaleźć warunek formatu z zewnętrznym odniesieniem. Napisałem tę funkcję VBA, aby to znaleźć. Ograniczony do 80 kolumn i 500 wierszy, aby zmniejszyć czas wykonania. kiedy funkcja się zatrzyma można sprawdzić pozycję pytając:

?foglio.name
 ?cella.row
 ?cella.column

    Public Function CercaLink()
    Dim Cella As Object, i&, Foglio As Object
    For Each Foglio In ActiveWorkbook.Sheets
       ActiveWorkbook.Sheets(Foglio.Name).Select
       For Each Cella In ActiveSheet.Cells
         If Cella.Column < 80 Then
           If Cella.FormatConditions.Count > 0 Then
              For i = 1 To Cella.FormatConditions.Count
                 If InStr(1, Cella.FormatConditions(i).Formula1, ":\") > 0 Then Stop
              Next
           End If
        End If
        If Cella.Row > 500 Then Exit For
     Next
  Next
  End Function