Куда ее нужно скопировать, чтобы пользоваться ею при открытии новой рабочей книги?Ведь по-умолч.фукция сохраняется в текущей книге?Очень надо...Наверное вопрос не новый, может быть есть его решение?
- Код: Выделить всё
Function Kvartal(date1)
Dim month1 As Integer
Dim year1 As Integer
'Определение квартала по дате...
month1 = Month(date1)
year1 = Year(date1)
If (month1 = 1 Or month1 = 2 Or month1 = 3) Then
Kvartal = 1 & "кв" & year1
ElseIf (month1 = 4 Or month1 = 5 Or month1 = 6) Then
Kvartal = 2 & "кв" & year1
ElseIf (month1 = 7 Or month1 = 8 Or month1 = 9) Then
Kvartal = 3 & "кв" & year1
ElseIf (month1 = 10 Or month1 = 11 Or month1 = 12) Then
Kvartal = 4 & "кв" & year1
End If
End Function