Подскажите пожалуйста, мне нужен модуль для замены символов в выбранном диапазоне, я сделал функцию и макрос, но не могу их сохранить в одном модуле и оно почему-то не работаеть((((
| Код |
|---|
Public Function RgxDate(astring As Range) As String
Dim re As RegExp
Dim tempString
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "(\d{2}).(\d{2}).(\d{4})"
RgxDate = re.Replace(astring, "$1-$2-$3")
End Function
Public Sub CheckDate()
Dim MyRange As Range
On Error Resume Next
Set MyRange = Application.InputBox(Prompt:="Выберите диапазон", Type:=8)
If MyRange Is Nothing Then
MsgBox "Диапазон не выбран"
End If
For Each C In MyRange
C.Value = RgxDate(C.Value)
Next C
End Sub |
