• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

DatePicker, Kalender voor werkblad en Userform

Status
Niet open voor verdere reacties.

snb

Verenigingslid
Lid geworden
12 jun 2008
Berichten
19.725
Onlangs werd een vraag gesteld over de vervanging van de door MS uit VBA verwijderde 'DatePicker'.

Een aantal aangedragen alternatieven leek mij onnodig gecompliceerd.
Op mijn website heb ik nu een pagina gemaakt voor een gecombineerde DataPicker in een werkblad en voor invoer van data in een Userform.
Er zijn 2 voorbeeldbestanden: 1 .xlsb bestand en een AddIn (.xlam).

De DatePicker in een werkblad heb ik als optie toegevoegd aan het rechtermuisknopmenu met de titel 'DatePicker'.
Daardoor wordt geen enkele werkblad-gebeurtenis belast.

In het Userform de illustratie hoe een 'aankomstdatum'-veld en een 'vertrekdatum'-veld met de DatPicker kunnen worden gevuld.
De Datepicker is tegelijkertijd een illustratie hoe je een klassemodule op een efficiënte manier kunt inzetten voor diverse Userforms.

De lokatie van de DataPicker is afhankelijk van de plaats waar het resultaat (cel c.q. userformcontrol) moet komen

De Datepicker bevat:
- de weergave van het jaar
- een taalafhankelijke weergave van de maand
- een taalafhankelijke weergave van de ISO weekdagen
- een onderscheid tussen week- en weekenddagen
- de weergave van het ISO weeknummer
- een markering van 'vandaag'
- een markering van de te selecteren datum
- spinbutton om te scrollen tussen maanden (vooruit en achteruit)

Voor wie nieuwsgierig is:
https://www.snb-vba.eu/VBA_Datepicker.html

Voor wie commentaar wil leveren: in deze draad of via de suggestieknop op de website
 
Mooi gedaan! De weekdagen kloppen alleen nog niet;)

Code:
 Y = X - Weekday(X, 2) + Val(Right(.Name, 2)) [COLOR="#FF0000"]+ 1[/COLOR]
 
Daar heb je helemaal gelijk in. Ik had de namen van de Labels gewijzigd tot 0-base. Maar deze berekening daarbij vergeten.
Wordt aan gewerkt ! Bedankt.
 
Laatst bewerkt:

Bijlagen

  • __VBA_datepicker pickers perfecte positie.xlsb
    42,1 KB · Weergaven: 24
Laatst bewerkt:
Ik hanteer een andere definitie van perfect.

A1 aktief : linkerbovenhoek DP onder de top van A1
A20 aktief: linkerbovenhoek DP onder de top van A21
A40 aktief: linkerbovenhoek DP onder de top van A42

Zie de toegevoegde afbeelding.

Uit ergonomische overwegingen wil ik juist de rij van de eerste week van de Datepicker op dezelfde hoogte als de geselecteerde cel hebben.

Ergo: mijn versie blijft mijn voorkeur houden.
Zeker ook omdat ik geen code wil introduceren voor exotica als: lint verbergen, formulebalk verbergen etc.
De kern is de introduktie van een kleine krachtige vervanger voor de Datepicker. De kalender staat dus centraal.
 

Bijlagen

  • __VBA_datepicker.xlsb
    40,4 KB · Weergaven: 28
  • less than perfect.PNG
    less than perfect.PNG
    69,4 KB · Weergaven: 31
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan