Appointment calendar with pictures and filters View in combo boxes and in ListBox. Excel VBA

File structure. Appointment calendar with pictures in Excel VBA

The Excel file contains four worksheets: "Mask", "Sheet", "Person Database", and " Persons appointments".

The "Sheet" worksheet contains a list of records for the selected day or a list of people whose birthday is the selected day.

The "Person Database" worksheet contains a copy of this database.

The "Persons appointments" worksheet contains a list of all records for the selected person.

Calendar. Appointment calendar with pictures in Excel VBA

The input mask contains a calendar in the upper left corner.

The calendar consists of "Month" and "Date" combo boxes and seven rows of eight cells each.

The cells in the first row contain the names of the days of the week, and the first column contains the calendar week numbers.

Saturday cells have a green background, Sunday cells have a blue background, and the selected day has a yellow background.

Official holidays have a red background, while non-statutory holidays have a gray background.

If the selected day is a holiday, the name of the holiday appears in the elongated cell below. On non-working holidays, this cell is red, and on working holidays, it remains gray.

When the input mask is enabled, the calendar always shows today's date.

The yellow "Current date" button switches the calendar to today's date.

Change Year. Appointment calendar with pictures in Excel VBA

A calendar for any year can be created in the input mask using the "Change Year" button.

There are sixteen movable holidays in the list. By checking the box, the selected holiday is designated as a day off.

From a list of fifteen fixed holidays, users can choose the name and date of each holiday, and use the checkboxes to designate holidays as days off.

Click the "Take over" button; enter the 4-digit year in the input field, and click "OK." The calendar is created.

Delete everything. Appointment calendar with pictures in Excel VBA

Below the calendar are red and dark red buttons.

The "Delete all appointments" button deletes all entered entries. The password for deletion is three.

The "Delete personal database" button deletes the personal database. The password for deletion is three.

Enter appointments. Appointment calendar with pictures in Excel VBA

The "Appointment" frame is used to enter appointments; a maximum of one hundred appointments can be entered per day.

Each appointment specifies the "from" time, "to" time, person number, and reason for the appointment.

Scheduled appointments can be viewed in the list field and on the "Sheet" worksheet.

All entered appointments are sorted in ascending order by start time using the "Sort ascending" button.

Each appointment is assigned a number; it cannot be edited, only deleted. The password for deletion is three.

Person database. Appointment calendar with pictures in Excel VBA

The "Person Database" frame is used to enter personal data for up to four thousand people.

The database contains basic information about each person: gender, first and last name, date of birth, and address. A space is provided for notes.

A photo of each person can be added to the database.

The person database can be viewed in the list field and on the "Person Database" worksheet.

Each person is assigned a personal number that can be deleted. The password for deletion is the number three.

List of birthday people. Appointment calendar with pictures in Excel VBA

For each calendar day, the program creates a list of people whose birthday falls on the selected calendar day.

The "Persons Birthdays" frame lists all people whose birthday falls on the selected day, and the age of each birthday person is calculated.

The list of birthday people can be viewed in the list box and on the "Sheet" worksheet.

List of all appointments made for the selected person. Appointment calendar with pictures in Excel VBA

In the "Person appointments" frame, you can see a list of all entered records for each selected person.

The list of appointments can be viewed in the list box and on the "Person appointments" worksheet.

Insert or remove a picture. Appointment calendar with pictures in Excel VBA

If a person number is selected, two buttons are visible: "Insert Picture" and "Remove picture".

The "Insert Image" button inserts an image for each selected person.

The "Remove picture" button deletes the image for each selected person. The password for deletion is three.

Checkbox Appointment. Appointment calendar with pictures in Excel VBA

If the "Appointment" checkbox is checked, all appointments scheduled for the selected day will be displayed in the list box. The list box background is white.

The button below the row of checkboxes is titled "Sheet" and is gray.

When you click this button, the program creates the contents of the list box on the "Sheet" worksheet, activates the "Sheet" worksheet, and hides the input mask.

The worksheet contains the selected date and five columns with entry numbers, time periods, person numbers, and the reason for the appointments.

The upper right header of this sheet displays “Appointments from", the date, and the number of pages.

Checkbox Person Database. Appointment calendar with pictures in Excel VBA

If the "Person Database" checkbox is checked, the personal database will be displayed in a list box. The list box background is brown.

The button below the row of checkboxes is titled "Person Database" and is colored brown.

When you click this button, the program creates the contents of the list box on the "Person Database" worksheet, activates the "Person Database" worksheet, and hides the input mask.

The worksheet contains eleven columns with person numbers and basic information about each person, such as gender, first and last name, date of birth, address, and notes.

The top right header of this worksheet displays "Person Database" and the number of pages.

This worksheet can be filtered: click cell A1, select "Home," "Sort & Filter," and then "Filter" from the menu bar.

Checkbox Persons Birthdays. Appointment calendar with pictures in Excel VBA

If the "Persons Birthdays" checkbox is selected, all persons whose birthdays coincide with the selected date will be displayed in a list box. The list box background is yellow.

The button below the row of check boxes is titled "Sheet" and is yellow.

When you click this button, the program creates the contents of the list box on the "Sheet" worksheet, activates the "Sheet" worksheet, and hides the input mask.

The worksheet contains the selected date and four columns with person numbers, first and last names, and the year of birth.

The top right header of this sheet displays "Birthdays of", the date, and the page number.

Checkbox Persons appointments. Appointment calendar with pictures in Excel VBA

If the "Persons appointments" checkbox is checked, all appointments scheduled for the selected person will be displayed in the list box. The list box background is green.

The button below the row of checkboxes is titled "Persons appointments" and is green.

When you click this button, the program creates the contents of the list box on the "Person Records" worksheet, activates the "Persons appointments" worksheet, and hides the input mask.

The worksheet contains the selected person's photo, person number, first and last name, and four columns with appointments numbers, month of appointments, day of appointments, and time of appointments.

The top right header of this worksheet displays "Appointments from", the person number, and the number of pages.

This worksheet can be filtered: click cell A3, select "Home," "Sort & Filter," and then "Filter" from the menu bar.

Checkbox Filter view Database. Appointment calendar with pictures in Excel VBA

If the data in the "Person Database" worksheet is filtered, you can display it.

This is done using the "Filter view Database" checkbox.

If the "Filter view Database" checkbox is selected, only filtered person databases will be displayed in the list box. The list background is brown.

The button below the row of checkboxes is not visible.

In the "Person Database" frame, only filtered person numbers are available in the "Persons No." drop-down list.

Checkbox Filter view person appointments. Appointment calendar with pictures in Excel VBA

If the data in the "Persons appointments" worksheet is filtered, you can display it.

This is done using the "Filter view P. appoint." checkbox.

If the "Filter view P. appoint." checkbox is selected, only filtered person databases will be displayed in the list box. The list background is green.

The button below the row of checkboxes is not visible.

In the "Person appointments" frame, only filtered record numbers are available in the "Appointment ID No." drop-down list.

Use the mouse to select a line in the list box. Appointment calendar with pictures in Excel VBA

If you select a row in a list box by double-clicking the left mouse button, the data from the selected row will be displayed in drop-down lists of the same color as the list.

The column width in the list box regulates itself. Appointment calendar with pictures in Excel VBA

The column width in a list field is adjusted depending on the length of the text in it.