Всем добрый день!
Возникла такая задача, у меня есть набор допустимых символов: "M", "T", "W", "R", "F", "S", "U". (дни недели)
Нужно проверить примерно 10 тыс строк на то чтобы в ней содержались только допустимые символы (Файл во вложении). Я написал пользовательскую фугкцию под это дело, но к сожалению она работает медленно на таком количестве строк. Возможно ли её как-то оптимизировать?
Вариант с формулами тоже подойдёт.
В дальнейшем хочу использовать решение в составе макроса.
Ни кто не сталкивался с подобным?
Возникла такая задача, у меня есть набор допустимых символов: "M", "T", "W", "R", "F", "S", "U". (дни недели)
Нужно проверить примерно 10 тыс строк на то чтобы в ней содержались только допустимые символы (Файл во вложении). Я написал пользовательскую фугкцию под это дело, но к сожалению она работает медленно на таком количестве строк. Возможно ли её как-то оптимизировать?
Вариант с формулами тоже подойдёт.
В дальнейшем хочу использовать решение в составе макроса.
Ни кто не сталкивался с подобным?
Код |
---|
Option Explicit Public Function Day_Correct(Day As String) As Boolean Dim i As Byte Dim dictDays Day_Correct = True Set dictDays = CreateObject("Scripting.Dictionary") dictDays.Add "M", 0 dictDays.Add "T", 0 dictDays.Add "W", 0 dictDays.Add "R", 0 dictDays.Add "F", 0 dictDays.Add "S", 0 dictDays.Add "U", 0 For i = 1 To Len(Day) If Not dictDays.Exists(Mid(Day, i, 1)) Then Day_Correct = False Exit For End If Next i End Function |