A legördülő naptár dátumok megadása

A mi feladatunk -, hogy adjunk egy Excel-munkafüzetet egyéni formában (doboz), automatikus naptár. Itt is van:

Ekkor megjelenik egy ablak, ha megnyomja a billentyűkombinációt, majd válassza ki a kívánt dátumot, hogy - ez esik az aktuális cellát a munkalapon. Egyszerű és szép!

Hozzon létre egy új üres, akkor az egyéni formák kiválasztásával a Beszúrás menü - Kezelési formában.

Automatikusan megjelenik panel Toolbox.

Ha nem jelenik meg - kattintson a Nézet menü - Toolbox.

Ez a panel mutatja a különböző ablakok ellenőrzéseket, mint a gombok, listák, számlálók, stb De szükségünk van egy eleme (naptár), ami még mindig nem látható a kijelzőn. Ahhoz, hogy hozzá, kattintson a szürke háttér ablaktáblában kattintson a jobb gombbal, és válassza ki a további ellenőrzéseket. Ez az ablak jelenik meg:

Meg kell találni, és jelölje meg a naptár vezérlő 11,0 (Calendar vezérlő 11,0). Verzió eltérhet (11,0, 10,0, stb), attól függően, hogy a Microsoft Office, ez nem lényeges. Miután rákattintott az OK gombra a panel lesz egy új gomb - Naptár.

Kattints rá, majd rajzoljon egy doboz a naptár formájában, miközben lenyomva tartja az egér bal gombját:

Ha szükséges, a csípés a méret a forma és a naptár, és írja be a fejléc a Tulajdonságok területen a bal oldalon.

Most váltson át a kódot beviteli mód elkészített űrlap (Nézet menü - kód), és másolja ezt a szöveget:

Private Sub Calendar1_Click ()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "dd / mm / yy"
End Sub

Private Sub UserForm_Activate ()
Me.Calendar1.Value = Dátum
End Sub

Most, hogy az Excel megmutassa, hogy hozzon létre egy űrlapot, amikor mi akarjuk. Ehhez helyezze be az új modult (Beszúrás - Module), és másolja ezt a szöveget:

Sub ShowCalendar ()
UserForm1.Show
End Sub

Ha még nem telepítette a teljes Office-verzió, a naptár vezérlő nem jelennek meg a további vezérlők listáját. Akkor töltse le ezt a fájlt. helyezzük a mappa C: \ Windows \ system32 és regisztrálj az új szabályozás a Start menü - Futtatás. További tárcsázza Regsvr32 c: \ windows \ system32 \ mscal.ocx és kattintson az OK gombra.

(A beadagolás alatt Vadim köszönhetően)

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Ha Target.Cells.Count> 1 Akkor Exit Sub
Ha nem Application.Intersect (tartomány ( "A1: A20"), Target) Aztán semmi
UserForm1.Show
End If
End Sub

Most, a források elosztása minden sejt az A1: A20 naptár automatikusan megjelenik a képernyőn.

Hírek Fórum
Knights-éter elmélet