XenoZ
Gold Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sub SetHolidays()
Dim vCell As Range, vAnswer As Integer, vLastUsed As Long
vLastUsed = Cells(Rows.Count, 1).End(xlUp).Row
If Selection.Row < 7 Or Selection.Row > vLastUsed Then Exit Sub
For Each vCell In Selection
If (vCell.Column > 5 And vCell.Column < 21) Or (vCell.Column > 21 And vCell.Column < 38) Then
vAnswer = Weekday(DateSerial(Year(Range("AN1").Value), Month(Range("AN1").Value), Cells(4, vCell.Column).Value), vbMonday)
Select Case vAnswer
Case 6, 7
vCell.Value = "В"
Case Else
vCell.Value = ""
End Select
End If
Next
End Sub |
Всего записей: 5443 | Зарегистр. 29-03-2006 | Отправлено: 16:43 10-03-2021 | Исправлено: XenoZ, 18:52 10-03-2021 |
|
