падащия календар за въвеждане на датите

Нашата задача - да се добави към Excel работна книга обичай форма (кутия) с автоматичен календар. Ето го:

Ще се появи прозорец, когато натиснете клавишната комбинация и след това изберете желаната дата в него - той попада в текущата клетка в работния лист. Лесна и красива!

Създаване на нова празни го персонализирани форми, като изберете от менюто Вмъкване - форма на потребителя.

В случай, автоматично се появява панел Toolbox.

Ако не се появи - кликнете върху менюто Изглед - Toolbox.

Този панел представя различни прозорци контрол, като например бутони, списъци, броячи и т.н. Но ние се нуждаем един елемент от (календар), който все още не се вижда на панела. За да го добавите, щракнете върху прозореца на сив фон, щракнете с десния бутон и изберете допълнителен контрол. Този прозорец ще се появи:

Необходимо е да се намери и да отбележат Календар Control 11.0 (Календар Control 11.0). Версия може да се различава (11.0, 10.0, и т.н.), в зависимост от версията на Microsoft Office, това не е от съществено значение. След като кликнете OK на панела ще бъде нов бутон - Календар.

Кликнете върху него и след това да очертаете поле във формуляра за календара, докато държите натиснат левия бутон на мишката:

Ако желаете, пощипване на размера на формата и прозореца на календара и да влезе заглавният текст в панела за имоти в ляво.

Сега преминете към въвеждане на код режим създадена форма (Виж меню - Code) и да копирате този текст:

Частни Под Calendar1_Click ()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "дд / мм / гг"
End Sub

Частни Под UserForm_Activate ()
Me.Calendar1.Value = Дата
End Sub

Сега ние трябва да направим Excel ни покаже за създаване на форма, когато го искате. За да направите това, поставете новия модул (Insert - Module) и да копирате този текст:

Под ShowCalendar ()
UserForm1.Show
End Sub

Ако не сте инсталирали пълната версия на Office, контрол на календара може да не се появи в списъка с допълнителни мерки за контрол. Тогава свалите този файл. поставете го в папка C: \ Windows \ system32 и регистрация на нов контрол от менюто Start - Run. Освен това наберете regsvr32 C: \ Windows \ system32 \ mscal.ocx и кликнете OK.

(През допълнение Вадим благодарение)

Частни Под Worksheet_SelectionChange (ByVal Target As Range)
Ако Target.Cells.Count> 1 Тогава Exit Sub
Ако не Application.Intersect (Range ( "A1: A20"), Target) не е нищо Тогава
UserForm1.Show
Крайна сметка, ако
End Sub

Сега, разпределението на всяка клетка в диапазона A1: A20 календар автоматично ще се появи на екрана.

Новини
Knights етер теория