Witam
Przy kopiowaniu komórek, je¶³i nie chemy ¿eby zmieni³y siê adresy do
których odnosz± siê formu³y dopisujemy sybbole & przed czy to literkê
kolumny czy to przed liczbê wiersza, czy w koñcu przed obie te wspó³rzêdne.
Ale przysz³o mi przekopiowaæ pewnien zakres w jednym arkuszu, gdzie rêczne
dopisywanie w formu³ach odnosz±cych siê w dodatku do innych arkuszy to
marnowanie mnóstwa czasu, poza tym po przekopiowaniu zakresu musia³bym te
sybole dolara likwidowaæ. Na razie szef podpowiedzia³ mi taki sposób:

1. kopiujê arkusz w którym mam interesujacy mnie zakres
2. zaznaczam w ju¿ skopiowanym arkuszu ten¿e zakres który mnie interesuje
3. PRZESUWAM go w miejsce w którym ma byæ docelowo
4. Kopiujê zakres ze skopiowanego arkusza w to samo miejsce ale w arkuszu
pierwotnym
po ca³ej operacji usuwam skopiowany arkusz jako zbêdny

Szuka³em "wklejaniem specjalnym", zamienia³em komórki na tekstowe i
kopiowa³em je, nie da³o to nic (je¶li chodzi o oszczêdno¶æ czasu), owszem,
dzia³a³o to, ale po sformatowaniu zakresu jako TEKSTOWE formu³y dzia³a³y
dalej, dopóki nie wesz³o siê do ka¿dej komórki i nie kliknê³o ENTER, to
samo po przekopiowaniu i ponownej zmianie formatu na LICZBOWE - to samo, F2
plus ENTER

Ma kto¶ lepszy sposób? Mo¿e sposób ze zmian± formatu komórek ma sensbez
klikania w ka¿d± komórkê, wiem ¿e w Wordzie takie aktualizowanie
nastêpowa³o po klikniêciu chyba klawisza F9 czy jako¶ tak.
Na razie kopiowanie arkusza i przesuwanie najszybsze.

1. zamiast dopisywania znaku $ mozna uzywaæ F4 przy edytowaniu formu³y
2. mozna wykorzystaæ poni¿sze makro (najpierw trzeba zaznaczyæ zakres
komórek, w którym chcesz dokonaæ zmiany sposobu adresowania w
formu³ach):

Sub Makro1()

Dim cell As Range
Dim tekst_formuly As String
Dim nowy_tekst_formuly As String

For Each cell In Selection
tekst_formuly = cell.Formula
nowy_tekst_formuly = Application.ConvertFormula(tekst_formuly,
xlA1, xlA1, xlRelative, cell)
cell.Formula = nowa
Next

End Sub

makro to zamienia adresy na wzglêdne = bez znaków $
w celu zamiany adresów na bezwzglêdne zamieñ xlRelative and xlAbsolute

poza tym s± jeszcze argumenty xlAbsRowRelColumn (wiersz z $, kolumna
bez $) i xlRelRowAbsColumn (wiersz bez $, kolumna z $)


On 19 Kwi, 14:19, kajus44 wrote:
Witam
Przy kopiowaniu komórek, je¶³i nie chemy ¿eby zmieni³y siê adresy do
których odnosz± siê formu³y dopisujemy sybbole & przed czy to literkê
kolumny czy to przed liczbê wiersza, czy w koñcu przed obie te wspó³rzêdne.
Ale przysz³o mi przekopiowaæ pewnien zakres w jednym arkuszu, gdzie rêczne
dopisywanie w formu³ach odnosz±cych siê w dodatku do innych arkuszy to
marnowanie mnóstwa czasu, poza tym po przekopiowaniu zakresu musia³bym te
sybole dolara likwidowaæ. Na razie szef podpowiedzia³ mi taki sposób:

1. kopiujê arkusz w którym mam interesujacy mnie zakres
2. zaznaczam w ju¿ skopiowanym arkuszu ten¿e zakres który mnie interesuje
3. PRZESUWAM go w miejsce w którym ma byæ docelowo
4. Kopiujê zakres ze skopiowanego arkusza w to samo miejsce ale w arkuszu
pierwotnym
po ca³ej operacji usuwam skopiowany arkusz jako zbêdny

Szuka³em "wklejaniem specjalnym", zamienia³em komórki na tekstowe i
kopiowa³em je, nie da³o to nic (je¶li chodzi o oszczêdno¶æ czasu), owszem,
dzia³a³o to, ale po sformatowaniu zakresu jako TEKSTOWE formu³y dzia³a³y
dalej, dopóki nie wesz³o siê do ka¿dej komórki i nie kliknê³o ENTER, to
samo po przekopiowaniu i ponownej zmianie formatu na LICZBOWE - to samo, F2
plus ENTER

