Kun avaan asiakirjan, Excel ilmoittaa aina, että olis linkkejä muihin tiedostoihijn ja päivitetänkö ne. Ei pitäisi olla. Millä konstilla ne saisi selville ja poistettua?
Linkit näkyviin
Anonyymi
1290
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
No vaikkapa tällaisella
Sub Tarkista()
For Each c In Worksheets("Sheet1").Range("A1:c5")
With c.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
If c.Value <> "" Then
cc = c.Value
If c.HasFormula = True Then ' 111
c.Interior.ColorIndex = 38
If InStr(c.Formula, "!") > 0 Then
c.Interior.ColorIndex = 7 ' !linkki
End If
If InStr(c.Formula, "[") > 0 Then
c.Interior.ColorIndex = 3 ' Red !linkki
End If
' c.Interior.ColorIndex = 4 ' Green
Else
c.Interior.ColorIndex = 4
If c.HasArray = True Then
c.Interior.ColorIndex = 15 '
End If
If IsNumeric(cc) = True Then
c.Interior.ColorIndex = 6 'Yellow
End If
End If ' 111
End If
Next c
End Sub
Function IsFormula(cell_ref As Range)
IsFormula = cell_ref.HasFormula
End Function
End Function