Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сравнить содержимое двух ячеек (текстовое) / 4 сообщений из 4, страница 1 из 1
02.11.2007, 18:37
    #34914327
leonidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сравнить содержимое двух ячеек (текстовое)
Господа VBAшники кто помнит или знает функцию ,метод?Нужен быстрый способ сравнить текстовое содержимое двух заданных ячеек .Тупой посимвольный перебор не подходит,очень много записей.Заранее спасиб за идею.Давно не брал я в руки ...basic.
...
Рейтинг: 0 / 0
02.11.2007, 19:28
    #34914436
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сравнить содержимое двух ячеек (текстовое)
Например, в ячейке С1:
=If(A1 = B1,"","*")
...
Рейтинг: 0 / 0
02.11.2007, 19:59
    #34914482
leonidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сравнить содержимое двух ячеек (текстовое)
Спасибо!
Вот еще вариант:
ActiveCell.FormulaR1C1 = "=EXACT(RC[-2],RC[-1])"
вернет False-True ->ActiveCell
Но меня интересует именно на VBA,без использования функций.Если есть функция значит
наверняка где-то зарыт метод с параметрами.Нужно так потому ,что ячейки ,которые сравниваем расположены хаотично в смысле в разных строках и столбцах и их тож надо вычислять (отдельная песня).
...
Рейтинг: 0 / 0
03.11.2007, 17:45
    #34915244
BookTiger
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сравнить содержимое двух ячеек (текстовое)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Compare Text
Sub Сравнить()
 
If ActiveSheet.Cells( 1 ,  1 ).Value = ActiveSheet.Cells( 1 ,  2 ).Value Then
MsgBox "Yes"
End If
 If ActiveSheet.Cells( 1 ,  1 ).Value Like ActiveSheet.Cells( 1 ,  2 ).Value Then
MsgBox "Yes"
End If
End Sub
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сравнить содержимое двух ячеек (текстовое) / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]