Makro - idź do komórki

Post by p***@none.com.pl
Witam,
Mam komórkę B1 w której wyświetlane są wartości: 1, 41, 81, 121 itd.
Chciałbym zrobić makro, które będzie "przenosiło" kursor do komórki: A
i tutaj wartość z komórki B1.
Czyli w zależności od wartości komórki B1 kursor skoczy do: B1, B41,
B81, B121 itd.
Czyli coś podobnego jak w:http://groups.google.com/group/alt.pl.openoffice/browse_thread/thread...
z tym, że w powyższym wartość była brana z pętli.
Może ktoś podpowiedzieć?
DANIeL

Witaj

Nie bardzo jasno to opisalec:(
Piszesz ze chcesz aby skoczylo do komorki A a nastepnie aby w
zaleznosci od wartosci skoczylo do B1,B41 idt

Opisz to dokladniej. Czy chodzi o Focus na komorke czy tylko o
kopiowanie wartosci?

Pozdrawiam
Kerim

p***@none.com.pl

2008-03-08 20:54:03 UTC

Witaj
Nie bardzo jasno to opisalec:(
Piszesz ze chcesz aby skoczylo do komorki A a nastepnie aby w
zaleznosci od wartosci skoczylo do B1,B41 idt
Opisz to dokladniej. Czy chodzi o Focus na komorke czy tylko o
kopiowanie wartosci?
Pozdrawiam
Kerim

No tak, walnąłem się:
Miało być A1, A41, A81 itd.

Opiszę dokładnie i na swój chłopski rozum:
mam arkusz z 4.000 wierszy. Dużo. Ciężko się w nim poruszać.
Co czterdziesty wiersz zaczynają się dane kolejnej osoby.

Zrobiłem sobie formant LISTA ROZWIJANA, która wyświetla nazwiska
kolejnych osób.
Formant przekazuje do komórki B1 wartości, czyli: 1, 41, 81 itd.
Chciałby aby te wartości użyć do przeskoczenia kursorem do
odpowiedniej komórki A1, A41, A81.
LISTA ROZWIJANA uruchomi makro (to którego nie umiem napisać :) )
Dzięki temu poruszanie się po arkuszu będzie znacznie prostsze - skok
do komórki ma po prostu przesunąć ekran w taki sposób jakbym zjeżdżał
strzałką w dół.

DANIeL

Tomek

2008-03-08 21:13:23 UTC

Witaj
Nie bardzo jasno to opisalec:(
Piszesz ze chcesz aby skoczylo do komorki A a nastepnie aby w
zaleznosci od wartosci skoczylo do B1,B41 idt
Opisz to dokladniej. Czy chodzi o Focus na komorke czy tylko o
kopiowanie wartosci?
Pozdrawiam
Kerim

Miało być A1, A41, A81 itd.
mam arkusz z 4.000 wierszy. Dużo. Ciężko się w nim poruszać.
Co czterdziesty wiersz zaczynają się dane kolejnej osoby.
Zrobiłem sobie formant LISTA ROZWIJANA, która wyświetla nazwiska
kolejnych osób.
Formant przekazuje do komórki B1 wartości, czyli: 1, 41, 81 itd.
Chciałby aby te wartości użyć do przeskoczenia kursorem do
odpowiedniej komórki A1, A41, A81.
LISTA ROZWIJANA uruchomi makro (to którego nie umiem napisać :) )
Dzięki temu poruszanie się po arkuszu będzie znacznie prostsze - skok
do komórki ma po prostu przesunąć ekran w taki sposób jakbym zjeżdżał
strzałką w dół.
DANIeL

A może by dostawić kolumienkę z jakimś indeksem (imię i nazwisko) i
założyć na wszystko autofiltr? Wybierasz odpowiedni indeks i wyświetlają
sie dane/wiersze tej osoby?
Tomek

p***@none.com.pl

2008-03-08 21:25:45 UTC

Post by Tomek

Witaj
Nie bardzo jasno to opisalec:(
Piszesz ze chcesz aby skoczylo do komorki A a nastepnie aby w
zaleznosci od wartosci skoczylo do B1,B41 idt
Opisz to dokladniej. Czy chodzi o Focus na komorke czy tylko o
kopiowanie wartosci?
Pozdrawiam
Kerim

A może by dostawić kolumienkę z jakimś indeksem (imię i nazwisko) i
założyć na wszystko autofiltr? Wybierasz odpowiedni indeks i wyświetlają
sie dane/wiersze tej osoby?
Tomek

noooo, w sumie niegłupie :)
ale opisałem tutaj tylko fragment mojego pliku
musiał bym dołożyć znowu ileśtam funkcji (opisany indeks musiał by
pobierać z listy nazwisk), a już mam kilkanaście tysięcy funkcji i
myślę jakby to wydajnościowo uprościć (odpalane na serwerze terminali,
kilkadziesiąt osób coś tam robi).

A takie makro - hop i już jest :)

DANIeL

m***@wp.pl

2008-03-08 21:35:11 UTC

Witaj
Nie bardzo jasno to opisalec:(
Piszesz ze chcesz aby skoczylo do komorki A a nastepnie aby w
zaleznosci od wartosci skoczylo do B1,B41 idt
Opisz to dokladniej. Czy chodzi o Focus na komorke czy tylko o
kopiowanie wartosci?
Pozdrawiam
Kerim

Witam

No.. teraz jasniej napisales i mysle ze zrozumialem;)

Sub Przeskok

pozycja=ThisComponent.Sheets.getByName("Arkusz1").getCellRangeByName("B1").Value

oCell =
ThisComponent.Sheets.getByName("Arkusz1").getCellByPosition(0,pozycja-1)
ThisComponent.CurrentController.Select(oCell) 'wybranie wyżej
określonego obiektu

End Sub

Mam nadzieje ze o to Ci chodzi

Moze zechcesz skorzystac z mojego Kursu-Poradnika pisania makr?
Zapraszam na www.punktyoplat.neostrada.pl/openoffice

Pozdrawiam
Kerim

p***@none.com.pl

2008-03-08 21:55:05 UTC