Come evidenziare tutte le celle a cui fa riferimento una formula in Excel?
Questo articolo parla dell'evidenziazione di tutte le celle a cui fa riferimento una formula in Excel. Si prega di seguire i due metodi seguenti per farlo.
Evidenzia tutte le celle a cui fa riferimento una formula con il tasto di scelta rapida
Evidenzia tutte le celle a cui fa riferimento una formula con codice VBA
Evidenzia tutte le celle a cui fa riferimento una formula con il tasto di scelta rapida
Questa sezione ti consiglierà di utilizzare il tasto di scelta rapida per selezionare tutte le celle a cui fa riferimento una formula, quindi riempire manualmente il colore.
1. Supponendo che E1 sia una cella di formula e che sia necessario evidenziare tutte le celle a cui fa riferimento. Seleziona la cella della formula E1, quindi premi Ctrl + [ (la parentesi quadra aperta) tasti contemporaneamente.
2. Ora le celle a cui fa riferimento questa formula sono selezionate, specificare un colore di riempimento per evidenziarle. Vedi screenshot:
Evidenzia tutte le celle a cui fa riferimento una formula con codice VBA
Puoi anche eseguire il codice VBA per evidenziare tutte le celle a cui fa riferimento una formula in Excel.
1. Stampa altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA sottostante nella finestra del modulo.
Codice VBA: evidenzia tutte le celle a cui fa riferimento una formula in Excel
Sub HighlightCellsReferenced()
Dim rowCnt As Integer
Dim i As Integer, j As Integer, strleng As Integer
Dim strTxt As String, strFml As String
Dim columnStr, cellsAddress As String
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
Title:="Kutools For Excel", Type:=8)
strTxt = ""
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Value <> "" Then
strFml = yRg.Formula + " "
strFml = Replace(strFml, "(", " ")
strFml = Replace(strFml, ")", " ")
strFml = Replace(strFml, "-", " ")
strFml = Replace(strFml, "+", " ")
strFml = Replace(strFml, "*", " ")
strFml = Replace(strFml, "/", " ")
strFml = Replace(strFml, "=", " ")
strFml = Replace(strFml, ",", " ")
strFml = Replace(strFml, ":", " ")
For j = 1 To Len(strFml)
If Mid(strFml, j, 1) <> " " Then
cellsAddress = cellsAddress + Mid(strFml, j, 1)
Else
On Error Resume Next
Range(cellsAddress).Interior.ColorIndex = 3
cellsAddress = ""
End If
Next
End If
Next yRg
Application.ScreenUpdating = True
End Sub
3. premi il F5 chiave per eseguire il codice. Nel spuntare Kutools for Excel finestra di dialogo, selezionare una cella della formula o più celle della formula su cui è necessario evidenziare le celle di riferimento in base a, quindi fare clic su OK pulsante. Vedi screenshot:
Ora tutte le celle di riferimento basate sulle celle della formula selezionata vengono evidenziate in rosso immediatamente come mostrato nell'immagine sottostante.
Articoli correlati:
- Come mantenere costante il riferimento della cella della formula in Excel?
- Come fare riferimento al nome della scheda nella cella 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!