По сложившейся уже традиции выкладываю обновленный со всеми праздниками, памятными датами и просто поводами выпить, а также расчетами рабочих часов на 40, 36 и 24-часовую рабочую неделю:
Поскольку Николай не отвечает, позволю себе ответить. Посмотрите , а также проглядите код макросов по нажатию Alt + F11. Думаю, большое количество вопросов отпадет
Николай, а можно подправить код, чтобы размер примечания автоматически корректировался (например, в ширину - половина самой длиной строки, в высоту - чтобы все влезло)?
Sub CommentFitter1()
Application.ScreenUpdating = False
Dim x As Range, y As Long
For Each x In Cells.SpecialCells(xlCellTypeComments)
Select Case True
Case Len(x.NoteText) <> 0
With x.Comment
.Shape.TextFrame.AutoSize = True
If .Shape.Width > 250 Then
y = .Shape.Width * .Shape.Height
.Shape.Width = 150
.Shape.Height = (y / 200) * 1.2
End If
End With
End Select
Next x
Application.ScreenUpdating = True
End Sub
Ну тогда еще предложение. Можно как-то обозначить разные праздники? Например цветом шрифта: - государственные - красный; - религиозные - синий; - профессиональные - зеленый; - и т.д. Соответствующие отметки можно поставить на листе "Справочник"
Николай, большое спасибо за календарь.
А, у Вас есть урок, показывающий как такой календарь сделать самому?
Посмотрите , а также проглядите код макросов по нажатию Alt + F11.
Думаю, большое количество вопросов отпадет
Но, так как я начинающий, то код макросов мне не поможет. Про урок спрашивал именно с целью научиться.
Нашел на макрос:
Можно как-то обозначить разные праздники?
Например цветом шрифта:
- государственные - красный;
- религиозные - синий;
- профессиональные - зеленый;
- и т.д.
Соответствующие отметки можно поставить на листе "Справочник"
Не могу прикрепить картинку, она закачалась IMG ID=82492file