Vba сравнение значений ячеек в excel в одну - Word и Excel

I would like to compare 2 cells’ value and see whether they are match or not.
I know how to do it on excel but I dont’ know how to put it vba code.

Input & output:

The value of cell A1 is already in the excel.
Manually enter a value in Cell B1.
click on a button_click sub to see whether the value on 2 cells are the same or not.
Show «Yes» or «No» on cell C1

Excel formula:

=IF(A1=B1,"yes","no")

asked Jan 21, 2015 at 15:55

Give this a try:

Sub CompareCells()
    If [a1] = [b1] Then
        [c1] = "yes"
    Else
        [c1] = "no"
    End If
End Sub

Assign this code to the button.

answered Jan 21, 2015 at 15:58

Gary’s StudentGary’s Student

95.3k9 gold badges58 silver badges98 bronze badges

If (Range("A1").Value = Range("B1").Value) Then
    Range("C1").Value = "Yes"
Else
    Range("C1").Value = "No"
End If

Chrismas007

6,0654 gold badges23 silver badges47 bronze badges

answered Jan 21, 2015 at 16:03

EswinEswin

292 bronze badges

You can use the IIF function in VBA. It is similar to the Excel IF

[c1] = IIf([a1] = [b1], "Yes", "No")

answered Jan 21, 2015 at 16:47

Paul KellyPaul Kelly

9057 silver badges13 bronze badges

Here is an on change Sub (code MUST go in the sheet module). It will only activate if you change a cell in column B.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column <> 2 Then Exit Sub
    If Cells(Target.Row, 1).Value = Cells(Target.Row, 2).Value Then
        Cells(Target.Row, 3).Value = "Yes"
    Else
        Cells(Target.Row, 3).Value = "No"
    End If
End Sub

For the record, this doesn’t use a button, but it accomplishes your goal of calculating if the two cells are equal any time you manually enter data into cells in Col B.

answered Jan 21, 2015 at 16:08

Chrismas007Chrismas007

6,0654 gold badges23 silver badges47 bronze badges

Sub CompareandHighlight()
    Dim n As Integer
    Dim sh As Worksheets
    Dim r As Range

    n = Worksheets("Indices").Range("E:E").Cells.SpecialCells(xlCellTypeConstants).Count
    Application.ScreenUpdating = False 

    Dim match As Boolean
    Dim valE As Double
    Dim valI As Double
    Dim i As Long, j As Long

    For i = 2 To n
        valE = Worksheets("Indices").Range("E" & i).Value
        valI = Worksheets("Indices").Range("I" & i).Value

        If valE = valI Then

        Else:                           
            Worksheets("Indices").Range("E" & i).Font.Color = RGB(255, 0, 0)
        End If
    Next i

    Application.ScreenUpdating = True
End Sub

barbsan

3,39811 gold badges21 silver badges28 bronze badges

answered Nov 21, 2018 at 9:29

Источник

wtftaekwondo

0 / 0 / 0

Регистрация: 05.03.2015

Сообщений: 15

06.09.2019, 16:26. Показов 12336. Ответов 10

Метки нет (Все метки)

Всем привет!
Стоит задача, чтобы сравнить две ячейки на содержимое: если в 1 ячейке имеется слово из другой ячейки, то необходимо справа от него записать это слово.
У меня получается решение данной задачи, если сравнивать , образно, 500 строк с одним словом и записывать его, если оно есть.
Однако мне требуется сравнить 500 строк с 50 словами и , в случае совпадения, записать это слово.
Вот пример успешного решения для 1 слова — «Труба».
Необходимо, чтобы InStr сравнивал ячейку не со словом «Труба», а с массивом «Celevye» в котором я запишу необходимые для присвоения слова.

Visual Basic

Sub reshen()
    Dim i As Integer
    Dim value As String
    Dim Celevye As Variant
    Dim TotalRows As Long
    Dim N As Integer
    TotalRows = Rows(Rows.Count).End(xlUp).Row
    Celevye = Array("Труба", "Гвоздь")
    N = 500
    Z = 50
            For j = 1 To Z
                For i = 1 To N
                    If InStr(1, Cells(i, 2), "Труба") <> 0 Then
                    Cells(i, 3) = "Труба"
                End If
                Next i
            Next j
End Sub

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

06.09.2019, 17:34

wtftaekwondo, Как говорится, меньше слов, а больше дел В общем, лучше приложите небольшой фрагмент таблиц, 1) что есть и 2) что должно получиться, после выполнения макроса.

0 / 0 / 0

Регистрация: 05.03.2015

Сообщений: 15

06.09.2019, 17:56

[ТС]

Хорошо. Вот две фотографии (пример).
Под колонкой F написаны слова, которые должны находиться в колонке «B».
В случае, если это слово содержится в ячейке, то справа оно должно записаться.

Миниатюры

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

06.09.2019, 18:06

Имелся ввиду, разумеется, xls(x) файл, чтобы не вводить исходные данные, а тестировать макрос сразу.

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

0 / 0 / 0

Регистрация: 05.03.2015

Сообщений: 15

06.09.2019, 18:18

[ТС]

За последние 2 строки извиняюсь, это идеальный вариант, которые уже обрабатывается вручную.
Необходимо просто получить «Направляющая».
Просто хотел побыстрее скинуть AS IS и TO BE поэтому не проверил.
Суть в том, чтобы третий столбец принял одно из значений массива из целевых слов (в моем примере их 3 слова).

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

06.09.2019, 18:33

Вариант с помощью формулу подойдёт ?

Код

=ИНДЕКС($F$1:$F$3;ПОИСКПОЗ(1;(СЧЁТЕСЛИ(B1;$F$1:$F$3&"*"));0))

0 / 0 / 0

Регистрация: 05.03.2015

Сообщений: 15

06.09.2019, 18:45

[ТС]

В целом тоже подойдет, спасибо)
Но если кто-то сталкивался с макросами и ему это будет знакомо, то хотелось бы еще и в VBA сделать.

pashulka

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

06.09.2019, 21:31

Сообщение было отмечено wtftaekwondo как решение

Решение

Visual Basic

Private Sub Test()
    Dim a1, a2, t, i1&, i2&
    a1 = Range("B1", Cells(Rows.Count, "B").End(xlUp)).Value
    a2 = Range("F1:F3").Value
    For i1 = 1 To UBound(a1)
        t = a1(i1, 1): a1(i1, 1) = Empty
        For i2 = 1 To 3
            If InStr(1, t, a2(i2, 1), vbTextCompare) = 1 Then
               a1(i1, 1) = a2(i2, 1)
               Exit For
            End If
        Next
    Next
    Range("C1").Resize(i1 - 1) = a1
End Sub

Или просто программно ввести вышеопубликованную формулу
правда в той формуле наличествуют лишние(ненужные) скобки для счётесли

Альтернативные варианты

Visual Basic

Private Sub Test2v1()
    Dim a1, a2, t, i&
    a1 = Range("B1", Cells(Rows.Count, "B").End(xlUp)).Value
    a2 = Range("F1:F3").Value
    For i = 1 To UBound(a1)
        t = Split(a1(i, 1))(0): a1(i, 1) = Empty
        If Not IsError( _
        Application.Match(t, a2, 0)) Then a1(i, 1) = t
    Next
    Range("C1").Resize(i - 1) = a1
End Sub

Visual Basic

Private Sub Test2v2()
    Dim r As Range, a, t, i&
    a = Range("B1", Cells(Rows.Count, "B").End(xlUp)).Value
    Set r = Range("F1:F3")
    For i = 1 To UBound(a)
        t = Split(a(i, 1))(0): a(i, 1) = Empty
        If Application.CountIf(r, t) > 0 Then a(i, 1) = t
    Next
    Range("C1").Resize(i - 1) = a
End Sub

wtftaekwondo

0 / 0 / 0

Регистрация: 05.03.2015

Сообщений: 15

09.09.2019, 12:16

[ТС]

Если не сложно, то сможете прокомментировать или объяснить данные строки:

Visual Basic

1
2
3

t = Split(a(i, 1))(0): a(i, 1) = Empty
If Application.CountIf(r, t) > 0 Then a(i, 1) = t
Range("C1").Resize(i - 1) = a

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

09.09.2019, 13:01

получаем первое слово(слово=любой набор символов): «очищаем» элемент массива
countif та же функция рабочего листа счётесли
заполняем диапазон, начиная с ячейки C1 и закачивая C & i-1 (в данном конкретном случае, можно написать «C1:C» & i-1) элементами массива a

пользуйтесь клавишей F1

0 / 0 / 0

Регистрация: 22.02.2019

Сообщений: 21

13.09.2019, 13:51

Много вариантов, конечно

Источник

CAHO

Пользователь

Сообщений: 2183
Регистрация: 25.02.2013

Добрый вечер товарищи.
Интересует такой вопрос. Есть ли возможность в VBA сравнить две строки без применения циклов.
Что-то типа Rows(1).value=Rows(2).value (это условно).
Было много тем сравнения диапазонов, но там опять же с применением циклов и массивов.
Нет ли всё-таки быстрого метода сравнения строк.
Если значения строки 1 равны значениям строки 2 то Msgbox. (Под строкой подразумеваю диапазон ячеек расположеный на одной строке, который может быть очень длинным).
Спасибо.

Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Вам нужно проверить соответствие КАЖДОЙ ячейки диапазона? Может быть сцепить все ячейки одной и другой строки, а затем проверить их идентичность?

CAHO

Пользователь

Сообщений: 2183
Регистрация: 25.02.2013

16.06.2015 14:44:00

Цитата
Юрий М написал: Вам нужно проверить соответствие КАЖДОЙ ячейки диапазона?

Именно это Юрий.

Цитата
Может быть сцепить все ячейки одной и другой строки, а затем проверить их идентичность?

Но тут опять же придётся по каждой ячейке бегать. Или вы имеете в виду формулой в отдельном месте?

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Или формулой в отдельной ячейке, или… опять же циклом. Но если цикл, то можно прямо в нём проверять КАЖДУЮ пару ячеек. А чем так страшен цикл? ))

Smiley Пользователь Сообщений: 530 Регистрация: 16.05.2013	CAHO, а если без VBA попробовать, например, УФ сравнить? Не подойдет?

Слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	ну как в формулах сравниваем, так и здесь — в имя прописать формулу сравнения и имя вычислить то, что нет циклов — это только кажется, просто они организованы могут быть более эффективно Изменено: Слэн — 16.06.2015 14:50:45

CAHO

Пользователь

Сообщений: 2183
Регистрация: 25.02.2013

16.06.2015 14:54:45

Цитата
Юрий М написал: А чем так страшен цикл? ))

Имеется ооооочень большая книга на несколько тысяч строк и 50 с лишним столбцов. Эта книга время от времени редактируется. И для того чтобы понять в какой именно ячейке произошли изменения необходимо проверить и сравнить каждую ячейку (включая объединённые ячейки). Циклом уходит много времени (несколько минут).
Вот я и думал сравнивать не ячейками, а строками. Если в строке нет изменений, то пропускаем её и т.д.

Цитата
УФ сравнить? Не подойдет?

Не, не подойдёт. Данная книга лежит на нескольких компьютерах. после внесения изменений каждого человека, все эти книги опрашиваются и собираются в одну уже с изменёнными данными.
Надеюсь понятно написал. )))

Изменено: CAHO — 21.06.2015 21:14:42

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

16.06.2015 14:57:00

Цитата
CAHO написал: Циклом уходит много времени (несколько минут).

Вручную быстрее? )) Может быть тогда загнать диапазон в массив и там проверять?

Слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	выкладдывайте файл с тремя строками минимум — есть изменения/ нет изменений объясняйте что вы сравниваете и что делаете по результатам сравнения

CAHO

Пользователь

Сообщений: 2183
Регистрация: 25.02.2013

#10

16.06.2015 15:34:30

Книгу не смогу выложить, ибо она не будет работать. Но выкладываю сам код, который переносит. данные из двух книг. Возможно ли заменить его на более шустрый?
Обычное сравнение ячеек. Загнать в массив это хорошо, но не совсем представляю как будет сравниваться.
1 IF копирует ячейку с примечанием
2 и 3 IF проверяет объединены ли ячейки
4 IF проверяет заливку
5 IF переносит формулы или данные

больше всего времени уходит на проверку объединённых ячеек

Код

For d = 4 To c 'Строка
For e = 1 To 38 'Столбец
    If e = 31 And Workbooks("БАЗА-АЛВИК.xls").Worksheets("База").Cells(d, e) <> Workbooks("БАЗА-АЛВИК.xls").Worksheets("Изменения").Cells(d, e) Then
    Workbooks("БАЗА-АЛВИК.xls").Worksheets("База").Cells(d, e).Copy Workbooks("Ба3а.xls").Worksheets("База").Cells(d, e)
    Else
        If Workbooks("БАЗА-АЛВИК.xls").Worksheets("База").Cells(d, e).MergeCells = True Then Workbooks("Ба3а.xls").Worksheets("База").Range(Workbooks("БАЗА-АЛВИК.xls").Worksheets("База").Cells(d, e).MergeArea.Address(0, 0)).Merge
        If Workbooks("БАЗА-АЛВИК.xls").Worksheets("База").Cells(d, e).MergeCells = False And Workbooks("Ба3а.xls").Worksheets("База").Cells(d, e).MergeCells = True Then Workbooks("Ба3а.xls").Worksheets("База").Range(Workbooks("Ба3а.xls").Worksheets("База").Cells(d, e).MergeArea.Address(0, 0)).UnMerge
        If Workbooks("БАЗА-АЛВИК.xls").Worksheets("База").Cells(d, e).Interior.ColorIndex <> Workbooks("БАЗА-АЛВИК.xls").Worksheets("Изменения").Cells(d, e).Interior.ColorIndex Then Workbooks("Ба3а.xls").Worksheets("База").Cells(d, e).Interior.ColorIndex = Workbooks("БАЗА-АЛВИК.xls").Worksheets("База").Cells(d, e).Interior.ColorIndex
        If Workbooks("БАЗА-АЛВИК.xls").Worksheets("База").Cells(d, e).Formula <> Workbooks("БАЗА-АЛВИК.xls").Worksheets("Изменения").Cells(d, e).Formula Or Workbooks("БАЗА-АЛВИК.xls").Worksheets("База").Cells(d, e) <> Workbooks("БАЗА-АЛВИК.xls").Worksheets("Изменения").Cells(d, e) Then Workbooks("Ба3а.xls").Worksheets("База").Cells(d, e).Formula = Workbooks("БАЗА-АЛВИК.xls").Worksheets("База").Cells(d, e).Formula
    End If
