[SOLVED] średnia z róznych zakresów

pruszko · Post autor: **pruszko** » pt wrz 10, 2010 6:59 pm

Witam
Mam goracą prośbę o pomoc. Załączam zestawienie w kórym mam obliczyć średnią poszczególnych miesięcy ale w taki sposób żeby nie wliczany był miesiąc ostatni. Uzyłem dość skaplikowanej formuły :
=ŚREDNIA.A(JEŻELI($E$2="STYCZEŃ";0;STYCZEŃ.B3);JEŻELI($E$2="luty";0;LUTY.B3);JEŻELI($E$2="marzec";0;MARZEC.B3);JEŻELI($E$2="kwiecień";0;KWIECIEŃ.B3);JEŻELI($E$2="maj";0;MAJ.B3);JEŻELI($E$2="czerwiec";0;CZERWIEC.B3);JEŻELI($E$2="lipiec";0;LIPIEC.B3);JEŻELI($E$2="sierpień";0;SIERPIEŃ.B3);JEŻELI($E$2="wrzesień";0;WRZESIEŃ.B3);JEŻELI($E$2="październik";0;PAŹDZIERNIK.B3);JEŻELI($E$2="listopad";0;LISTOPAD.B3);JEŻELI($E$2="grudzień";0;GRUDZIEŃ.B3);POPRZEDNI_ROK.B3)

chodzi w niej o to że gdy w komórce E2 będzie np sierpień to ma liczyć średnią do lipca włacznie. Ni cholery nie chce się tak policzyć. Sumować i owszem - liczy do lipca włącznie ale dzieli i tak przez 8.

Czy ktoś mądrzejszy odemnie mógłby mi pomóc?

załaczam plik

z góry dziękuję serdecznie za pomoc

Post autor: **Raknor** » sob wrz 11, 2010 4:55 am

Aktualnie, masz tak:

Po wybraniu miesiąca sierpień.

średnia.a(styczeń(jakaś wartość) + luty(jakaś wartość) + marzec(jakaś wartość) + kwiecień(jakaś wartość) + maj(jakaś wartość) + czerwiec(jakaś wartość) + lipiec(jakaś wartość) + sierpień(0) + wrzesień(brak wartości) + październik(brak wartości) + listopad(brak wartości) + grudzień(brak wartości) + poprzedni rok(brak wartości))

Moja wersja rozwiązania tego problemu:

Sumujemy wartości od stycznia do wybranego miesiąca plus poprzedni rok i dzielimy tę sumę przez wybrany miesiąc plus jedynka za poprzedni rok.

Kod: Zaznacz cały

=SUMA(JEŻELI(E2="styczeń";BRAK();JEŻELI(E2="luty";STYCZEŃ.C3;JEŻELI(E2="marzec";STYCZEŃ.C3+LUTY.C3;JEŻELI(E2="kwiecień";STYCZEŃ.C3+LUTY.C3+MARZEC.C3;JEŻELI(E2="maj";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3;JEŻELI(E2="czerwiec";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3;JEŻELI(E2="lipiec";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3;JEŻELI(E2="sierpień";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3+LIPIEC.C3;JEŻELI(E2="wrzesień";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3+LIPIEC.C3+SIERPIEŃ.C3;JEŻELI(E2="październik";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3+LIPIEC.C3+SIERPIEŃ.C3+WRZESIEŃ.C3;JEŻELI(E2="listopad";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3+LIPIEC.C3+SIERPIEŃ.C3+WRZESIEŃ.C3+PAŹDZIERNIK.C3;JEŻELI(E2="grudzień";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3+LIPIEC.C3+SIERPIEŃ.C3+WRZESIEŃ.C3+PAŹDZIERNIK.C3+LISTOPAD.C3))))))))))));JEŻELI(CZY.LICZBA(POPRZEDNI_ROK.C3);POPRZEDNI_ROK.C3;0))/(SUMA(JEŻELI(E2="styczeń";0;JEŻELI(E2="luty";1;JEŻELI(E2="marzec";2;JEŻELI(E2="kwiecień";3;JEŻELI(E2="maj";4;JEŻELI(E2="czerwiec";5;JEŻELI(E2="lipiec";6;JEŻELI(E2="sierpień";7;JEŻELI(E2="wrzesień";8;JEŻELI(E2="październik";9;JEŻELI(E2="listopad";10;JEŻELI(E2="grudzień";11;0))))))))))));JEŻELI(CZY.LICZBA(POPRZEDNI_ROK.C3);1;0)))

Poprawka:

Kod: Zaznacz cały

