Как создать календарь на листе Excel с помощью скрипта VBA

Excel имеет широкий спектр применения. В этой статье мы покажем вам, как создать календарь на листе с помощью макроса.

Помимо хранения и анализа данных в Excel, вы также можете использовать его для выполнения других задач. Например, вы можете собирать информацию с помощью Excel или записывать свои планы на листе. Сегодня мы нашли новое применение. Вы можете создать календарь на листе. Вы можете увидеть эффект на изображении ниже.

Вы можете ввести некоторые задачи в этот календарь. И функция такая же, как меморандум. С помощью Excel эти задачи будут более четкими. Теперь выполните шаги в следующей части и посмотрите, как это работает.

Создать календарь

1. Нажмите кнопку «Alt + F11» на клавиатуре, чтобы открыть рабочий лист.
2. А затем вставьте новый модуль в редактор Visual Basic.
3. Теперь скопируйте следующие коды в новый модуль:

Sub Create_Monthly_Calender() Dim firstweekday As Integer, EndDay As Integer, _ FirstWeekColumnIndex As Integer, AssignmentDate As Integer, _ FirstCountNumber As Integer, SecondCountNumber As Integer, _ LastDay As Range, objRange As Range, RowIndexofLastday As Integer, FirstCountforTargetRange как целое число, SecondCountforTargetRange As Integer firstday = InputBox("Введите год, месяц и первый день в следующем формате: год/месяц/день") Если firstday = "" Then Exit Sub Range("A1:G1").Merge Range("A1 ") = Год(первый день) & "." & Месяц(первый день) Диапазон("A2") = "Воскресенье" Диапазон("A2"). Назначение автозаполнения:=Диапазон("A2:G2"), Тип:=xlFillDefault firstweekday = Application.WorksheetFunction.Weekday(firstday) Cells (3, firstweekday) = 1 Выберите Case Month(firstday) Case 1, 3, 5, 7, 8, 10, 12 EndDay = 31 Case 4, 6, 9, 11 EndDay = 30 Case 2 If (Year(firstday) Mod 4) = 0 И (Год(первый день) Mod 100) <> 0 Или ((Год(первый день) Mod 400) = 0) Then EndDay = 29 Else EndDay = 28 End If End Select For FirstWeekColumnIndex = 1 To (7 - firstweekday ) Cells(3, firstweekday).Offset(0, FirstWeekColumnIndex) = Cells(3, firstweekday).Offset(0, FirstWeekColumnIndex - 1) + 1 Next FirstWeekColumnIndex AssignmentDate = Range("G3") + 1 For FirstCountNumber = от 2 до 10 Шаг 2 для SecondCountNumber = от 0 до 6 ячеек (3, первый день недели). Смещение (FirstCountNumber, 1 - первый день недели + SecondCountNumber) = Дата назначения Дата назначения = Дата назначения + 1 If Cells (3, первый день недели). Смещение (FirstCountNumber, 1 - первый день недели + SecondCountNumber) = EndDay Then Exit For End If Next SecondCountNumber If Cells(3, firstweekday).Offset(FirstCountNumber, 1 - firstweekday + SecondCountNumber) = EndDay Then Exit For End If Next FirstCountNumber 'установить формат для диапазона With Range("A1") . HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 16 .Font.Bold = True .Interior.Color = RGB(196, 202, 201) End with Range("A2:G2") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = True End With для каждого LastDay в ActiveSheet.UsedRange If LastDay = EndDay Then RowIndexofLastday = LastDay.Row End If Next For FirstCountforTargetRange = RowIndexofLastday To 3 Step -2 With Range("A" & FirstCountforTargetRange, "G" и FirstCountforTargetRange) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .RowHeight = 20 End with Next FirstCountforTargetRange для SecondCountforTargetRange = RowIndexofLastday + от 1 до 4 Шаг -2 с диапазоном ("A" и SecondCountforTargetRange, "G" и SecondCountforTargetRange) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = True .RowHeight = 50 .ColumnWidth = 12 End With Next SecondCountforTargetRange Установить objRange = Range("A1", "G" & (RowIndexofLastday + 1)) С objRange.Borders .Color = vbBlack .Weight = xlThin .LineStyle = xlContinuous End With ActiveWindow.DisplayGridlines = False Cells(3, firstweekday). Смещение (1, 0). Выберите End Sub

Таким образом, это очень одинокий макрос. Но вы можете использовать его напрямую. И вам не нужно его модифицировать.

4. Затем нажмите кнопку «F5» на клавиатуре.
5. Во всплывающем окне введите дату первого дня в формате «Год/Месяц/День». «День» может быть любым днем ​​в этом месяце, здесь мы введем «1».
6. А затем нажмите кнопку «ОК». Далее вы вернетесь в редактор. Чтобы проверить результат, вы можете вернуться к рабочему листу.

Календарь уже появился на листе. И курсор будет стоять на пустой ячейке первого дня.

С другой стороны, если вас не устраивает формат ячеек, вы также можете изменить коды по своему усмотрению. С этим календарем вы обязательно повысите эффективность своей работы.

Excel не менее подвержен сбоям

Если вы часто используете Excel, вам не составит труда обнаружить, что Excel всегда будет повреждаться. Мost времени, выйдите из Excel, а затем restarт это может решить проблему. Однако иногда вы столкнетесь с серьезным повреждением Excel. И в этот момент вы можете использовать наш мощный инструмент для исправить ошибку данных Excel xlsx. Используя этот инструмент, almost все ошибки легко устраняются.

Об авторе:

Анна Ма — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить файл Word docx и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com