Next e
Next d

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

#11

16.06.2015 15:36:55

Цитата
CAHO написал: Книгу не смогу выложить, ибо она не будет работать.

А всю книгу и не нужно — создайте файл с аналогичной структурой и в нём 3-5 строк, кок просит Слэн.

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#12

16.06.2015 15:38:30

Цитата
CAHO написал: Нет ли всё-таки быстрого метода сравнения строк

Отсутствие цикла не означает, что метод будет работать быстрее. Слэн верно говорит — выложите файл, объясните что хотите реализовать и скорее всего решение будет хоть и с циклом, но наиболее оптимальным по времени выполнения.

А самый простой способ узнать были ли изменения — при открытии книги тупо копировать лист, а при закрытии прописать на третьем листе формулу сравнения(=Лист1!А1=Лист2!А1) и потом можно быстро вычислить только те строки, где ЛОЖЬ.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	там цвета сравниваются — так что все предположения о сравнении формулами можно забыть — только попробовать оптимизировать код

CAHO

Пользователь

Сообщений: 2183
Регистрация: 25.02.2013

Выкладываю на файлообменник файл.
Запускать необходимо файл База.
Логин: Александр
Пароль: 0202

Так вот. Там много всего. Но меня интересует как ускорить процесс сохранения книги.
Это сетевой файл. Пользоваться могут все одновременно.

Суть в чём. при открытии файла создаётся временный в папку Темп, и вы уже работаете в нём. при сохранении файла открывается главный сетевой файл и все различия переносятся в него, после этого сетевой файл сохраняется и закрывается.

http://dropmefiles.com/OTHtf

Изменено: CAHO — 16.06.2015 16:09:55

Слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	первое улучшение: два первых IF надо делать через if else? ,а то два раза одно и тоже проверяем

Слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	второе — через with Workbooks(«БАЗА-АЛВИК.xls»).Worksheets(«База»).Cells(d, e) надо делать а лучше определять в начале шага два объекта: Workbooks(«БАЗА-АЛВИК.xls»).Worksheets(«База»).Cells(d, e) и тоже для второй книги Изменено: Слэн — 16.06.2015 15:56:27

Слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#17 16.06.2015 15:59:30 поменять перебор условий немного… но, в общем, особой экономии врядли можно добиться Живи и дай жить..

Источник

If I understand your problem correctly, the following code should allow you to do what you want. Within the code, you select the range you wish to process; the first column of each data set, and the number of columns within each data set.

It does assume only two data sets, as you wrote, although that could be expanded. And there are ways of automatically determining the dataset columns, if there is no other data in between.

Option Explicit
Option Base 0
Sub RemoveDups()
    Dim I As Long, J As Long
    Dim rRng As Range
    Dim vRng As Variant, vRes() As Variant
    Dim bRng() As Boolean
    Dim aColumns, lColumns As Long
    Dim colRowsDelete As Collection

'vRng to include from first to last column to be tested
Set rRng = Range("f1", Cells(Rows.Count, "F").End(xlUp)).Resize(columnsize:=100)
vRng = rRng
ReDim bRng(1 To UBound(vRng))

'columns to be tested
'Specify First column of each data set
aColumns = Array(1, 13)

'num columns in each data set
lColumns = 3

For I = 1 To UBound(vRng)
    bRng(I) = vRng(I, aColumns(0)) = vRng(I, aColumns(1))
    For J = 1 To lColumns - 1
        bRng(I) = bRng(I) And (vRng(I, aColumns(0) + J) = vRng(I, aColumns(1) + J))
    Next J