=SUMA(JEŻELI(E2="styczeń";BRAK();JEŻELI(E2="luty";STYCZEŃ.C3;JEŻELI(E2="marzec";STYCZEŃ.C3+LUTY.C3;JEŻELI(E2="kwiecień";STYCZEŃ.C3+LUTY.C3+MARZEC.C3;JEŻELI(E2="maj";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3;JEŻELI(E2="czerwiec";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3;JEŻELI(E2="lipiec";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3;JEŻELI(E2="sierpień";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3+LIPIEC.C3;JEŻELI(E2="wrzesień";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3+LIPIEC.C3+SIERPIEŃ.C3;JEŻELI(E2="październik";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3+LIPIEC.C3+SIERPIEŃ.C3+WRZESIEŃ.C3;JEŻELI(E2="listopad";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3+LIPIEC.C3+SIERPIEŃ.C3+WRZESIEŃ.C3+PAŹDZIERNIK.C3;JEŻELI(E2="grudzień";STYCZEŃ.C3+LUTY.C3+MARZEC.C3+KWIECIEŃ.C3+MAJ.C3+CZERWIEC.C3+LIPIEC.C3+SIERPIEŃ.C3+WRZESIEŃ.C3+PAŹDZIERNIK.C3+LISTOPAD.C3;BRAK()))))))))))));JEŻELI(CZY.LICZBA(POPRZEDNI_ROK.C3);POPRZEDNI_ROK.C3;0))/(SUMA(JEŻELI(E2="styczeń";BRAK();JEŻELI(E2="luty";1;JEŻELI(E2="marzec";2;JEŻELI(E2="kwiecień";3;JEŻELI(E2="maj";4;JEŻELI(E2="czerwiec";5;JEŻELI(E2="lipiec";6;JEŻELI(E2="sierpień";7;JEŻELI(E2="wrzesień";8;JEŻELI(E2="październik";9;JEŻELI(E2="listopad";10;JEŻELI(E2="grudzień";11;BRAK()))))))))))));JEŻELI(CZY.LICZBA(POPRZEDNI_ROK.C3);1;0)))

pruszko · Post autor: **pruszko** » sob wrz 11, 2010 12:27 pm

Dzięki !
To jest właśnie to

Dla udoskonalenia chcę jeszcze dołożyc dialog do przycisku "czyść dane miesiączne"
Napisałem takie makro:

Kod: Zaznacz cały

sub usun_dane
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 2

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

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$B$3:$C$4"

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

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Flags"
args3(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Flags"
args5(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Nr"
args6(0).Value = 3

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "ToPoint"
args7(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Flags"
args8(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ToPoint"
args9(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args9())

rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "Flags"
args10(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "Nr"
args11(0).Value = 4

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args11())

rem ----------------------------------------------------------------------
dim args12(0) as new com.sun.star.beans.PropertyValue
args12(0).Name = "ToPoint"
args12(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(0) as new com.sun.star.beans.PropertyValue
args13(0).Name = "Flags"
args13(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args13())

rem ----------------------------------------------------------------------
dim args14(0) as new com.sun.star.beans.PropertyValue
args14(0).Name = "ToPoint"
args14(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args14())

rem ----------------------------------------------------------------------
dim args15(0) as new com.sun.star.beans.PropertyValue
args15(0).Name = "Flags"
args15(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args15())

rem ----------------------------------------------------------------------
dim args16(0) as new com.sun.star.beans.PropertyValue
args16(0).Name = "Nr"
args16(0).Value = 5

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args16())

rem ----------------------------------------------------------------------
dim args17(0) as new com.sun.star.beans.PropertyValue
args17(0).Name = "ToPoint"
args17(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args17())

rem ----------------------------------------------------------------------
dim args18(0) as new com.sun.star.beans.PropertyValue
args18(0).Name = "Flags"
args18(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args18())

rem ----------------------------------------------------------------------
dim args19(0) as new com.sun.star.beans.PropertyValue
args19(0).Name = "ToPoint"
args19(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args19())

rem ----------------------------------------------------------------------
dim args20(0) as new com.sun.star.beans.PropertyValue
args20(0).Name = "Flags"
args20(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args20())

rem ----------------------------------------------------------------------
dim args21(0) as new com.sun.star.beans.PropertyValue
args21(0).Name = "Nr"
args21(0).Value = 6

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args21())

rem ----------------------------------------------------------------------
dim args22(0) as new com.sun.star.beans.PropertyValue
args22(0).Name = "ToPoint"
args22(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args22())

rem ----------------------------------------------------------------------
dim args23(0) as new com.sun.star.beans.PropertyValue
args23(0).Name = "Flags"
args23(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args23())

rem ----------------------------------------------------------------------
dim args24(0) as new com.sun.star.beans.PropertyValue
args24(0).Name = "ToPoint"
args24(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args24())

rem ----------------------------------------------------------------------
dim args25(0) as new com.sun.star.beans.PropertyValue
args25(0).Name = "Flags"
args25(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args25())

rem ----------------------------------------------------------------------
dim args26(0) as new com.sun.star.beans.PropertyValue
args26(0).Name = "Nr"
args26(0).Value = 7

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args26())

rem ----------------------------------------------------------------------
dim args27(0) as new com.sun.star.beans.PropertyValue
args27(0).Name = "ToPoint"
args27(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args27())

rem ----------------------------------------------------------------------
dim args28(0) as new com.sun.star.beans.PropertyValue
args28(0).Name = "Flags"
args28(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args28())

rem ----------------------------------------------------------------------
dim args29(0) as new com.sun.star.beans.PropertyValue
args29(0).Name = "ToPoint"
args29(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args29())

rem ----------------------------------------------------------------------
dim args30(0) as new com.sun.star.beans.PropertyValue
args30(0).Name = "Flags"
args30(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args30())

rem ----------------------------------------------------------------------
dim args31(0) as new com.sun.star.beans.PropertyValue
args31(0).Name = "Nr"
args31(0).Value = 8

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args31())

rem ----------------------------------------------------------------------
dim args32(0) as new com.sun.star.beans.PropertyValue
args32(0).Name = "ToPoint"
args32(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args32())

rem ----------------------------------------------------------------------
dim args33(0) as new com.sun.star.beans.PropertyValue
args33(0).Name = "Flags"
args33(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args33())

rem ----------------------------------------------------------------------
dim args34(0) as new com.sun.star.beans.PropertyValue
args34(0).Name = "ToPoint"
args34(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args34())

rem ----------------------------------------------------------------------
dim args35(0) as new com.sun.star.beans.PropertyValue
args35(0).Name = "Flags"
args35(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args35())

rem ----------------------------------------------------------------------
dim args36(0) as new com.sun.star.beans.PropertyValue
args36(0).Name = "Nr"
args36(0).Value = 9

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args36())

