Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս փոխել / փոխել բացարձակ հղումը Excel- ի հարաբերական հղմանը:

Սովորաբար բջիջների հղումների մի քանի տեսակներ կան, որոնք կարող եք օգտագործել բանաձևում, և բջջային հղումների յուրաքանչյուր տեսակ կարող է օգնել ձեզ հասնել բանաձևի տարբեր նպատակների: Դուք կարող եք ունենալ բջիջների հղումների հետևյալ տեսակները, ինչպիսիք են բջիջների բացարձակ տեղեկանքը, բջջի հարաբերական հղումը, տողի հարաբերական տողի հղումը սյունակի բացարձակ հղումը և տողի բացարձակ հղումը և հարաբերական սյունակը: Բայց երբեմն կարող է անհրաժեշտ լինել փոխել բանաձևի նպատակը ՝ բանաձևում փոխելով բջիջների հղումները: Հետևյալ բարդ մեթոդները կպատմեք, թե ինչպես Excel- ում փոխել հարաբերականի բացարձակ հղումը:

Փոխեք բացարձակ հղումը հարաբերական հղմանը F4 ստեղնով

Փոխեք բացարձակ հղումը VBA կոդով հարաբերական հղմանը

Արագ փոխեք բացարձակ հղումը Excel- ի համար Kutools- ի հարաբերական հղմանը

Բացարձակ տեղեկանք

Հարաբերական տեղեկանք


նետ կապույտ աջ պղպջակ Փոխեք բացարձակ հղումը հարաբերական հղմանը F4 ստեղնով

Դյուրանցման F4 ստեղնաշարի միջոցով մենք կարող ենք հեշտությամբ փոխել հարաբերական հղման բացարձակ հղումը, կատարեք հետևյալ քայլերով.

Կուրսորը դրեք $ A $ 1- ի ետևում, այնուհետև երեք անգամ սեղմեք F4- ը, այն կդառնա $ 1, $ A1, A1 հաջորդաբար: Տեսեք,

Համաձայն այս քայլի, կուրսորը դրեք $ 1 դոլար $ B1 ստանալու համար:

Եվ այս բջջային տեղեկանքը կդառնա հարաբերական հղում բացարձակ հղումից:

Եթե ​​կան բազմաթիվ բանաձևերի բջիջների հղումներ, որոնք պետք է փոխվեն, այս ձևը կլինի ձանձրալի և ժամանակատար:


նետ կապույտ աջ պղպջակ Փոխեք բացարձակ հղումը VBA կոդով հարաբերական հղմանը

VBA կոդի միջոցով դուք կարող եք արագորեն փոխել բանաձևերի բջիջների հղումների մի շարք միանգամից բացարձակ հղումներից դեպի հարաբերական հղումներ:

1. Ընտրեք այն տիրույթը, որը ցանկանում եք փոխել:

2: սեղմեք Երեվակիչ > Visual Basic կամ կարող եք սեղմել Alt + F11, կցուցադրվի նոր Microsoft Visual Basic ծրագրերի համար, կտտացրեք Տեղադրել > Մոդուլներ, և մուտքագրեք հետևյալ կոդը ՝ Մոդուլներ:
VBA. Բացարձակը վերափոխեք հարաբերական հղման:

Sub ConverFormulaReferences()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
Dim xIndex As Integer
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)
xIndex = Application.InputBox("Change formulas to?" & Chr(13) & Chr(13) _
& "Absolute = 1" & Chr(13) _
& "Row absolute = 2" & Chr(13) _
& "Column absolute = 3" & Chr(13) _
& "Relative = 4", xTitleId, 1, Type:=1)
For Each Rng In WorkRng
    Rng.Formula = Application.ConvertFormula(Rng.Formula, XlReferenceStyle.xlA1, XlReferenceStyle.xlA1, xIndex)
Next
End Sub

3. Այնուհետեւ կտտացրեք դոկ-բացարձակ-հարաբերական -6 Կոդը գործարկելու կոճակը, և արագ տուփ կհայտնվի փոխարկելու տիրույթ ընտրելու համար, այնուհետև կտտացրեք OK և մեկ այլ երկխոսություն կցուցադրվի ՝ ձեզ հուշելու համար, թե որ տեսակ եք ուզում օգտագործել: Դրանից հետո դուք կարող եք ընտրել ճիշտ տեսակը, որն անհրաժեշտ է: Այս օրինակի համար ես կտեղադրեմ 4. Տեսեք սքրինշոթեր.

