Шилтемелерди жылдырбастан көчүрүңүз

маселе

Бизде ушундай жөнөкөй таблица бар дейли, анда суммалар эки шаарда ар бир ай үчүн эсептелет, андан кийин жалпы сумма J2 сары уячасынын курсу боюнча еврого которулат.

Шилтемелерди жылдырбастан көчүрүңүз

Көйгөй, эгер сиз D2:D8 диапазонун формулалар менен барактын башка жерине көчүрсөңүз, анда Microsoft Excel бул формулалардагы шилтемелерди автоматтык түрдө оңдоп, аларды жаңы жерге жылдырып, эсептөөнү токтотот:

Шилтемелерди жылдырбастан көчүрүңүз

Тапшырма: формулалар өзгөрбөшү жана ошол эле бойдон калуусу үчүн формулалар менен диапазонду көчүрүү, эсептөөнүн натыйжаларын сактоо.

Метод 1. Абсолюттук шилтемелер

Мурунку сүрөттөн көрүнүп тургандай, Excel салыштырмалуу шилтемелерди гана жылдырат. $J$2 сары уячасынын абсолюттук ($ белгилери менен) шилтемеси жылган жок. Ошондуктан, формулаларды так көчүрүү үчүн, сиз бардык формулалардагы бардык шилтемелерди абсолюттук шилтемелерге убактылуу алмаштыра аласыз. Сиз формула тилкесинде ар бир формуланы тандап, баскычты басышыңыз керек F4:
Шилтемелерди жылдырбастан көчүрүңүз
Көптөгөн клеткалар менен, бул параметр, албетте, жок болот - бул өтө оор.

Метод 2: Формулаларды убактылуу өчүрүү

Көчүрүү учурунда формулалардын өзгөрүшүнө жол бербөө үчүн, Excel аларды формула катары кароону токтотконуна (убактылуу) ынануу керек. Бул бирдей белгисин (=) адатта формулаларда кездешпеген башка символдор менен алмаштыруу аркылуу жасалышы мүмкүн, мисалы, хэш белгиси (#) же көчүрүү убактысы үчүн амперсандардын жуптары (&&). Бул үчүн:

  1. Формулалар менен диапазонду тандаңыз (биздин мисалда D2:D8)
  2. чыкылдатуу Ctrl + H клавиатурада же өтмөктө Негизги бет - Таб жана тандоо - алмаштыруу (Башкы бет — Таб&Тандоо — Алмаштыруу)

    Шилтемелерди жылдырбастан көчүрүңүз

  3. Пайда болгон диалог терезесине биз эмне издеп жатканыбызды жана эмне менен алмаштырганыбызды киргизиңиз параметрлер (Параметрлер) тактоо үчүн унутпа Издөө чөйрөсү – Формулалар. басабыз Баарын алмаштыр (Баарын алмаштыруу).
  4. Алынган диапазону өчүрүлгөн формулалар менен керектүү жерге көчүрүңүз:

    Шилтемелерди жылдырбастан көчүрүңүз

  5. алмаштыруу # on = кайра ошол эле терезени колдонуп, формулаларга функцияларды кайтарыңыз.

Метод 3: Блокнот аркылуу көчүрүү

Бул ыкма алда канча тез жана жеңил.

Баскычтоптун жарлыгын басыңыз Ctrl+Ё же баскыч Формулаларды көрсөтүү табулатура формула (Формулалар — Формулаларды көрсөтүү), формуланы текшерүү режимин күйгүзүү үчүн – натыйжалардын ордуна клеткалар алар эсептелген формулаларды көрсөтөт:

Шилтемелерди жылдырбастан көчүрүңүз

D2:D8 диапазонубузду көчүрүп, стандартка чаптаңыз жазуу дептер:

Шилтемелерди жылдырбастан көчүрүңүз

Эми чапталган нерселердин баарын тандаңыз (Ctrl + A), аны кайра алмашуу буферине көчүрүңүз (Ctrl + C) жана баракчага керектүү жерге чаптаңыз:

Шилтемелерди жылдырбастан көчүрүңүз

Бул баскычты басуу үчүн гана калат Формулаларды көрсөтүү (Формулаларды көрсөтүү)Excel кадимки режимге кайтуу үчүн.

Эскертүү: бул ыкма кээде бириктирилген уячалары бар татаал таблицаларда иштебей калат, бирок көпчүлүк учурларда ал жакшы иштейт.

Метод 4. Макро

Эгерде сиз көп учурда шилтемелерди алмаштырбастан формулаларды көчүрүүгө туура келсе, анда бул үчүн макросту колдонуунун мааниси бар. Баскычтоптун жарлыгын басыңыз Alt + F11 же баскыч Visual Basic табулатура иштеп (Иштеп чыгуучу), меню аркылуу жаңы модулду киргизиңиз Кыстаруу – модуль  жана бул макронун текстин ошол жерге көчүрүңүз:

Sub Copy_Formulas() Dim copyRange диапазон катары, pasteRange катары диапазон Ката улантуу Кийинки орнотуу copyRange = Application.InputBox("Көчүрүү үчүн формулалары бар уячаларды тандаңыз.", _ "Формулаларды так көчүрүү", Демейки:=Selection.Address, Тип := 8) Эгер copyRange эч нерсе болбосо, анда Чыгыңыз Sub Set pasteRange = Application.InputBox("Азыр чаптоо диапазонун тандаңыз." & vbCrLf & vbCrLf & _ "Диапазон өлчөмү боюнча түпнускага барабар болушу керек " & vbCrLf & _ " уячалардын диапазону көчүрүү." , "Формулаларды так көчүрүү", _ Демейки:=Selection.Address, Түрү:=8) If pasteRange.Cells.Count <> copyRange.Cells.Count Анда MsgBox "Көчүрүү жана коюу диапазондору өлчөмү ар кандай болот!", vbExclamation, "Көчүрүү катасы" Эгерде pasteRange эч нерсе болбосо, анда Sub-аягынан чыгуу, анда Sub Else чыгыңыз pasteRange.Formula = copyRange.Formula Аяктоо, эгер аягы Sub

Макросту иштетүү үчүн баскычты колдоно аласыз. Macros табулатура иштеп (Иштеп чыгуучу — Макрос) же баскычтоптун жарлыгы Alt + F8. Макросту иштеткенден кийин, ал сизден баштапкы формулалар жана киргизүү диапазону менен диапазонду тандоону суранат жана формулаларды автоматтык түрдө көчүрөт:

Шилтемелерди жылдырбастан көчүрүңүз

  • Формулаларды жана натыйжаларды бир эле учурда ыңгайлуу көрүү
  • Эмне үчүн R1C1 шилтеме стили Excel формулаларында керек
  • Формулалар менен бардык клеткаларды кантип тез табууга болот
  • PLEX кошумчасынан так формулаларды көчүрүү куралы

 

Таштап Жооп