Infoga datum med kalenderkontrollen

Infoga datum med
kalenderkontrollen

Här visas hur vi kan infoga datum i celler mha av kalenderkontrollen. Tekniken kan komma väl till pass vid t ex planering av verksamheter mm.

Steg 1 - Skapa en referens till kontrollen

Först måste vi koppla kontrollen till arbetsboken. Det sker genom att:

Att välja kommandot Verktyg | Referenser... i VB-editorn.

Bocka för namnet "Microsoft Calendar Control xx.0".
(Vilken version kontrollen har beror på vilken version av XL du använder.)

Saknar du tillgång till kontrollen finns den att hämta hem på MS hemsida.

Steg 2 - Göra kontrollen tillgänglig i arbetsbladet

Ta fram verktygsfältet Kontroller.

Klicka på knappen Fler kontroller.

Välj Calendar Control xx.0.

Vill du formatera kontrollen efter egna önskemål så:

Högerklicka på kontrollen.

Välj Calendar-Objekt i menyn.

Egenskaper (Properties).

Rita ut en knapp i arbetsbladet och koppla nedanstående procedur till knappen. Proceduren skapas i en standardmodul:

Sub Visa_Kalender()
With Blad1.Calendar1
     .Top = ActiveCell.Top
     .Left = ActiveCell.Left + ActiveCell.Width
     .Visible = True
End With
End Sub

I nästa steg skapar vi händelseproceduren när vi klickar på ett datum i kalenderkontrollen. Denna procedur skapas i arbetsbladets modul:

Private Sub Calendar1_Click()
'© 2002 Alla rättigheter XL-Dennis

'Tilldelar aktiv cell valt datum och döljer kalenderkontrollen
With Calendar1
       .Top = ActiveCell.Top
       .Left = ActiveCell.Left + ActiveCell.Width + 10
       ActiveCell.Value = .Value
       .Visible = False
End With

'Justerar aktuell kolumn för datumformatet
With ActiveCell
      .EntireColumn.AutoFit
      .Select
End With
End Sub

Så här ser resultatet ut efter vi har klickat på knappen:

Har vi tillgång till t ex SamLogics VB Super Library finns ytterligare kalenderkontroller att tillgå.