Ինչպե՞ս փոխարինել տիրույթի անունները Excel- ում բջջային հղումներով:
Որոշ մարդիկ նախընտրում են իրենց շարադրանքներում օգտագործել շատ ընդգրկույթների անուններ, քանի որ կարծում են, որ դրանք ավելի պարզ և հեշտ է կարդալու և հասկանալու համար: Բայց եթե ուզում եք տեսնել բջիջների իրական հղումները, ինչպե՞ս պետք է անեք: Այստեղ այս ձեռնարկը կներկայացնի երկու արագ հնարքներ ՝ այս խնդիրը լուծելու համար:
Փոխարինեք տիրույթի անունները VBA կոդով;
Արագ և հեշտությամբ փոխարինեք տիրույթի անունները Excel- ի համար Kutools- ով.
Օրինակ, այս աշխատանքային թերթում ես A2- ի տիրույթը կկոչեմ `A6 որպես վաճառքի գին, և անվանեք B2 որպես զեղչ, և ապա բանաձևում օգտագործելով և՛ միջակայքի անվանումը ՝ նոր գինը հաշվարկելու համար: Տեսեք,
Արագ հնարքներին հետևելուց հետո ընդգրկույթի անվանումը կփոխարինվի բջիջների հղումով, ինչպես ցույց է տրված ստորև:
Փոխարինեք տիրույթի անունները VBA կոդով
Օգտագործելով VBA ՝ բանաձևի տիրույթի անունները բջջային հղումներով փոխարինելու համար, այն կարող եք կատարել քայլ առ քայլ, հետևյալ կերպ.
1. Ընտրեք այն միջակայքը, որը պարունակում է այն բանաձևերը, որոնք ցանկանում եք փոխարինել դրանց անունները բջջային հղումներով:
2: սեղմեք Երեվակիչ > Visual Basic or Alt + F11 նոր բացել Microsoft Visual Basic հավելվածների համար պատուհանը կցուցադրվի, կտտացրեք Տեղադրել>Մոդուլներ, և ապա մուտքագրեք հետևյալ կոդերը մոդուլում.
VBA կոդ. Փոխարինեք տիրույթի անունները Բացարձակ հղումով
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 կոդ. Փոխարինեք տիրույթի անունները հարաբերական հղումով
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. Այնուհետեւ կտտացրեք Կոդը գործարկելու կոճակը ցուցադրում է երկխոսություն ՝ փոխարինելու տիրույթ ընտրելու համար: Տեսեք,
4. Այնուհետեւ կտտացրեք OK, և ընտրված բանաձևի տիրույթի բոլոր անունները փոխարինվել են: Տեսեք,
Փոխարինեք տիրույթի անունները բջիջների հարաբերական հղումներով |
Փոխարինեք տիրույթի անունները բջիջների բացարձակ հղումներով |
Արագ և հեշտությամբ փոխարինեք տիրույթի անունները Excel- ի համար Kutools- ով
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներ, նրա Փոխարինեք տիրույթի անունները օգտակար ծրագիրը կօգնի ձեզ արագ և հեշտությամբ փոխարինել տիրույթի անունները բջիջների հղումներով:
Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Get it Now
Քայլ 1. Խնդրում ենք կիրառել այս օգտակար ծրագիրը ՝ կտտացնելով Կուտոլս > Լրացուցիչ գործիքներ > Փոխարինեք տիրույթի անունները, Տեսեք,
Քայլ 2. Թռուցիկ երկխոսություն անունով Փոխարինեք տիրույթի անունները ցուցադրվում է և կտտացրեք Շարք բաժինը և այնուհետև ընտրեք այն տիրույթը, որը ցանկանում եք փոխարինել բջջային հղումներով Բազայի շարքը, Տեսեք,
Քայլ 3. Սեղմել ՓոխարինելՄեկ Փոխարինեք տիրույթի անունները -ուցադրվում է pop-up երկխոսությունը, որը ձեզ կասի փոփոխված բանաձևերի և անփոփոխ բանաձևերի քանակը, կտտացրեք Ok, և ապա ընտրված զանգի տիրույթի անունները փոխարինվել են բջիջների հղումներով: Տեսեք,
Մասին ավելի մանրամասն տեղեկություններ ստանալու համար Փոխարինեք տիրույթի անունները, Խնդրում ենք այցելել Փոխարինեք ընդգրկույթի անվանումների առանձնահատկության նկարագրությունը.
Հարաբերական հոդված:
Փոխեք բջիջների հղումը բանաձևերում ՝ Excel- ում անուններ ընդգրկելու համար
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: