Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Оптимизировать макрос с множеством запросов на изменение к одной таблице Access https://www.cyberforum.ru/ vba/ thread1301925.html
Есть макрос с большим количеством однотипных запросов на изменение (открыть запрос на изменение) (в основном корректировка записи по ГОСТ) для одной и той же таблицы Access. Все работает, но долго....
Обработать выделенный массив с изменением данных согласно формулам из примера VBA
Здравствуйте форумчане! Помогите, пожалуйста, с вопросами... У меня есть исходный массив, который нужно преобразовать по определенным формулам и вывести на новый лист. На данный момент:...
Пункт в Combobox под курсором VBA
Здравствуйте. Меня интересует следующий вопрос. Как в раскрывшемся списке в combobox получить номер пункта, над которым находится курсор мыши? Какое событие нужно обработать?
VBA В зависимости от знака произведения чисел в каждой паре элементов массива оставить от 0 до 2 чисел Sub Random() Dim I Randomize For I = 1 To 12 Cells(1, I) = Int(21 * Rnd) - 10 Next End Sub Sub Laba3var10() Dim a() As Double https://www.cyberforum.ru/ vba/ thread1301584.html
VBA Запрос в VBA, синтаксис "больше чем" https://www.cyberforum.ru/ vba/ thread1301517.html
Найти всех собственников, авто которых стояли на стоянке больше указанного времени. Время вводится дополнительно. Private Sub cmdZaput2_Click() Sheets("Запрос2").Range("A2:D100").Clear Время =...
VBA Выводит ошибку Next Without For
Подскажите пож. почему первый Next выдает ошибку Next Without For . Пробовала поменять местами next i endif не помогло. Sub zad7() k = Selection.Columns.Count Dim x() As Variant ReDim x(k)...
Подскажите, пожалуйста, что делает следующий кусочек кода VBA
Подскажите пожалуйста, что делает следующий кусочек кода: Dim NewBook As Variant, NewPage As Variant, aktPage As Variant Dim colvo As Integer, i As Integer Dim Way As String Dim...
VBA Выделить первую строку текста в ячейке средствами VBA Уважаемые форумчане! Подскажите пожалуйста, как с помощью VBA выделить (скопировать) первую строку текста в ячейке? Первая строка ограничивается Chr(10) https://www.cyberforum.ru/ vba/ thread1301330.html
VBA Выходит только одно значение. Что сделать, чтобы выходил массив? https://www.cyberforum.ru/ vba/ thread1301225.html
Function fun32(m As Integer, n As Integer) For x = 2 To 3 Step 0.2 s = 2 ^ ((m * x) / (n * Log(x))) fun32 = s Next End Function В данном примере должно выходит 5 значений,как это сделать?
VBA Подсчет количества строк в Excel День добрый. Имеется макрос. одной из задач которого стоит загрузка данных в базу SQL с другого документа excel. данные в том докменте постоянно прибавляются, становиться больше строк. ... https://www.cyberforum.ru/ vba/ thread1301105.html
4111 / 2218 / 938
Регистрация: 01.12.2010
Сообщений: 4,625
18.11.2014, 19:06 0

Сравнение диапазонов на НЕ полное совпадение

18.11.2014, 19:06. Показов 3157. Ответов 15
Метки (Все метки)

Лучший ответ Сообщение было отмечено without_xp как решение

Решение

Сорри, не заменил повторяющихся символов, из которых поиск находил только первый, собственно, вот это должно Вас устроить …

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Find_Matches()
    Dim CompareRange As Range, x As Range, y As Range
    Set CompareRange = Worksheets("Лист2").Range("A1:A180")
    
    Application.ScreenUpdating = False 'Имеет смысл использ. если выделено много ячеек
    Selection.Interior.ColorIndex = xlNone
    
    For Each y In CompareRange
        If Not IsEmpty(y) Then
           For Each x In Selection
               If InStr(1, x, y, vbTextCompare) > 0 Then x.Interior.Color = vbRed
           Next x
        End If
    Next y
    
    Application.ScreenUpdating = True
End Sub
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Find_Matches2()
    Dim CompareRange As Range, x As Range, y As Range, a$
    Set CompareRange = [Лист2!A:A].SpecialCells(xlConstants, xlTextValues)
    
    Selection.Interior.ColorIndex = xlNone
    
    For Each x In CompareRange
        Set y = Selection.Find(x, , xlValues, xlPart)
        If Not y Is Nothing Then
           a = y.Address
           Do
                y.Interior.ColorIndex = 3
                Set y = Selection.FindNext(y)
           Loop While y.Address <> a
        End If
    Next
End Sub


Вернуться к обсуждению:
Сравнение диапазонов на НЕ полное совпадение
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2014, 19:06
Готовые ответы и решения:

Сравнение двух диапазонов ячеек на совпадение
Здравствуйте! Подскажите пожалуйста... Имеется 2 диапазона ячеек А1:A3 и C1:C3, в которых забиты...

Поиск позиции. Не полное совпадение
Здравствуйте форумчане. Что-то не выходит справиться с =ПОИСКПОЗ(). Есть две таблицы....

Полное совпадение при поиске текста
Вот код $file = fopen(&quot;db.txt&quot;, &quot;r&quot;); $buffer = fread($file, filesize(&quot;db.txt&quot;)); ...

Сравнить два массива на полное совпадение
Написать программу, сравнивающую два массива на их полное совпадение. то есть нужно сравнивать как...

15
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.