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

Hogyan jelenjen meg egy naptár, amikor egy adott cellára kattint az Excelben?

Tegyük fel, hogy van egy oszloptartomány egy munkalapon, amelyet gyakran meg kell adnia és módosítania a dátumokat belül, de unalmas, ha időnként manuálisan adja meg vagy módosítja a dátumot. Hogyan lehet gyorsan megadni a dátumokat anélkül, hogy manuálisan beírnánk az oszloptartományt? Ez a cikk arról szól, hogy fel kell nyitni egy naptárt, amikor egy bizonyos tartományban lévő cellákra kattint, majd a dátum kiválasztása után a dátumot automatikusan beilleszti a kiválasztott cellába.


Felbukkan egy naptár, amikor egy adott cellára kattint VBA kóddal

Kérjük, lépésről lépésre oldja meg ezt a problémát.

Megjegyzések: Ez a módszer csak 32 bites Microsoft Excel rendszeren működhet.

1. lépés: Hozzon létre egy UserForm naptárral

Kérjük, hozzon létre egy UserFormot, amely tartalmazza a naptárat, amelyet egy cellára kattintva fel fog ugrani.

1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > UserForm.

3. Ezután a UserForm és egy Eszköztár ablakok jelennek meg, a Eszköztár, kattintson bármelyik vezérlőelemre, kattintson a jobb gombbal, majd válassza a lehetőséget További vezérlők a jobb egérgombbal kattintva. Lásd a képernyőképet:

4. Ban,-ben További vezérlők párbeszédpanelt, görgessen lefelé a Microsoft MonthView vezérlés lehetőség a Elérhető vezérlők jelölőnégyzetet, majd kattintson a gombra OK gombot.

5. Akkor láthatja a Havi nézet gomb hozzáadódik a Eszköztár ablak. Kattintson a MonthView gombra, majd a UserForm1 ablakra kattintva hozzon létre egy naptárt a Userformban.

Megjegyzések: A UserForm ablak méretét a behelyezett naptárhoz igazíthatja úgy, hogy elhúzza a UserForm szegélyét.

Kattintson duplán a beillesztett naptárra a UserForm6 és a Kód ablakban, kérjük, cserélje ki az eredeti kódot a következő VBA szkriptre.

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

Megjegyzések: Ez a kód segíthet a dátum beillesztésében a kiválasztott cellába, miután kiválasztotta a dátumot a naptárból.

2. lépés: Aktiválja a Naptárt, amikor a cellára kattint

Most meg kell adnia bizonyos cellákat, amelyekre kattintva megjelenik a naptár. Kérjük, tegye a következőket.

7. Kattintson duplán a lap nevére, amely azokat a cellákat tartalmazza, amelyekre kattintva megjelenik a bal oldali naptár NetPoulSafe projekt ablaktáblán, majd másolja és illessze be az alábbi VBA kódot a Kód ablakba. Lásd a képernyőképet:

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

Megjegyzések: a kódban az A2: A10 cellák, amelyekre kattintva megjelenik a naptár. Kérjük, módosítsa a cellatartományt, amire szüksége van.

8. nyomja meg más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.

Mostantól kezdve, amikor bármelyik cellára kattint az aktuális munkalap megadott tartományán belül, egy naptár jelenik meg, az alábbi képernyőképen. És a dátum automatikusan be lesz illesztve a kiválasztott cellába, miután kiválasztotta a dátumot a naptárból.


Felbukkan egy naptár, amikor egy adott cellára kattint VBA kóddal

Ez a szakasz bemutatja a Dátumválasztó hasznossága Kutools az Excel számára. A funkció engedélyezése után kattintson a dátum cellára, és megjelenik egy naptár. Könnyedén lecserélheti a meglévő dátumot egy új dátumra. A funkció alkalmazásához kövesse az alábbi lépéseket.

1. kettyenés Kutools > Tartalom > Dátumválasztó engedélyezése.

