Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

23rd
Июл

Макрос, который находит повторяющийся текст при его вводе и выводит окно предупреждения

Posted by Chas under Basic

Мне необходим макрос, который находит повторяющийся текст при его вводе и выводит окно предупреждения

Watcher_1
Держите код

 Private Sub Worksheet_Change(ByVal Target As Range)

    Dim myF As Range

    If Target.Column = 2 And Target.Value <> "" Then

        Set myF = Columns(2).Find(Target.Value)

        If Not myF Is Nothing Then

            If myF.Row <> Target.Row Then

                MsgBox "Есть совпадение" & vbCrLf & myF.Offset(, -1).Value & " " & myF.Value & " " & myF.Offset(, 3).Value

            End If

        End If

    End If

End Sub

А если допустим не вписываешь, а вставляешь несколько скопированных имен в столбик «ФИО» и среди них находятся повторяющиеся имена, то как быть?
slan

 Private Sub Worksheet_Change(ByVal Target As Range)

    Dim myF As Range, x As Range, s$

    If Target.Column = 2 Then

        For Each x In Target.Columns(1).Cells

        Set myF = Columns(2).Find(x.Value)

        If Not myF Is Nothing Then

            If myF.Row <> x.Row Then

                s = s & myF.Offset(, -1).Value & " " & myF.Value & " " & myF.Offset(, 3).Value & vbCrLf

            End If

        End If

        Next x

    End If

    If s <> "" Then MsgBox "Есть совпадение" & vbCrLf & s
End Sub

тема на форуме