Dodanie do scalonych komórek kolejnych komórek

Użytkowanie arkusza kalkulacyjnego
fauler
Posty: 2
Rejestracja: pn mar 07, 2022 12:31 pm

Dodanie do scalonych komórek kolejnych komórek

Post autor: fauler »

Mam dwie kolumny: A i B.

W kolumnie A jest data ( kalendarzowa ), w kolumnie B są ( pogrupowane w wiersze ) dane zdarzeń które wystąpiły w danej dacie.

Jeśli dodaje nowe zdarzenie w tej samej dacie to nie mogę zaznacvzyć komórki i kliknąć scal; muszę podzielić i scalić od nowa.

Czemu? Niby LO taki user-friendly?
OpenOffice 3.1 na Windows Vista / NeoOffice 2.2.3, MacOS 10.4 / OpenOffice 2.4 pod Ubuntu 9.04
Awatar użytkownika
Jermor
Posty: 2238
Rejestracja: sob paź 12, 2013 11:09 am
Kontakt:

Re: Dodanie do scalonych komórek kolejnych komórek

Post autor: Jermor »

Dlatego, że tak to oprogramowali autorzy. Zresztą otrzymujesz komunikat, że takich komórek nie można "doscalić".
Jeśli taka funkcjonalność jest ci potrzebna, to możesz utworzyć (nagrać) odpowiednie makro, które wykona te czynności za ciebie.
Nagrałem takie makro i ci podsyłam.
Makro należy wywołać gdy aktywną komórką jest komórka leżąca w kolumnie przylegającej z prawej strony do kolumny z datą, w wierszu znajdującym się pod scaloną komórką z datą. Do makra możesz przypisać skrót klawiaturowy.
Oto samo makro:

Kod: Zaznacz cały

sub scal
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoUpSel", "", 0, args2())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SplitCell", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:MergeCells", "", 0, Array())


end sub
AOO 4.1.15, LO 7.5.9 (x64) na Windows 10 64bit
Ważne!
Jeśli twój problem został rozwiązany, wróć do swojego pierwszego postu, przejdź do edycji i dopisz [SOLVED] w temacie.
Inni, którzy mają podobny problem, będą wiedzieli, że istnieje jego rozwiązanie.
Awatar użytkownika
Jermor
Posty: 2238
Rejestracja: sob paź 12, 2013 11:09 am
Kontakt:

Re: Dodanie do scalonych komórek kolejnych komórek

Post autor: Jermor »

Tak się zafiksowałem na procedurę ponownego scalania, że pominąłem najprostsze rozwiązanie.
Należy ustawić się w jakieś komórce obok tej scalonej, np. jeśli scalona obejmuje zakres A1:A6 ustawić się w komórce B6 (ale równie dobrze w C6, D6 itd) i wywołać polecenie "Arkusz ->Wstaw komórki... -> Cały wiersz" lub po kliknięciu prawym przyciskiem myszki wybrać "Wstaw -> Cały wiersz".
AOO 4.1.15, LO 7.5.9 (x64) na Windows 10 64bit
Ważne!
Jeśli twój problem został rozwiązany, wróć do swojego pierwszego postu, przejdź do edycji i dopisz [SOLVED] w temacie.
Inni, którzy mają podobny problem, będą wiedzieli, że istnieje jego rozwiązanie.
ODPOWIEDZ