rem ----------------------------------------------------------------------
dim args37(0) as new com.sun.star.beans.PropertyValue
args37(0).Name = "ToPoint"
args37(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args37())

rem ----------------------------------------------------------------------
dim args38(0) as new com.sun.star.beans.PropertyValue
args38(0).Name = "Flags"
args38(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args38())

rem ----------------------------------------------------------------------
dim args39(0) as new com.sun.star.beans.PropertyValue
args39(0).Name = "ToPoint"
args39(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args39())

rem ----------------------------------------------------------------------
dim args40(0) as new com.sun.star.beans.PropertyValue
args40(0).Name = "Flags"
args40(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args40())

rem ----------------------------------------------------------------------
dim args41(0) as new com.sun.star.beans.PropertyValue
args41(0).Name = "Nr"
args41(0).Value = 10

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args41())

rem ----------------------------------------------------------------------
dim args42(0) as new com.sun.star.beans.PropertyValue
args42(0).Name = "ToPoint"
args42(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args42())

rem ----------------------------------------------------------------------
dim args43(0) as new com.sun.star.beans.PropertyValue
args43(0).Name = "Flags"
args43(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args43())

rem ----------------------------------------------------------------------
dim args44(0) as new com.sun.star.beans.PropertyValue
args44(0).Name = "ToPoint"
args44(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args44())

rem ----------------------------------------------------------------------
dim args45(0) as new com.sun.star.beans.PropertyValue
args45(0).Name = "Flags"
args45(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args45())

rem ----------------------------------------------------------------------
dim args46(0) as new com.sun.star.beans.PropertyValue
args46(0).Name = "Nr"
args46(0).Value = 11

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args46())

rem ----------------------------------------------------------------------
dim args47(0) as new com.sun.star.beans.PropertyValue
args47(0).Name = "ToPoint"
args47(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args47())

rem ----------------------------------------------------------------------
dim args48(0) as new com.sun.star.beans.PropertyValue
args48(0).Name = "Flags"
args48(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args48())

rem ----------------------------------------------------------------------
dim args49(0) as new com.sun.star.beans.PropertyValue
args49(0).Name = "ToPoint"
args49(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args49())

rem ----------------------------------------------------------------------
dim args50(0) as new com.sun.star.beans.PropertyValue
args50(0).Name = "Flags"
args50(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args50())

rem ----------------------------------------------------------------------
dim args51(0) as new com.sun.star.beans.PropertyValue
args51(0).Name = "Nr"
args51(0).Value = 12

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args51())

rem ----------------------------------------------------------------------
dim args52(0) as new com.sun.star.beans.PropertyValue
args52(0).Name = "ToPoint"
args52(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args52())

