подвежда №89

За да се гарантира правилното потребителско датира контролен Excel Calendar (Календар) може да направи нещата по-лесни за вас и за потребители, които работят с електронната си таблица. С този трик, можете да добавите контрол Calendar (Календар) във всяка работна книга на Excel.

Ако датата е въведен неправилно, Excel не може да го разпознае. Понякога това означава, че не можете да извършвате изчисления с числа, които изглеждат като дати, но датите не са. В допълнение, това означава, че всички таблици и осеви таблици, които се основават на тези данни ще са неправилни. Въпреки, че този проблем може да бъде решен инструмент за проверка на данни много гъвкав Excel, също така е далеч от съвършенство.

С този трик, можете да добавите контрол Calendar (Календар) във всяка работна книга на Excel. Първо, отворете работната книга, която ще добавим календара. По-добре да използвате вашия файл Personal.xls, която може да се отвори с File → Open (File → Open). Ако това меню не е на разположение, тогава ще трябва още Personal.xls файл. Можете да я създадете, като напишете празен макро. За да направите това, щракнете върху Старт запис → разработчици (Developer → Запис на нов макрос), както и в Save (Store Макро В), изберете Лична Macro книга (Personal Макро работна книга). След това натиснете бутона OK, изберете някоя клетка и да се спре записа. Excel автоматично ще се създаде Personal.xls файл.

Уверете се, че е избрана формата на UserForm и след това върху Преглед на имоти Window → (F4 ключ). В прозореца Properties, изберете надписа и замени думата UserForml дума Календар. Сега, изберете Изглед → кодекс (F7 ключ) и частния модул, въведете кода от картинката в Обява 7.14.

// Обявата 7.14 Private Sub Calendar1_Click () ActiveCell = Calendar1.Value End Sub Private Sub UserForm_Activate () Me.Calendar1.Value = Дата End Sub

Изберете Insert → командния модул в главния модул, въведете кода в Обява 7.15.

// Обявата 7.15 Под ShowIt () UserForm1.Show End Sub

Затвори прозореца, за да се върнете към Excel. Там изберете> Macros → макроси (Developer> Макро → макроси) (клавишна комбинация Alt + F8) и след това изберете ShowIt. Щракнете върху бутона Options (Опции), и възлага на макроса за клавишни комбинации - сте готови. Натиснете избрана клавишна комбинация ще отвори календар с днешна дата, избрана. Кликнете върху някоя дата, и той ще бъде включен в активната клетка.