Hogyan lehet lecserélni a tartományneveket cellahivatkozásokra az Excelben?

Vannak, akik szívesebben használnak sok tartománynevet a képletükben, mert úgy érzik, hogy világosabb és könnyebben olvasható és érthető. De ha meg akarja tekinteni a tényleges cellahivatkozásokat, hogyan kell tennie? Itt ez a bemutató két gyors trükköt mutat be a probléma megoldására.

Cserélje ki a tartományneveket VBA kódra;

Gyorsan és egyszerűen cserélje ki a tartományneveket a Kutools for Excel programmal.

Például ebben a munkalapban az A2: A6 tartományt nevezem el eladási ár, és nevezze el a B2 nevet kedvezmény, majd használja mindkét tartomány nevét egy képletben az új ár kiszámításához. Nézze meg a képernyőképeket:

          

A gyors trükkök követése után a tartomány neve helyébe cellahivatkozás lép, az alábbiak szerint:

---

Cserélje ki a tartományneveket VBA kódra

A VBA segítségével a képlet tartományneveit cellahivatkozásokra cserélheti, lépésről lépésre elvégezheti az alábbiak szerint:

1. Válassza ki azt a képletet tartalmazó tartományt, amelynek nevét cellahivatkozásokkal kívánja helyettesíteni.

2. kettyenés Fejlesztő > Visual Basic or Alt + F11 hogy nyisson egy új Microsoft Visual Basic alkalmazásokhoz ablak jelenik meg, kattintson a gombra betétlap>Modulok, majd írja be a következő kódokat a modulba:

VBA-kód: Cserélje ki a tartományneveket abszolút hivatkozással

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 kód: Cserélje ki a tartományneveket relatív hivatkozással

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. Ezután kattintson  gombot a kód futtatásához, megjelenik egy párbeszédpanel a cserélhető tartomány kiválasztásához. Lásd a képernyőképet:

4. Ezután kattintson OK. és az összes kiválasztott képlettartomány-név kicserélődött. Lásd a képernyőképet:

A tartományneveket cserélje ki relatív cellahivatkozásokra		Cserélje ki a tartományneveket abszolút cellahivatkozásokkal

---

Gyorsan és egyszerűen cserélje ki a tartományneveket a Kutools for Excel programmal

Ha van Kutools az Excel számára, annak Cserélje ki a tartományneveket segédprogram segítségével gyorsan és egyszerűen kicserélheti a tartományneveket cellahivatkozásokra.

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Szerezd meg most

1. lépés: Kattintson a gombra, és kattintson rá Kutools > További eszközök > Cserélje ki a tartományneveket. Lásd a képernyőképet:

2. lépés. Egy felugró ablak nevű Cserélje ki a tartományneveket jelenik meg, majd kattintson a gombra Választék szakaszban, majd válassza ki a cellahivatkozásokkal helyettesíteni kívánt tartományt a Bázis tartomány. Lásd a képernyőképet:

3 lépés. Kattints Cserélje, Egy másik Cserélje ki a tartományneveket megjelenik egy felugró párbeszédpanel, amely megadja a módosított képletek és a változatlan képletek számát, kattintson a gombra Ok, majd a kiválasztott tartomány tartománynevei helyébe cellahivatkozások léptek. Lásd a képernyőképet:

Részletesebb információk a Cserélje ki a tartományneveket, Kérjük, látogasson el a Cserélje le a Tartománynevek szolgáltatás leírását.

---

Relatív cikk:

Módosítsa a képletek cellahivatkozását tartománynévre az Excelben