Kopjoni formulat pa zhvendosje lidhjeje

Problem

Supozoni se kemi një tabelë të thjeshtë si kjo, në të cilën llogariten shumat për çdo muaj në dy qytete, dhe më pas totali konvertohet në euro me kursin nga qeliza e verdhë J2.

Kopjoni formulat pa zhvendosje lidhjeje

Problemi është se nëse kopjoni diapazonin D2:D8 me formula diku tjetër në fletë, atëherë Microsoft Excel do të korrigjojë automatikisht lidhjet në këto formula, duke i zhvendosur ato në një vend të ri dhe do të ndalojë numërimin:

Kopjoni formulat pa zhvendosje lidhjeje

Detyrë: kopjoni gamën me formula në mënyrë që formulat të mos ndryshojnë dhe të mbeten të njëjta, duke mbajtur rezultatet e llogaritjes.

Metoda 1. Lidhjet absolute

Siç mund ta shihni nga fotografia e mëparshme, Excel zhvendos vetëm lidhjet relative. Referenca absolute (me shenja $) për qelizën e verdhë $J$2 nuk është zhvendosur. Prandaj, për kopjimin e saktë të formulave, mund të konvertoni përkohësisht të gjitha referencat në të gjitha formulat në ato absolute. Do t'ju duhet të zgjidhni secilën formulë në shiritin e formulave dhe të shtypni tastin F4:
Kopjoni formulat pa zhvendosje lidhjeje
Me një numër të madh qelizash, ky opsion, natyrisht, zhduket - është shumë i mundimshëm.

Metoda 2: Çaktivizoni përkohësisht formulat

Për të parandaluar ndryshimin e formulave gjatë kopjimit, duhet (përkohësisht) të siguroheni që Excel të mos i trajtojë ato si formula. Kjo mund të bëhet duke zëvendësuar shenjën e barabartë (=) me ndonjë karakter tjetër që nuk gjendet normalisht në formula, si për shembull një shenjë hash (#) ose një palë ampersand (&&) për kohën e kopjimit. Për këtë:

  1. Zgjidhni diapazonin me formula (në shembullin tonë D2:D8)
  2. Kliko Ctrl + H në tastierë ose në një skedë Faqja kryesore - Gjeni dhe zgjidhni - Zëvendësoni (Shtëpia - Gjeni&Zgjidh - Zëvendësoni)

    Kopjoni formulat pa zhvendosje lidhjeje

  3. Në kutinë e dialogut që shfaqet, futni atë që kërkojmë dhe me çfarë zëvendësojmë, dhe në Parameters (Opsione) mos harroni të sqaroni Fusha e kërkimit – Formulat. Ne shtypim Zëvendësoni të gjitha (Zëvendësoni të gjitha).
  4. Kopjoni gamën që rezulton me formula të çaktivizuara në vendin e duhur:

    Kopjoni formulat pa zhvendosje lidhjeje

  5. Zëvendësoj # on = përsëri duke përdorur të njëjtën dritare, duke e kthyer funksionalitetin në formula.

Metoda 3: Kopjo përmes Notepad

Kjo metodë është shumë më e shpejtë dhe më e lehtë.

Shtypni shkurtoren e tastierës Ctrl+Ё ose butoni Trego formulat tab formulë (Formulat - Trego formulat), për të aktivizuar modalitetin e kontrollit të formulës - në vend të rezultateve, qelizat do të shfaqin formulat me të cilat llogariten:

Kopjoni formulat pa zhvendosje lidhjeje

Kopjoni gamën tonë D2:D8 dhe ngjisni atë në standard Bllok shënimesh:

Kopjoni formulat pa zhvendosje lidhjeje

Tani zgjidhni gjithçka të ngjitur (Ctrl + A), kopjoni përsëri në kujtesën e fragmenteve (Ctrl + C) dhe ngjisni në fletë në vendin që ju nevojitet:

Kopjoni formulat pa zhvendosje lidhjeje

Mbetet vetëm për të shtypur butonin Trego formulat (Trego formulat)për të kthyer Excel në modalitetin normal.

Shënim: kjo metodë ndonjëherë dështon në tabela komplekse me qeliza të bashkuara, por në shumicën dërrmuese të rasteve funksionon mirë.

Metoda 4. Makro

Nëse shpesh duhet të bëni një kopjim të tillë të formulave pa zhvendosur referencat, atëherë ka kuptim të përdorni një makro për këtë. Shtypni shkurtoren e tastierës Alt + F11 ose butoni Visual Basic tab zhvillues (Zhvilluesi), futni një modul të ri përmes menysë Insert – Moduli  dhe kopjoni tekstin e kësaj makro atje:

Sub Copy_Formulas() Dim copyRange As Range, pasteRange As Range On Error Resume Next Set copyRange = Application.InputBox("Zgjidh qelizat me formula për të kopjuar.", _ "Kopjo saktësisht formulat", Default:=Zgjedhja.Adresa, Lloji := 8) Nëse copyRange nuk është asgjë, atëherë Dilni nën grupin pasteRange = Application.InputBox("Tani zgjidhni gamën e ngjitjes." & vbCrLf & vbCrLf & _ "Diapazoni duhet të jetë i barabartë në madhësi me gamën origjinale " & vbCrLf & _ " të qelizave për të kopjuar." , "Copy formulas saktësisht", _ Default:=Selection.Address, Type:=8) If pasteRange.Cells.Count <> copyRange.Cells.Count Pastaj MsgBox "Kopjo dhe ngjit vargjet ndryshojnë në madhësi!", vbExclamation, "Copy error " Dil Sub End Nëse PasteRange nuk është asgjë, Dil nga Sub Else pasteRange.Formula = copyRange.Formula Fund If End Sub

Ju mund të përdorni butonin për të ekzekutuar makro. macros tab zhvillues (Zhvilluesi - Makro) ose shkurtore të tastierës Alt + F8. Pas ekzekutimit të makros, do t'ju kërkojë të zgjidhni gamën me formulat origjinale dhe gamën e futjes dhe do t'i kopjojë formulat automatikisht:

Kopjoni formulat pa zhvendosje lidhjeje

  • Shikim i përshtatshëm i formulave dhe rezultateve në të njëjtën kohë
  • Pse stili i referencës R1C1 nevojitet në formulat e Excel
  • Si të gjeni shpejt të gjitha qelizat me formula
  • Mjet për të kopjuar formula të sakta nga shtesa PLEX

 

Lini një Përgjigju