LibreOffice - datum en automatische cursor-invoer

[Nick Lamar]

L.S.

Ik heb een aantal libreoffice calc spreadsheets waarin elke dag van het jaar vertegenwoordigd is door een Rij/Row waarin bijbehorende gegevens zijn opgeslagen. Dus 1 januari begint op cel A1, 2 januari op cel A2, enzovoort t/m 31 december (cel A365, respectievelijk A366). Het zou prettig zijn als bij het oproepen van zo'n bestand de cursor automatisch op de bijbehorende rij zou staan (b.v. 15 januari op cel A15,  1 februari op cel A32, et cetera). Ik heb de functie DATUM uitgebreid bestudeerd en heb vanzelfsprekend internet doorzocht, maar heb geen antwoord gevonden. Daarom hier de vraag: bestaat hiervoor een formule of kan het niet?

N.L.     

[Paul Matthijsse]

Je bedoelt dat de dag van vandaag (8 augustus op deze dag van schrijven) automatisch getoond wordt?

[Nick Lamar]

Je bedoelt dat de dag van vandaag (8 augustus op deze dag van schrijven) automatisch getoond wordt?

Nee, dat vandaag (8 augustus 2016) de cursor na het opstarten van het bestand automatisch op cel A222 staat.

[Paul Matthijsse]

Zo op het eerste gezicht zie ik dat niet zo gauw. Heb je hier al gekeken?

https://wiki.openoffice.org/wiki/Documentation/OOo3_User_Guides/Calc_Guide/Using_formulas_to_find_data

[Nick Lamar]

Paul Matthijsse, voor de link. Ik heb die inderdaad geraadpleegd. Nog even voor alle duidelijkheid. Het gaat er om dat Calc naar aanleiding van de systeemdatum de cursor bij opstarten van het bewuste bestand in de juiste cel zet. Iets in de geest van:

Code: [Selecteer]

IF vandaag=08-08-2016 THEN cursor op A222

[JohPoe]

Dagnummer kan je bepalen met

Code: [Selecteer]

=DATUMVERSCHIL(DATUM(JAAR(VANDAAG());1;1);VANDAAG();"d")+1In een macro

Code: [Selecteer]

Sub DagNummer
x=datediff("d", "1-1-"&Year(Date()), Date())+1
MsgBox x
End Sub
Dus spring naar cel A[dagnummer] is de volgende uitdaging 

[Nick Lamar]

Dus spring naar cel A[dagnummer] is de volgende uitdaging

Dank voor de formule en de macro, die komen inderdaad het dichtste bij. Ik ga zien of er via deze weg iets valt te bereiken. Overigens is het geen halszaak, maar het zou handig zijn als ik het werkend kreeg.

[Paul Matthijsse]

Hallo, lukt dat allemaal niet doe dan gewoon Ctrl+F en vul de gewenste datum in het zoekveld in, zonder het jaartal. Dus Ctrl+F+08-08+Enter is voldoende om naar 8 augustus te springen (gebruik wel 08-08 ipv. 8-8).

[Nick Lamar]

Dank voor de reacties. Ik test nog even door en zie wel of er iets uitkomt.  Als dat zo is laat ik van mij horen.
N.L.

[JohPoe]

Code: [Selecteer]

sub GaNaarRijDagnummer

rem variabelen
dim document   as object
dim dispatcher as object
dim x as integer
dim myVar(0) as new com.sun.star.beans.PropertyValue

rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem bereken het huidige dagnummer
x=datediff("d", "1-1-"&Year(Date()), Date())+1

rem ga naar cel
myVar(0).Name = "ToPoint"
myVar(0).Value = "$A$"&ltrim(Str(x))
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, myVar())

end sub
Succes