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

Cum să deschideți un calendar când faceți clic pe o anumită celulă din Excel?

Presupunând că există o gamă de coloane într-o foaie de lucru pe care trebuie să o introduceți și să modificați frecvent datele în interior, dar este plictisit să introduceți sau să modificați data manual de fiecare dată. Cum să introduceți rapid date fără să introduceți manual în intervalul de coloane? Acest articol vorbește despre afișarea unui calendar atunci când faceți clic pe celule dintr-un anumit interval, apoi inserarea datei în celula selectată automat după selectarea datei din calendar.


Apăsați un calendar când faceți clic pe o anumită celulă cu cod VBA

Vă rugăm să rezolvați această problemă după cum urmează pas cu pas.

notițe: Această metodă poate funcționa numai pe Microsoft Excel pe 32 de biți.

Pasul 1: Creați un UserForm cu calendar

Vă rugăm să creați un UserForm care conține calendarul pe care îl veți afișa făcând clic pe o celulă.

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Formular utilizator.

3. Apoi a Formular utilizator și Toolbox ferestrele apar, în Toolbox, faceți clic pe orice control și faceți clic dreapta, apoi selectați Controale suplimentare din meniul cu clic dreapta. Vedeți captura de ecran:

4. În Controale suplimentare caseta de dialog, derulați în jos pentru a verifica Control Microsoft MonthView opțiune în Controale disponibile , apoi faceți clic pe OK butonul.

5. Apoi puteți vedea Vizualizare lunară butonul este adăugat în Toolbox fereastră. Faceți clic pe acest buton MonthView, apoi faceți clic pe fereastra UserForm1 pentru a crea un Calendar în Formularul de utilizator.

notițe: Puteți ajusta dimensiunea ferestrei UserForm pentru a se potrivi calendarului inserat prin glisarea marginii UserForm.

6. Faceți dublu clic pe calendarul inserat în UserForm1 și în Cod fereastră, vă rugăm să înlocuiți codul original cu următorul script VBA.

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

notițe: Acest cod vă poate ajuta să inserați data în celula selectată după selectarea datei din calendar.

Pasul 2: Activați calendarul când faceți clic pe celulă

Acum trebuie să specificați anumite celule pentru a afișa calendarul atunci când faceți clic. Vă rugăm să faceți următoarele.

7. Faceți dublu clic pe numele foii care conține celulele pe care veți face clic pentru a afișa calendarul din stânga Proiect , apoi copiați și lipiți codul VBA de mai jos în fereastra Cod. Vedeți captura de ecran:

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

notițe: în cod, A2: A10 sunt celule pe care veți face clic pentru a afișa calendarul. Vă rugăm să modificați intervalul de celule după cum aveți nevoie.

8. presa Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

De acum înainte, când faceți clic pe orice celulă din intervalul specificat în foaia de lucru curentă, va apărea un calendar așa cum este prezentat mai jos. Și data va fi inserată automat în celula selectată după selectarea datei din calendar.


Apăsați un calendar când faceți clic pe o anumită celulă cu cod VBA

Această secțiune introduce Data Picker utilitatea Kutools pentru Excel. După activarea acestei funcții, faceți clic pe o celulă de dată va apărea un calendar, puteți înlocui cu ușurință data existentă cu o dată nouă cu aceasta. Vă rugăm să urmați pașii de mai jos pentru a aplica această caracteristică.

1. clic Kutools > Conţinut > Activați selectorul de date.

2. După activarea acestei funcții, faceți clic pe o celulă de dată și o pictogramă de calendar va apărea chiar în celulă.

3. Faceți clic pe pictograma calendarului pentru a deschide Data Picker casetă de dialog, apoi faceți clic pe o dată nouă pentru a înlocui data în celula selectată.

note:

  • Buton Anulare: Faceți clic pe acest buton pentru a anula data înlocuirii;
  • Buton Închidere: Faceți clic pe acest buton pentru a închide caseta de dialog Data Picker;
  • Această caracteristică se poate aplica numai celulelor care conțin data.

  Dacă doriți să aveți o încercare gratuită (30-zi) a acestei utilitati, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Articole pe aceeași temă:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (18)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vreau să afișez un calendar pop-up sub celula selectată.Cum ar trebui să fac?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am folosit aceste coduri VBA și totul este bine până acum. Intervalul este A2:A10 și calendarul apare când selectați o celulă în ea. Dar dacă marcați din nou rândul de la 2 la 10, calendarul apare din nou. Este la fel și cu coloana „A” dacă o marcați, iar calendarul apare. Cum ar trebui să procedez, pentru a obține calendarul numai în intervalul pe care l-am definit?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna tuturor,

Poate cineva să-mi spună cum să afișez un calendar într-o serie de celule, dar începând doar din celula din dreapta de sub antetul tabelului și mai jos într-o coloană Excel.


Va multumesc anticipat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
O zi buna,
Îmi pare rău că nu am primit întrebarea ta. Ar fi bine dacă ați putea oferi o captură de ecran a ceea ce încercați să faceți.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Utilizați, de exemplu: Range("B6:C30")
Acest comentariu a fost redus la minimum de moderatorul de pe site
Utilizați, de exemplu: Range("B6:C30")
Acest comentariu a fost redus la minimum de moderatorul de pe site
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
Acest comentariu a fost redus la minimum de moderatorul de pe site
dacă încerc să selectez un rând, se va activa fereastra pop-up și data apare în fiecare celulă din acel rând


cum pot evita asta
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna Sam,
Codul a fost actualizat în articol cu ​​rezolvarea problemei. Vă rugăm să încercați și vă mulțumesc pentru comentariu.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Este posibil să puneți fereastra pop-up de selectare a datei pentru mai multe coloane, deoarece în foaia mea am „data de început”, „data de încheiere” și „data acordului”. daca da atunci cum?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Jeet,
Urmați pașii și înlocuiți intervalul „A2:A10” din al doilea cod VBA cu intervalul de coloană (cum ar fi C2:E2).
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc foarte mult! Aceste indicații au fost super utile :)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Calendarul va apărea, dar când dau clic pe dată, celula nu se populează
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,
Codul funcționează bine în cazul meu. Ce versiune de Excel folosești?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu există niciun control Microsoft MonthView listat (Office 365), iar instrucțiunile de aici nu explică cum s-ar obține acel control, așa că acest lucru este aproape inutil dacă nu utilizați o versiune mai veche de Excel.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu văd Microsoft MonthView Control în listă, dar poate fi așa cum a menționat Pete (#32847) că acesta nu va funcționa în Office 365 sau Microsoft Office pe 64 de biți.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Teagan Caudle,
Am căutat și am încercat metodele sugerate în google, dar în cele din urmă nu am putut înregistra controlul MonthView în Microsoft 365.
Îmi pare rău pentru neplăcerile create. Poate poți verifica asta.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL