Zamiana adresu względnego na bezwzględny

O adresie względnym i bezwzględnym pisałm juz kiedyś:
Adres względny i bezwzględny
Tym razem spróbuję odpowiedzieć na pytanie – jak zamienić domyślnie ustawiony adres względny na bezwzględny. Oczywiście pomijając ręczne wpisywanie znaku $ do formuły.
W pojedyńczych przypadkach wystarczy wejść w edycję formuły i ustawić się na oznaczeniu komórki:

 

Kolejny krok to naciśnięcie F4. I już. 

 

Jeśli jednak w arkuszu formuły występują w wielu komórkach – będzie to pracochłonne.
W takim wypadku najlepszym wyjściem jest stworzenie procedury w VBA, która wykona to za nas. Najlepiej wykorzystać tu funkcję Application.ConvertFormula()

Na przykład tak:

Public Sub ZmienADRES Dim Komorka As  Range Dim C   For Each Komorka In Range(„A2:C14”)                              ‚Obszar do zamiany formuł dostosowujemy do własnych potrzeb     C = Left(Komorka.Formula, 1)     If C = „=” Then        Komorka.Formula = Application.ConvertFormula(Formula:=Komorka.Formula,    fromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1,ToAbsolute:=True)    Next Komorka        End If End Sub

Oczywiście, przedstawiony tu przykład można modyfikować w zależności od potrzeb. Kod prosty i krótki. I działa, choć zdaje się, że dopiero od wersji Excel 2007 – nie jestem jednak pewna.

 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

http://helion.pl/plugins/new/ksiazkasm.phi?id=ex21pr&nr=4737c

http://helion.pl/plugins/new/ksiazkasm.phi?id=ex21fo&nr=4737c

http://helion.pl/plugins/new/ksiazkasm.phi?id=ex2710&nr=4737c

http://ebookpoint.pl/plugins/new/ksiazkasm.phi?id=abce21_ebook&nr=4737c