Next I

'Rows to Delete
Set colRowsDelete = New Collection
For I = 1 To UBound(bRng)
    If bRng(I) = True Then colRowsDelete.Add Item:=I
Next I

'Delete the rows
If colRowsDelete.Count > 0 Then
Application.ScreenUpdating = False
    For I = colRowsDelete.Count To 1 Step -1
        rRng.Rows(colRowsDelete.Item(I)).EntireRow.Delete
    Next I
End If
Application.ScreenUpdating = True
End Sub

Источник

Операторы сравнения чисел и строк, ссылок на объекты (Is) и строк по шаблону (Like), использующиеся в VBA Excel. Их особенности, примеры вычислений.

Операторы сравнения чисел и строк

Операторы сравнения чисел и строк представлены операторами, состоящими из одного или двух математических знаков равенства и неравенства:

< – меньше;
<= – меньше или равно;
> – больше;
>= – больше или равно;
= – равно;
<> – не равно.

Синтаксис:

Результат = Выражение1 Оператор Выражение2

Результат – любая числовая переменная;
Выражение – выражение, возвращающее число или строку;
Оператор – любой оператор сравнения чисел и строк.

Если переменная Результат будет объявлена как Boolean (или Variant), она будет возвращать значения False и True. Числовые переменные других типов будут возвращать значения 0 (False) и -1 (True).

Операторы сравнения чисел и строк работают с двумя числами или двумя строками. При сравнении числа со строкой или строки с числом, VBA Excel сгенерирует ошибку Type Mismatch (несоответствие типов данных):

Sub Primer1()

On Error GoTo Instr

Dim myRes As Boolean

‘Сравниваем строку с числом

myRes = «пять» > 3

Instr:

If Err.Description <> «» Then

MsgBox «Произошла ошибка: « & Err.Description

End If

End Sub

Сравнение строк начинается с их первых символов. Если они оказываются равны, сравниваются следующие символы. И так до тех пор, пока символы не окажутся разными или одна или обе строки не закончатся.

Значения буквенных символов увеличиваются в алфавитном порядке, причем сначала идут все заглавные (прописные) буквы, затем строчные. Если необходимо сравнить длины строк, используйте функцию Len.

myRes = «семь» > «восемь» ‘myRes = True

myRes = «Семь» > «восемь» ‘myRes = False

myRes = Len(«семь») > Len(«восемь») ‘myRes = False

Оператор Is – сравнение ссылок на объекты

Оператор Is предназначен для сравнения двух переменных со ссылками на объекты.

Синтаксис:

Результат = Объект1 Is Объект2

Результат – любая числовая переменная;
Объект – переменная со ссылкой на любой объект.

Если обе переменные Объект1 и Объект2 ссылаются на один и тот же объект, Результат примет значение True. В противном случае результатом будет False.

Set myObj1 = ThisWorkbook

Set myObj2 = Sheets(1)

Set myObj3 = myObj1

Set myObj4 = Sheets(1)

myRes = myObj1 Is myObj2 ‘myRes = False

myRes = myObj1 Is myObj3 ‘myRes = True

myRes = myObj2 Is myObj4 ‘myRes = True

По-другому ведут себя ссылки на диапазоны ячеек. При присвоении ссылок на один и тот же диапазон нескольким переменным, в памяти создаются уникальные записи для каждой переменной.

Set myObj1 = Range(«A1:D4»)

Set myObj2 = Range(«A1:D4»)

Set myObj3 = myObj1

myRes = myObj1 Is myObj2 ‘myRes = False

myRes = myObj1 Is myObj3 ‘myRes = True

Оператор Like – сравнение строк по шаблону

Оператор Like предназначен для сравнения одной строки с другой по шаблону.

Синтаксис:

Результат = Выражение Like Шаблон

Результат – любая числовая переменная;
Выражение – любое выражение, возвращающее строку;
Шаблон – любое строковое выражение, которое может содержать знаки подстановки.

Строка, возвращенная аргументом Выражение, сравнивается со строкой, возвращенной аргументом Шаблон. Если обе строки совпадают, переменной Результат присваивается значение True, иначе – False.

myRes = «восемь» Like «семь» ‘myRes = False

myRes = «восемь» Like «*семь» ‘myRes = True

myRes = «Куда идет король» Like «идет» ‘myRes = False

myRes = «Куда идет король» Like «*идет*» ‘myRes = True

Со знаками подстановки для оператора Like вы можете ознакомиться в статье Знаки подстановки для шаблонов.

Источник