‘———————————————————————————————
‘Функция осуществляет поиск в массиве Rng значения, которые содержатся в массиве RngFind
‘Если значение найдено (по маске), то возвращает найденное значение, если нет, то пустую строку.
‘———————————————————————————————
Function GetNameInRng(ByVal Rng As Range, RngFind As Range)
On Error GoTo Next_
For Each r In Rng
For Each r0 In RngFind
If Not r.Find(r0.Value) Is Nothing Then
GetNameInRng = r0.Value
End If
Next
Next
Next_:
End Function
‘Функция возвращает дату, приведенную к формату ГГГГ.ММ.01
Function GenMyDate(ByVal Rng As Date)
If IsDate(Rng) Then
Rng = Format(Rng, «YYYY.MM.01»)
GenMyDate = Rng
Else: GenMyDate = «»
End If
End Function
‘Процедура для пакетного приобразования даты в выделенной области
Sub ConvertDate()
Set Rng = Application.InputBox( _
Prompt:=Prompt, _
Title:=»Введите адреса ячеек для проеобразования даты:», _
Default:=ActiveCell.Address, _
Type:=8)
For Each r In Rng
rr = r
r.Value = GenMyDate(rr)
Next
End Sub