ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сравнить содержимое двух ячеек (текстовое)
4 сообщений из 4, страница 1 из 1
Сравнить содержимое двух ячеек (текстовое)
    #34914327
leonidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leonidy
Участник
Господа VBAшники кто помнит или знает функцию ,метод?Нужен быстрый способ сравнить текстовое содержимое двух заданных ячеек .Тупой посимвольный перебор не подходит,очень много записей.Заранее спасиб за идею.Давно не брал я в руки ...basic.
...
Рейтинг: 0 / 0
02.11.2007, 18:37
| Ответить | Цитировать | Написать  
Сравнить содержимое двух ячеек (текстовое)
    #34914436
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Например, в ячейке С1:
=If(A1 = B1,"","*")
...
Рейтинг: 0 / 0
02.11.2007, 19:28
| Ответить | Цитировать | Написать  
Сравнить содержимое двух ячеек (текстовое)
    #34914482
leonidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leonidy
Участник
Спасибо!
Вот еще вариант:
ActiveCell.FormulaR1C1 = "=EXACT(RC[-2],RC[-1])"
вернет False-True ->ActiveCell
Но меня интересует именно на VBA,без использования функций.Если есть функция значит
наверняка где-то зарыт метод с параметрами.Нужно так потому ,что ячейки ,которые сравниваем расположены хаотично в смысле в разных строках и столбцах и их тож надо вычислять (отдельная песня).
...
Рейтинг: 0 / 0
02.11.2007, 19:59
| Ответить | Цитировать | Написать  
Сравнить содержимое двух ячеек (текстовое)
    #34915244
BookTiger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
03.11.2007, 17:45
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сравнить содержимое двух ячеек (текстовое)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34914436&tid=2163142]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 60ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 247ms
total:  416ms
созд. / загр.: 416ms
x
x
Закрыть


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