2. A funkció engedélyezése után kattintson egy dátum cellára, és egy naptár ikon jelenik meg közvetlenül a cellánál.

3. Kattintson a naptár ikonjára a Dátumválasztó párbeszédpanelt, majd kattintson egy új dátumra a dátum helyettesítésére a kijelölt cellában.

Megjegyzések:

  • Visszavonás gomb: Kattintson erre a gombra a dátum cseréjének visszavonásához;
  • Bezárás gomb: Kattintson erre a gombra a Dátumválasztó párbeszédpanel bezárásához;
  • Ez a szolgáltatás csak a dátumot tartalmazó cellákra vonatkozhat.

  Ha szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogramból, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (18)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Meg akarom jeleníteni a felugró naptárat a kiválasztott cella alatt.Hogyan tegyem?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezeket a VBA kódokat használtam, és eddig minden rendben van. A tartomány A2:A10, és a naptár megjelenik, amikor kiválaszt egy cellát. De ha ismét megjelöl egy sort 2-től 10-ig, a naptár újra felugrik. Ugyanez a helyzet az "A" oszloppal, ha bejelölöd, ismét felugrik a naptár. Hogyan kell eljárnom, hogy a naptár csak az általam meghatározott tartományba kerüljön?
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló mindenki,

Valaki meg tudja mondani, hogyan lehet egy naptárt cellák tartományába felbukkanni, de csak a táblázat fejlécének jobb oldali cellájából indulva, és lefelé egy Excel oszlopban.


Előre is köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Good Day,
Sajnálom, hogy nem kaptam meg a kérdésedet. Jó lenne, ha képernyőképet adnál arról, hogy mit próbálsz csinálni.
A weboldal moderátora ezt a megjegyzést minimalizálta
Használja pl.: Tartomány ("B6:C30")
A weboldal moderátora ezt a megjegyzést minimalizálta
Használja pl.: Tartomány ("B6:C30")
A weboldal moderátora ezt a megjegyzést minimalizálta
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
A weboldal moderátora ezt a megjegyzést minimalizálta
ha megpróbálok kiválasztani egy sort, az előugró ablak aktiválódik, és a dátum megjelenik az adott sor minden cellájában


hogyan tudnám ezt elkerülni
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Sam,
A kód frissítésre került a cikkben a problémamegoldással. Kérjük, próbálja ki, és köszönöm megjegyzését.
A weboldal moderátora ezt a megjegyzést minimalizálta
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Lehetséges-e a dátumválasztó előugró ablakot több oszlophoz is elhelyezni, mivel az én lapomon van "kezdő dátum", "befejezés dátuma" és "megállapodás dátuma". ha igen akkor hogyan?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Jeet,
Kövesse a lépéseket, és cserélje ki az „A2:A10” tartományt a második VBA-kódban az oszloptartományra (például C2:E2).
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon szépen köszönöm! Ezek az útmutatók nagyon hasznosak voltak :)
A weboldal moderátora ezt a megjegyzést minimalizálta
A naptár megjelenik, de amikor a dátumra kattintok, a cella nem töltődik fel
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
A kód jól működik az én esetemben. Melyik Excel verziót használod?
A weboldal moderátora ezt a megjegyzést minimalizálta
A listán nem szerepel Microsoft MonthView vezérlő (Office 365), és az itt található utasítások nem magyarázzák meg, hogyan szerezhető meg ez a vezérlő, így ez nagyjából haszontalan, hacsak nem az Excel régebbi verzióját használja.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem látom a Microsoft MonthView vezérlőt a listában, de lehet, hogy Pete (#32847) említette, hogy ez nem fog működni az Office 365-ben vagy a 64 bites Microsoft Office-ban.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Teagan Caudle!
Kerestem és kipróbáltam a google-ban javasolt módszereket, de végül nem tudtam regisztrálni a MonthView vezérlőt a Microsoft 365-ben.
Elnézést a kellemetlenségért. Talán ezt megnézheti.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi