Come rimuovere i collegamenti ipertestuali senza rimuovere la formattazione?
In Excel, quando cancelliamo i collegamenti ipertestuali che hanno una certa formattazione, come il colore di sfondo, il carattere, la dimensione e così via, la formattazione verrà rimossa e verrà mostrato lo screenshot seguente. Ma, a volte, dobbiamo mantenere la formattazione della cella quando rimuoviamo i collegamenti ipertestuali. Ci sono modi per aiutarci a risolvere questo fastidioso problema?
 |
 |
 |
Rimuovi i collegamenti ipertestuali senza rimuovere la formattazione con il codice VBA
Rimuovi i collegamenti ipertestuali senza rimuovere la formattazione con il codice VBA
In Excel, non esiste un modo diretto per gestire questa attività, ma è possibile applicare il seguente codice VBA per preservare la formattazione della cella durante la rimozione dei collegamenti ipertestuali.
1. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.
2. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.
Codice VBA: rimuovi i collegamenti ipertestuali senza rimuovere la formattazione
Sub RemoveHlinks()
'Update 20141024
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
Set Rng = xLink.Range
Rng.Copy TempRng
Rng.ClearHyperlinks
Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
TempRng.Copy
Rng.PasteSpecial xlPasteFormats
TempRng.Clear
Next
End Sub
3. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare le celle che contengono i collegamenti ipertestuali, vedi screenshot:
4. E poi clicca OK per chiudere la finestra di dialogo, i collegamenti ipertestuali vengono rimossi, ma viene mantenuta la formattazione dei collegamenti ipertestuali (comprese le sottolineature).
Articoli correlati:
Come modificare più percorsi di collegamento ipertestuale contemporaneamente in Excel?
Come estrarre gli indirizzi effettivi dai collegamenti ipertestuali in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