Ma kto¶ lepszy sposób? Mo¿e sposób ze zmian± formatu komórek ma sensbez
klikania w ka¿d± komórkê, wiem ¿e w Wordzie takie aktualizowanie
nastêpowa³o po klikniêciu chyba klawisza F9 czy jako¶ tak.
Na razie kopiowanie arkusza i przesuwanie najszybsze.

Dnia Fri, 22 Apr 2011 07:06:46 -0700 (PDT), Jarek Kujawa napisa³(a):

1. zamiast dopisywania znaku $ mozna uzywaæ F4 przy edytowaniu formu³y
2. mozna wykorzystaæ poni¿sze makro (najpierw trzeba zaznaczyæ zakres
komórek, w którym chcesz dokonaæ zmiany sposobu adresowania w
formu³ach):

Sub Makro1()

Dim cell As Range
Dim tekst_formuly As String
Dim nowy_tekst_formuly As String

For Each cell In Selection
tekst_formuly = cell.Formula
nowy_tekst_formuly = Application.ConvertFormula(tekst_formuly,
xlA1, xlA1, xlRelative, cell)
cell.Formula = nowa
Next

End Sub

makro to zamienia adresy na wzglêdne = bez znaków $
w celu zamiany adresów na bezwzglêdne zamieñ xlRelative and xlAbsolute

poza tym s± jeszcze argumenty xlAbsRowRelColumn (wiersz z $, kolumna
bez $) i xlRelRowAbsColumn (wiersz bez $, kolumna z $)

Dziêkujê za pomoc, ale mam pytanie, bo rzuca mi siê o nawias za s³owem
cell, ¿e jakis b³±d jest:

"Compile error: Expectd: end of statement"

i po zamkniêciu nie ma efektu.

I jeszcze pytanie, w makrze jest w dwóch miejscach xlA1 <- to mam jako¶
zmienic czy zostawiaæ tak jak jest, nie wiem nic na temat makr oprócz
kopiowania i wklejania do arkusza MVB

mój b³±d, sory

poprawione makro:

Sub Makro1()


Dim cell As Range
Dim tekst_formuly As String
Dim nowy_tekst_formuly As String


For Each cell In Selection
If cell.HasFormula Then
tekst_formuly = cell.Formula
nowy_tekst_formuly = Application.ConvertFormula(tekst_formuly,
xlA1, xlA1, xlAbsolute, cell)
cell.Formula = nowy_tekst_formuly
End If
Next


End Sub

testowa³em na ró¿nych zakresach i nie zauwa¿y³em ¿eby xlA1 mia³o
jakikolwiek wp³yw na dzia³anie makra


On 27 Kwi, 14:05, kajus44 wrote:
Dnia Fri, 22 Apr 2011 07:06:46 -0700 (PDT), Jarek Kujawa napisa³(a):





1. zamiast dopisywania znaku $ mozna uzywaæ F4 przy edytowaniu formu³y
2. mozna wykorzystaæ poni¿sze makro (najpierw trzeba zaznaczyæ zakres
komórek, w którym chcesz dokonaæ zmiany sposobu adresowania w
formu³ach):

Sub Makro1()

Dim cell As Range
Dim tekst_formuly As String
Dim nowy_tekst_formuly As String

For Each cell In Selection
* * tekst_formuly = cell.Formula
* * nowy_tekst_formuly = Application.ConvertFormula(tekst_formuly,
xlA1, xlA1, xlRelative, cell)
* * cell.Formula = nowa
Next

End Sub

makro to zamienia adresy na wzglêdne = bez znaków $
w celu zamiany adresów na bezwzglêdne zamieñ xlRelative and xlAbsolute

poza tym s± jeszcze argumenty xlAbsRowRelColumn (wiersz z $, kolumna
bez $) i xlRelRowAbsColumn (wiersz bez $, kolumna z $)

Dziêkujê za pomoc, ale mam pytanie, bo rzuca mi siê o nawias za s³owem
cell, ¿e jakis b³±d jest:

"Compile error: Expectd: end of statement"

i po zamkniêciu nie ma efektu.

I jeszcze pytanie, w makrze jest w dwóch miejscach xlA1 <- to mam jako¶
zmienic czy zostawiaæ tak jak jest, nie wiem nic na temat makr oprócz
kopiowania i wklejania do arkusza MVB- Ukryj cytowany tekst -

- Poka¿ cytowany tekst -