É possível inserir datas em um calendário suspenso?

Question

No Excel 2003, é possível inserir datas em uma célula de um calendário suspenso em vez de inseri-las manualmente?

    

Answer 1

É possível inserir datas em uma célula em um calendário suspenso?

Use o seguinte para o Excel 2003.

Adicionando uma caixa suspensa de calendário ao Excel 2003

1. Insert > Object, scroll down and click on "Microsoft Calendar Control".

2. Right click the worksheet tab and view code.

3. Paste the following code:

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Target.Cells.Count > 1 Then Exit Sub
       'Change this to your range of dates
       If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
           Calendar1.Top = Target.Top + Target.Height
           Calendar1.Left = Target.Left + Target.Width / 2 - Calendar1.Width / 2
           Calendar1.Visible = True
           Calendar1.Value = Now
       ElseIf Calendar1.Visible Then Calendar1.Visible = False
       End If
   End Sub
   Private Sub Calendar1_Click()
       ActiveCell.Value = (Calendar1.Value)
       ActiveCell.NumberFormat = "dd mmm yy"
   End Sub
   

   Note in the code the range for the dates is set as A1:A100, maintain the syntax and change this to suit.

4. Close VB editor.

5. Exit design mode.

When you click in a1:A100 you get a calendar that defaults to today's date.

Click a date and it gets entered in the active cell.

Fonte Adicionando uma caixa suspensa de calendário ao Excel 2003

    

Answer 2

Existem várias maneiras :

• adicionar campo de formulário com o calendário suspenso pode ser mais confortável, mas adequado para contagem de células limitada feita manualmente.

  1. ativar a guia Developer no Excel
  2. selecione Inserir > outros (ícone inferior direito) > Controle de Selecionador de Data e Hora da Microsoft 6.0
  3. coloque o controle na sua planilha
  4. usando a guia Developer , exiba a folha de propriedades do controle
  5. defina a propriedade LinkedCell para o seu celular
  6. usando a guia Developer , desative o Modo de design

• adicionar o selecionador suspenso universal de data / hora pode ser um pouco menos intuitivo de usar, mas você não precisa de mais manipulação especial de células de data

  • você pode obter esse suplemento (bem, para > excel-2003 você precisa encontrar algo assim) ou criar o seu próprio com funcionalidade semelhante (precisa de experiência com desenvolvimento de software). O caminho passa pelos suplementos do Excel.