Как сравнить строки без учета регистра - VB
Формулировка задачи:
Есть 2 dbf файла, нужно сравнить ячейки (строковые), проблема в заглавных буквах, одна база все заглавные, другая обыкновенные. Как сделать сравнение без учета регистра?
код программы:
Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant
Set CompareRange = Worksheets("База").Range("А1:А150")
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = "Да"
Next y
Next x
End Sub
Спасибо за ответ!
код программы:
Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant
Set CompareRange = Worksheets("База").Range("А1:А150")
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = "Да"
Next y
Next x
End Sub
Спасибо за ответ!
Решение задачи: «Как сравнить строки без учета регистра»
textual
Листинг программы
If InStr(1,and, "иск",1) > 0 Then
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д