Note: The other languages of the website are Google-translated. Back to English

Hvordan dukker en kalender op, når du klikker på en bestemt celle i Excel?

Hvis vi antager, at der er et kolonneområde i et regneark, skal du ofte indtaste og ændre datoer inde, men det keder sig at indtaste eller ændre dato manuelt pr. Gang. Hvordan indtastes datoer hurtigt uden manuelt at skrive i kolonneområdet? Denne artikel taler om at poppe en kalender op, når du klikker på celler i et bestemt interval og derefter automatisk indsætte dato i den valgte celle efter valg af dato i kalenderen.


Pop op en kalender, når du klikker på en bestemt celle med VBA-kode

Løs dette problem som følger trin for trin.

Bemærk: Denne metode kan kun fungere på Microsoft Excel 32-bit.

Trin 1: Opret en UserForm med kalender

Opret en UserForm, der indeholder den kalender, du vil poppe op, ved at klikke på en celle.

1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Brugerformular.

3. Derefter a Brugerformular og en Værktøjskasse vinduer dukker op, i Værktøjskasse, klik på et hvilket som helst kontrolelement og højreklik, og vælg derefter Yderligere kontrolelementer fra højreklikmenuen. Se skærmbillede:

4. i Yderligere kontrolelementer dialogboksen, rul ned for at kontrollere Microsoft MonthView-kontrol valgmulighed i Tilgængelige kontroller og klik derefter på OK .

5. Så kan du se Månedsvisning knappen tilføjes i Værktøjskasse vindue. Klik på denne MonthView-knap, og klik derefter på UserForm1-vinduet for at oprette en kalender i brugerformularen.

Bemærk: Du kan justere størrelsen på UserForm-vinduet, så det passer til den indsatte kalender, ved at trække grænsen til UserForm.

6. Dobbeltklik på den indsatte kalender i UserForm1 og i Kode vindue, skal du udskifte den originale kode med følgende VBA-script.

VBA code: create a user form with calendar

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

Bemærk: Denne kode kan hjælpe med at indsætte dato i den valgte celle efter at have valgt dato fra kalenderen.

Trin 2: Aktivér kalenderen, når du klikker på cellen

Nu skal du angive bestemte celler, der skal vises i kalenderen, når du klikker. Gør som følger.

7. Dobbeltklik på arknavnet, der indeholder de celler, du vil klikke på for at åbne kalenderen til venstre Projekt ruden, og kopier og indsæt derefter nedenstående VBA-kode i vinduet Kode. Se skærmbillede:

VBA code: Click cell to pop up calendar

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

Bemærk: i koden er A2: A10 celler, du vil klikke på for at åbne kalenderen. Skift celleområdet, som du har brug for.

8. Trykke andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.

Fra nu af, når der klikkes på en hvilken som helst celle inden for det angivne område i det aktuelle regneark, vises en kalender som vist nedenfor. Og dato indsættes automatisk i den valgte celle efter valg af dato fra kalenderen.


Pop op en kalender, når du klikker på en bestemt celle med VBA-kode

Dette afsnit introducerer Datovælger nytte af Kutools til Excel. Når du har aktiveret denne funktion, skal du klikke på en datocelle, der åbner en kalender, og du kan nemt erstatte den eksisterende dato med en ny dato med den. Følg nedenstående trin for at anvende denne funktion.

1. klik Kutools > Indhold > Aktivér datovælger.

2. Når du har aktiveret denne funktion, skal du klikke på en datocelle, så vises et kalenderikon lige til cellen.

3. Klik på kalenderikonet for at åbne Datovælger dialogboksen, og klik derefter på en ny dato for at erstatte datoen i den valgte celle.

Bemærkninger:

  • Fortryd-knap: Klik på denne knap for at fortryde udskiftningsdatoen;
  • Luk knap: Klik på denne knap for at lukke dialogboksen Datovælger;
  • Denne funktion kan kun gælde for celler, der indeholder dato.

  Hvis du vil have en gratis prøveperiode (30-dag) for dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Relaterede artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (18)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ønsker at vise pop op-kalender under den valgte celle. Hvordan skal jeg gøre?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg brugte disse VBA-koder og alt er fint indtil videre. Området er A2:A10, og kalenderen dukker op, når du markerer en celle i den. Men hvis du markerer række fra 2 til 10 igen, springer kalenderen igen. Det er det samme med kolonne "A", hvis du markerer det, springer kalenderen igen. Hvordan skal jeg fortsætte, for kun at få kalenderen inden for det område, jeg har defineret?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej allesammen,

Kan nogen fortælle mig, hvordan man popup en kalender i en række celler, men kun startende fra cellen til højre under en tabeloverskrift og ned under i en Excel-kolonne.


Tak på forhånd.
Denne kommentar blev minimeret af moderatoren på webstedet
Good Day,
Beklager, at jeg ikke fik dit spørgsmål. Det ville være rart, hvis du kunne give et skærmbillede af, hvad du forsøger at gøre.
Denne kommentar blev minimeret af moderatoren på webstedet
Brug dvs.: Range("B6:C30")
Denne kommentar blev minimeret af moderatoren på webstedet
Brug dvs.: Range("B6:C30")
Denne kommentar blev minimeret af moderatoren på webstedet
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
Denne kommentar blev minimeret af moderatoren på webstedet
hvis jeg prøver at vælge en række, aktiveres pop op-vinduet, og datoen vises i hver celle i den række


hvordan kan jeg undgå dette
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Sam,
Koden er blevet opdateret i artiklen med problemløsningen. Prøv det og tak for din kommentar.
Denne kommentar blev minimeret af moderatoren på webstedet
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Er det muligt at sætte datovælgeren pop-up for flere kolonner, da jeg i mit ark har "startdato", "slutdato" og "aftaledato". hvis ja hvordan så?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej jeet,
Følg trinene og erstat området "A2:A10" i den anden VBA-kode med dit kolonneområde (såsom C2:E2).
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak! Disse anvisninger var super nyttige :)
Denne kommentar blev minimeret af moderatoren på webstedet
Kalenderen vises, men når jeg klikker på datoen, udfyldes cellen ikke
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Koden fungerer godt i mit tilfælde. Hvilken Excel-version bruger du?
Denne kommentar blev minimeret af moderatoren på webstedet
Der er ingen Microsoft MonthView Control på listen (Office 365), og anvisningerne her forklarer ikke, hvordan man ville få den kontrol, så dette er stort set ubrugeligt, medmindre du bruger en ældre version af Excel.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg kan ikke se Microsoft MonthView Control i listen, men det kan være som Pete (#32847) nævnte, at dette ikke vil fungere i Office 365 eller 64-bit Microsoft Office.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Teagan Caudle,
Jeg søgte og prøvede de metoder, der blev foreslået i google, men kunne i sidste ende ikke registrere MonthView-kontrollen i Microsoft 365.
Beklager ulejligheden. Måske du kan tjekke dette ud.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL