Hoe bereiknamen vervangen door celverwijzingen in Excel?
Sommige mensen geven er de voorkeur aan om veel bereiknamen in hun formules te gebruiken omdat ze vinden dat het duidelijker en gemakkelijker te lezen en te begrijpen is. Maar als u de daadwerkelijke celverwijzingen wilt zien, hoe moet u dat dan doen? Hier introduceert deze tutorial twee snelle trucs om dit probleem op te lossen.
Vervang bereiknamen door VBA-code;
Vervang bereiknamen snel en gemakkelijk met Kutools voor Excel.
In dit werkblad noem ik bijvoorbeeld bereik A2: A6 als verkoopprijs, en noem B2 als kortingen vervolgens de bereiknaam in een formule gebruiken om de nieuwe prijs te berekenen. Zie screenshot:
Na het volgen van de snelle trucs, wordt de bereiknaam vervangen door celverwijzing zoals hieronder weergegeven:
Vervang bereiknamen door VBA-code
Als u VBA gebruikt om de bereiknamen van de formule te vervangen door celverwijzingen, kunt u dit stap voor stap als volgt doen:
1. Selecteer het bereik met de formules waarvan u de namen wilt vervangen door celverwijzingen.
2. klikken Ontwikkelaar > Visual Basic or Alt + F11 om een nieuw te openen Microsoft Visual Basic voor applicaties venster wordt weergegeven, klik op Invoegen>Module, en voer vervolgens de volgende codes in de module in:
VBA-code: vervang bereiknamen door absolute referentie
Sub AbsoleteNamesWithRelativeRefs()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
End If
Next
Next
End Sub
VBA-code: vervang bereiknamen door relatieve verwijzing
Sub ReplaceNamesWithRelativeRefs()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
End If
Next
Next
End Sub
3. Dan klikken knop om de code uit te voeren, verschijnt er een dialoogvenster voor het selecteren van een bereik om te vervangen. Zie screenshot:
4. Dan klikken OK. en alle geselecteerde namen van het formulebereik zijn vervangen. Zie screenshot:
Vervang bereiknamen door relatieve celverwijzingen |
Vervang bereiknamen door absolute celverwijzingen |
Vervang bereiknamen snel en gemakkelijk met Kutools voor Excel
Als je Kutools for Excel, het is Vervang bereiknamen hulpprogramma helpt u bereiknamen snel en gemakkelijk te vervangen door celverwijzingen.
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Get it Now
Stap 1. Pas dit hulpprogramma toe door op te klikken Kutools > Meer tools > Vervang bereiknamen. Zie screenshot:
Stap 2. Een pop-upvenster met de naam Vervang bereiknamen wordt weergegeven en klik op RANGE sectie en selecteer vervolgens het bereik dat u wilt vervangen door celverwijzingen uit het Basisbereik. Zie screenshot:
Stap 3. Klik vervangen, Andere Vervang bereiknamen Er wordt een pop-upvenster weergegeven om u het aantal gewijzigde formules en ongewijzigde formules te vertellen, klik op Ok, en vervolgens zijn de bereiknamen in het geselecteerde bereik vervangen door celverwijzingen. Zie screenshot:
Voor meer gedetailleerde informatie over Vervang bereiknamenKunt u terecht op Functiebeschrijving van bereiknamen vervangen.
Relatief artikel:
Wijzig celverwijzing in formules in bereiknamen in Excel
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!