Opgelost Datepicker

[jverkerk]

Zit een beetje te rommelen met vba datepicker.
Ik heb een tabelletje gemaakt en nu wil ik graag in al die cellen de datepicker kunnen gebruiken.
Als het teveel werk is hoeft het niet, het is om er wat wijzer van te worden en later weer ergens te kunnen gebruiken.

 

[edmoor]

Zoek op Helpmij eens naar datepicker.
Voorbeelden genoeg.

 

[peter59]

Johan
Dat hoef je niet zelf te maken, het is gewoon een Excel-add-in.

Om deze inhoud te bekijken, hebben we jouw toestemming nodig om cookies van derden te gebruiken.
Voor meer gedetailleerde informatie, zie onze cookiespagina.

Accepteer cookies van derden

 

[jverkerk]

@edmoor @peter59
ik heb dat bestandje met een datepicker, vroeg mij af of het moeilijk is om hem aan die tabel te koppelen.
Hij is gebruikt in een ander bestandje in een textbox en dus vroeg ik mij af of het mogelijk was in dat tabelletje. Ben al bezig geweest met chatgpt maar zonder succes.

 

[AHulpje]

Afgezien van het feit dat je kalender niet klopt (vandaag is het geen donderdag) kun je je met een Klassenmodule en wat For-loopjes een heleboel code besparen . Dubbelklik in een cel:

 

[JEC.]

Alsook hier besproken. Staat een stukje code bij voor achter je werkblad

Opgelost Bericht in onderwerp 'excel office 365'

27 jan 2024

Wat je hier omschrijft is letterlijk de datepicker

• JEC.

 

[jverkerk]

Resultaat.

 

[AHulpje]

Nou, opgelost? Iedere 1e van de maand valt op een zondag.

 

[Warme bakkertje]

OK, hier dan eentje met dynamische weekdagen.

 

[jverkerk]

Denk dat het zo beter is @AHulpje ? hahahaha
@Warme bakkertje , hoe print hij de datum in de cel?

 

[edmoor]

Heb je al eens op een datum in de kalender geklikt?

 

[jverkerk]

@edmoor Bedoel je in die van @Warme bakkertje of die van mij?

 

[edmoor]

Die van Warme bakkertje.

 

[jverkerk]

@edmoor Hij opent wel de kalender maar zet bij mij niets in een cel.

 

[edmoor]

In het document van Warme bakkertje of een document waar je die kalender hebt ingebouwd?
Die van Warme bakkertje werkt prima.
Die van jou in #10 trouwens ook.

 

[jverkerk]

Hij laat bij mij alleen de kalender zien en er gebeurt verder niets, ook niet als ik een datum aanklik.

 

[edmoor]

Dat is niet het document dat je in #10 plaatste en niet het document van Warme bakkertje..

 

[AHulpje]

Je kunt de 199 regels van Highlight_TodayDate en DefaultColor reduceren to 22 regels:

Private Sub Highlight_TodayDate(maand As Integer, jaar As Integer)
    Dim iDay    As Integer
    Dim iMonth  As Integer
    Dim iYear   As Integer
    Dim i       As Integer
   
    iDay = Day(Date)
    iMonth = month(Date)
    iYear = year(Date)
    If iMonth = maand And iYear = jaar Then
        For i = 1 To 42
            If val(Me.Controls("D" & i).Caption) = iDay Then
                Me.Controls("D" & iDay).BackColor = &HC0FFC0
                Exit Sub
            End If
        Next
    Else
        For i = 1 To 42
            Me.Controls("D" & i).BackColor = &H8000000F
        Next
    End If
End Sub

Eenzelfde soort methode kun je toepassen op
Sub Highlight_SelectedDate
Sub Disable_Days

De 1008 regels met D#_Click events kun je reduceren tot 30 regels door gebruik te maken van een KlassenModule, zie #5.
De D#_MouseDown en zeker de D#_MouseUp events zijn eigenlijk overbodig.
En vermijd het gebruik van reserved words, dus niet

Private Sub Highlight_TodayDate(month As Integer, year As Integer)

maar bijvoorbeeld zo:

Private Sub Highlight_TodayDate(maand As Integer, jaar As Integer)

 

[jverkerk]

Ik heb het van Warme bakkertje opnieuw gedownload en krijg dit toch echt.

 

[edmoor]

Dat is een ander document dan welke je in #10 plaatste.