rem ----------------------------------------------------------------------
dim args53(0) as new com.sun.star.beans.PropertyValue
args53(0).Name = "Flags"
args53(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args53())

rem ----------------------------------------------------------------------
dim args54(0) as new com.sun.star.beans.PropertyValue
args54(0).Name = "ToPoint"
args54(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args54())

rem ----------------------------------------------------------------------
dim args55(0) as new com.sun.star.beans.PropertyValue
args55(0).Name = "Flags"
args55(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args55())

rem ----------------------------------------------------------------------
dim args56(0) as new com.sun.star.beans.PropertyValue
args56(0).Name = "Nr"
args56(0).Value = 13

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args56())

rem ----------------------------------------------------------------------
dim args57(0) as new com.sun.star.beans.PropertyValue
args57(0).Name = "ToPoint"
args57(0).Value = "$B$3:$C$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args57())

rem ----------------------------------------------------------------------
dim args58(0) as new com.sun.star.beans.PropertyValue
args58(0).Name = "Flags"
args58(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args58())

rem ----------------------------------------------------------------------
dim args59(0) as new com.sun.star.beans.PropertyValue
args59(0).Name = "ToPoint"
args59(0).Value = "$B$6:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args59())

rem ----------------------------------------------------------------------
dim args60(0) as new com.sun.star.beans.PropertyValue
args60(0).Name = "Flags"
args60(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args60())

rem ----------------------------------------------------------------------
dim args61(0) as new com.sun.star.beans.PropertyValue
args61(0).Name = "Nr"
args61(0).Value = 14

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args61())

end sub

Po naciśnięciu przycisku czyści dane z wszystkich miesięcy. Warto by było dołożyc do tego makra jakieś ostrzeżenie np. Czy napewno chcesz usunąć wszystkie dane?

Niestety nie udaje mi się takiego dialogu dobudować, czy ktoś może mi pomóc?

Post autor: **Raknor** » sob wrz 11, 2010 7:16 pm

Nie znam się na makrach, ale znalazłem coś takiego -> http://forum.computerworld.pl/excel-okn ... 32149.html może Ciebie zainspiruje albo kogoś do opracowania makra na openoffice.

Post autor: **Jan_J** » ndz wrz 12, 2010 1:51 am

Niestety nie udaje mi się takiego dialogu dobudować...

Jak królik z kapelusza

Kod: Zaznacz cały

rem rzeźbisz sobie w Basicu, rzeźbisz
rem I wtem
odpowiedz = msgBox("Czy umiesz odpowiedzieć na moje pytanie?", 4)
if odpowiedz = 6 then
  msgBox("Zgadłeś")
else
  msgBox("Nie zgadłeś")
endif

Zdawałoby się, czysta magia.
\seealso <F1>/Zawartość/Makra i programowanie/Lista poleceń/Alfabetyczny spis funkcji/MsgBox

PS. ja też nie rozumiem, dlaczego ustawili wartości 4 dla pytania Y/N, 6 dla True, 7 dla False.

pruszko · Post autor: **pruszko** » ndz wrz 12, 2010 9:11 am

rem I wtem
odpowiedz = msgBox("Czy umiesz odpowiedzieć na moje pytanie?", 4)
if odpowiedz = 6 then
msgBox("Zgadłeś")
else
msgBox("Nie zgadłeś")
endif

no tak komunikat sie pojawia lecz wciśnięcie przycisku NIE i tak powoduje wykonanie makra

a powinno anulować polecenie

Post autor: **Jan_J** » ndz wrz 12, 2010 11:09 am

Bo w złym miejscu sprawdzasz.

Kod: Zaznacz cały

rem rzeźbienie wstępne
odp = MsgBox(pytanie, 4)
if odp=6 then
  rem wykonaj czynności wymagające potwierdzenia (w tym przypadku czyszczenie danych)
else
  rem wykonaj czynności anulujące przygotowanie (o ile są niezbędne)
endif
rem wykonaj czynności końcowe

Radzę też w miarę możliwości unikać kodu pochodzącego z nagrywania makr. Jest znacznie mniej przejrzysty, bo posługuje się bardzo okrężną metodą.

pruszko · Post autor: **pruszko** » ndz wrz 12, 2010 1:22 pm

Eureka!
Jesteście Wielcy!

PEŁEN SZACUNEK!

udało się

wielkie dzięki !!!!

[SOLVED] średnia z róznych zakresów

[SOLVED] średnia z róznych zakresów

Re: średnia z róznych zakresów

Re: średnia z róznych zakresów

Re: średnia z róznych zakresów

Re: średnia z róznych zakresów

Re: średnia z róznych zakresów

Re: średnia z róznych zakresów

Re: średnia z róznych zakresów