4. Այնուհետեւ կտտացրեք OK, Ընտրության բոլոր բացարձակ հղումները փոխվել են բանաձևի հարաբերական հղումների:

Սա բազմաֆունկցիոնալ VBA կոդ է, այս ծածկագրով. կարող եք նաև փոխել բացարձակ հղման համեմատ, փոխել բացարձակ շարքը կամ փոխել բացարձակ սյունակը:


նետ կապույտ աջ պղպջակ Արագ փոխեք բացարձակ հղումը Excel- ի համար Kutools- ի հարաբերական հղմանը

Excel- ի համար նախատեսված գործիքներ: ավելի քան 100 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար: Get it Now

Excel- ի համար նախատեսված գործիքներ թույլ տվեք արագ և հեշտությամբ փոխել բացարձակը հարաբերական հղման կամ հակառակը: Խնդրում ենք անել հետևյալը.

Քայլ 1. Գնալ ընտրելու այն տիրույթը, որը պարունակում է բանաձևեր, որոնք ցանկանում եք փոխել բջջային հղումները աշխատանքային թերթում:

Քայլ 2. Սեղմել Կուտոլս > Փոխարկել հղումները, Այն կցուցադրի Փոխարկել բանաձևի հղումները երկխոսության տուփ: Տեսեք,

Քայլ 3. Ստուգեք Հարազատին եւ սեղմեք Ok or Դիմել է Փոխարկել բանաձևի տեղեկանքը երկխոսություն Դա կփոխի բացարձակ հղումը հարաբերական հղման:

Եթե ​​ցանկանում եք բջիջների հղումները փոխել սյունակի բացարձակ կամ տողի բացարձակ, խնդրում ենք ստուգել Սյունակ բացարձակ տարբերակ կամ Բացարձակ շարադրել տարբերակ.

Մասին ավելի մանրամասն տեղեկություններ ստանալու համար Փոխարկել տեղեկանքը, Խնդրում ենք այցելել Փոխարկել տեղեկանքի հատկության նկարագրությունը.


Հարաբերական հոդված:Փոխեք հարաբերական հղումը բացարձակ հղման

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Function ConvertMyAddress(strRng As String) As String
Dim rngSelection As Range

Set rngSelection = Application.Range(strRng)
'// Test if empty
If rngSelection Is Nothing Then Exit Function

' MsgBox rngSelection.Address(0, 0) 'A1
' MsgBox rngSelection.Address(1, 0) '$A1
' MsgBox rngSelection.Address(0, 1) 'A$1
' MsgBox rngSelection.Address(1, 1) '$A$1
' MsgBox rngSelection.Address '$A$1
'
' MsgBox rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0)
' MsgBox "[" & rngSelection.Parent.Parent.Name & "]" & rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0)

ConvertMyAddress = rngSelection.Address(1, 1)

End Function
This comment was minimized by the moderator on the site
Wao Excellent teh VBA Code Works Perfect, Thank You very Much
This comment was minimized by the moderator on the site
Excel 2010. I clicked on cancel when the prompt comes up, but excel still ran the script and it froze my computer for several hours. I only had 1 cell highlighted anyway, so even if the script did run, why did it take so long to run? [i realize now that despite pressing cancel, the code ran and made every cell in the worksheet relative ! :( ] I was assigning it to a form button vs pressing play within VBA window. I've used other scripts from KuTools and never experienced this nonsense.
This comment was minimized by the moderator on the site
The F4 toggle works in all versions. but you MUST be in edit mode first. I always press F2 (puts you into edit mode) then F4 to toggle between the four options.
This comment was minimized by the moderator on the site
With the shortcut key F4, we can easily toggle the absolute reference to relative reference, please do //as// the following steps. Forgot to mention F4 didn't work with my excel (windows 7) but your macro and invite to Kutools is great. Sorry about repeat sends, I thought the code wasn't working.
This comment was minimized by the moderator on the site
Thank you very much. Descriptive, easy to follow information.
This comment was minimized by the moderator on the site
Thank you very much, descriptive, easy to follow information.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations