Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een pop-up te openen wanneer u op een specifieke cel in Excel klikt?

Stel dat er een kolombereik in een werkblad ligt, dan moet je vaak binnen de tijd gegevens invoeren en wijzigen, maar het is verveeld om de datum per tijd in te voeren of te wijzigen. Hoe snel datums invoeren zonder handmatig in het kolombereik te typen? Dit artikel heeft het over het opduiken van een kalender bij het klikken op cellen in een bepaald bereik, en dan automatisch de datum in de geselecteerde cel invoegen na het selecteren van de datum in de kalender.

Pop-up van een kalender bij het klikken op een specifieke cel met VBA-code

Maak een UserForm met kalender

Activeer de kalender wanneer u op de cel klikt


Datumkiezer (selecteer eenvoudig een datum met een specifieke datumnotatie uit de kalender en voeg in de geselecteerde cel in):

Klik op Kutools > bijvoegsel > Datum invoegenen geef in het dialoogvenster Datum invoegen een datumindeling op, dubbelklik op een bepaalde datum om deze datum onmiddellijk in een geselecteerde cel in te voegen. Zie screenshot hieronder:

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download de gratis proefversie nu!

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Leesindeling (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik ...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde ... Voorkom dubbele cellen; Bereiken vergelijken ...
  • Selecteer Dubbele of Unieke rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkmappen; Willekeurig selecteren ...
  • Kopieer exact meerdere cellen zonder de formuleverwijzing te wijzigen; Automatisch verwijzingen maken naar meerdere bladen; Kogels invoegen, selectievakjes en meer ...
  • Favoriete en snel formules, reeksen, grafieken en afbeeldingen invoegen; Versleutel cellen met wachtwoord; Maak een mailinglijst en verzend e-mails ...
  • Tekst extraheren, tekst toevoegen, verwijderen op positie, spatie verwijderen; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen ...
  • Super Filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd Sorteren op maand / week / dag, frequentie en meer; Speciaal filter op vet, cursief ...
  • Werkboeken en werkbladen combineren; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Convert xls, xlsx en PDF ...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.

Pop-up van een kalender bij het klikken op een specifieke cel met VBA-code


Los dit probleem als volgt stap voor stap op.

Notes: Deze methode werkt alleen op Microsoft Excel 32-bit.

Maak een UserForm met kalender

Maak een UserForm die de agenda bevat die u opent door op een cel te klikken.

1. druk op anders + F11 toetsen tegelijkertijd om de Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > UserForm.

3. Dan een UserForm en Gereedschapskist er verschijnen vensters in de Gereedschapskist, klik op een besturingselement en klik met de rechtermuisknop en selecteer vervolgens Extra bedieningselementen vanuit het rechtsklikmenu. Zie screenshot:

4. In de Extra bedieningselementen dialoogvenster, scrol omlaag om het te controleren Microsoft MonthView-besturingselement optie in het Beschikbare bedieningselementen in en klik op de OK knop.

5. Dan kunt u de maandoverzicht knop is toegevoegd in de Gereedschapskist venster. Klik op deze MonthView-knop en klik vervolgens in het venster UserForm1 om een ​​agenda in het gebruikersformulier te maken.

Notes: U kunt het formaat van het UserForm-venster aanpassen aan de ingevoegde agenda door de rand van het UserForm te slepen.

6. Dubbelklik op de ingevoegde agenda in UserForm1 en in de Code venster, vervang de originele code door het volgende VBA-script.

VBA-code: maak een gebruikersformulier met kalender

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

Notes: Deze code kan helpen om de datum in de geselecteerde cel in te voegen na het selecteren van de datum in de kalender.

Activeer de kalender wanneer u op de cel klikt

Nu moet je bepaalde cellen opgeven om een ​​pop-up van de agenda te krijgen wanneer je klikt. Doe het als volgt.

7. Dubbelklik op de bladnaam met de cellen waarop u klikt om de agenda aan de linkerkant weer te geven Project deelvenster en kopieer en plak de onderstaande VBA-code in het codevenster. Zie screenshot:

VBA-code: klik op de cel om de agenda te openen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

Notes: in de code zijn A2: A10 cellen waarop u klikt om de kalender te openen. Wijzig het celbereik als je nodig hebt.

8. druk op anders + Q toetsen tegelijkertijd om de Microsoft Visual Basic voor toepassingen venster.

Vanaf nu, wanneer op een cel in het opgegeven bereik in het huidige werkblad wordt geklikt, verschijnt er een kalender zoals onderstaand screenshot wordt getoond. De datum wordt automatisch ingevoegd in de geselecteerde cel nadat de datum in de agenda is geselecteerd.


Gerelateerde artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    DwarthK · 3 months ago
    Thank you so much! These directions were super useful :)
  • To post as a guest, your comment is unpublished.
    jeet · 5 months ago
    Hi, Is it possible to put the date picker pop-up for multiple column, as in my sheet I have "start date", "end date" and "agreement date". if yes then how?
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi jeet,
      Follow the steps and replace the range "A2:A10" in the second VBA code with your column range (such as C2:E2).
  • To post as a guest, your comment is unpublished.
    Giuseppe · 6 months ago
    Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
  • To post as a guest, your comment is unpublished.
    Sam · 7 months ago
    if i try to select a row, the pop up will activate and the date appears in each cell in that row


    how can i avoid this
    • To post as a guest, your comment is unpublished.
      crystal · 6 months ago
      Hi Sam,
      The code has been updated in the article with the problem solving. Please have a try and thank you for your comment.
  • To post as a guest, your comment is unpublished.
    cevat · 7 months ago
    tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
  • To post as a guest, your comment is unpublished.
    MG · 1 years ago
    Hello everyone,

    Can anyone tell me how to popup a calendar in a range of cells, but starting only from the cell right bellow a table header and down bellow in an excel column.


    Thank you in advance.
    • To post as a guest, your comment is unpublished.
      Chris · 7 months ago
      Use i.e: Range("B6:C30")
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Sorry I didn't got your question. Would be nice if you could provide screenshot of what you are trying to do.
  • To post as a guest, your comment is unpublished.
    George · 2 years ago
    i used these VBA codes and everthing's fine so far. The range is A2:A10 and calendar pops up when you select a cell into it. But if you mark row from 2 to 10 again the calendar pops again. It's the same with column "A" if you mark it, again the calendar pops. How should i proceed, in order to get the calendar only in the range i've defined?
  • To post as a guest, your comment is unpublished.
    Sirimon · 2 years ago
    I want to show pop up calendar under the cell selected.How should I do?