Goedemorgen,
Vervolg van: invoegtoepassingen in Excel 2019
https://www.helpmij.nl/forum/showthread.php/964559-invoegtoepassingen-in-Excel-2019
Wel na meerdere dagen actief bezig te zijn geweest komt hierbij de mogelijke oplossing voor het ontbreken van het agenda besturingselement MSCAL.OCX.
MS heeft deze verwijzing onder VBA niet meer meegenomen in de updating naar nieuwere versies.
Na lang zoeken op diverse sites, kwam een Franse site tegen (https://forum.excel-pratique.com/ap...utonome-sans-module-microsoft-72229/2#p581722) en deze was dus geschikt om met Kalender mogelijkheid op redelijke wijze met VBA te maken en aan te sturen.
Met dank aan de ontwerpers, ben ik aan de gang gegaan en heb wel eerst enige problemen moeten verhelpen om alles goed te laten verlopen.
- ook geeft deze Kalender de Feestdagen weer,
- ook kan men een info schermpje openen,
- waaronder men weer het overzicht van de Feestdagen kan zien.
Men moet zelf wel enig werk doen en de Kalender creëren in je programma.
Heb het gedaan in Excel, maar begrijp dat het ook in Word zou kunnen.
Hoe men dit kan doen zie hieronder:
- in jouw program kan men de kalender aanroepen met "Calendrier_DutchOirsmen_Ver_v1.show"
Wel hoop dat er nog iemand is die dit zou kunnen gebruiken.
Vr. Gr.
Dutch
ps. Na installatie op andere PC met Win 11 en of dit gelukt is kom ik terug.
Vervolg van: invoegtoepassingen in Excel 2019
https://www.helpmij.nl/forum/showthread.php/964559-invoegtoepassingen-in-Excel-2019
Wel na meerdere dagen actief bezig te zijn geweest komt hierbij de mogelijke oplossing voor het ontbreken van het agenda besturingselement MSCAL.OCX.
MS heeft deze verwijzing onder VBA niet meer meegenomen in de updating naar nieuwere versies.
Na lang zoeken op diverse sites, kwam een Franse site tegen (https://forum.excel-pratique.com/ap...utonome-sans-module-microsoft-72229/2#p581722) en deze was dus geschikt om met Kalender mogelijkheid op redelijke wijze met VBA te maken en aan te sturen.
Met dank aan de ontwerpers, ben ik aan de gang gegaan en heb wel eerst enige problemen moeten verhelpen om alles goed te laten verlopen.
- ook geeft deze Kalender de Feestdagen weer,
- ook kan men een info schermpje openen,
- waaronder men weer het overzicht van de Feestdagen kan zien.
Men moet zelf wel enig werk doen en de Kalender creëren in je programma.
Heb het gedaan in Excel, maar begrijp dat het ook in Word zou kunnen.
Hoe men dit kan doen zie hieronder:
Code:
- open in Excel je program [file] en open in Excel ook de Calendar
- open VBA-editor [Alt-F11]
- maak in je program een UserForm aan [invoegen > UserForm]
- pas je UserForm aan met:
- Height: 244,8
- Width: 380,4
- Name: Calendrier
- Caption: Calendrier
- maak in je program een Module aan [invoegen Module]
- Selecteer de Module
- Verander de naam v/d Module [Beeld > Venstereigenschappen]
- maak in je program nog een Module aan [invoegen > Module]
- maak in je program een Klassenmodule aan [invoegen > Klassenmodule]
- Selecteer in prog.Calendar het UserForm (Calendrier) en selecteer alles
- Selecteer jouw program en selecteer UserForm (Calendrier) en plak alles
- Selecteer in prog.Calendar het UserForm (Calendrier) en selecteer alle code
- Selecteer jouw program en selecteer UserForm (Calendrier) en plak alle code
- Selecteer in prog.Calendar de Module (Calendar) en selecteer alles
- Selecteer jouw program en selecteer de Module (Calendar) en plak alles
- Selecteer in prog.Calendar de Module (Module1) en selecteer alles
- Selecteer jouw program en selecteer de Module (Module1) en plak alles
- Selecteer in prog.Calendar de Klassemodule (Klasse1) en selecteer alles
- Selecteer jouw program en selecteer de Klassemodule (Klasse1) en plak alles
- open Formulier Calendrier > Visual Basic Applications editor
- check onder UserForm Calendrier > Initialize > 8e regel, of "Set CaseJ = New Klasse1" de naam v/d Klassemodule correct is!
- Vergeet niet om een adres op te geven waar "Laatst gekozen Datum opgeslagen wordt
- pas het Path aan onder:
- Private Sub CmbValide_Click()
- Private Sub InfoBut_Click() 3 x
- Onder de knop Doorgaan, vind men onder Sub CmValide de variabele ChoixDate
- Deze ChoixDate kan men gebruiken als variabele (Datum) in je program.
- in jouw program kan men de kalender aanroepen met "Calendrier_DutchOirsmen_Ver_v1.show"
Wel hoop dat er nog iemand is die dit zou kunnen gebruiken.
Vr. Gr.
Dutch
ps. Na installatie op andere PC met Win 11 en of dit gelukt is kom ik terug.
Bijlagen
Laatst bewerkt: