Function IsKMTReady(ByVal sn As String) As Boolean Dim a() Dim i& '--------------- IsKMTReady = True a = Sheets(shAccounting).UsedRange.Value For i = UBound(a) To 4 Step -1 If a(i, colSN) <> "" Then If a(i, colSN) = TextBox3 Then If a(i, colDate2) = "" Then IsKMTReady = False Exit Function End If End If End If Next End Function
[/vba]
Делаю порверку на сравнеине введенного в ТехВох3 с базой данных и, если есть совпадение, выкрасить найденное в базе. Никак не получается (
Function IsKMTReady(ByVal sn As String) As Boolean Dim a() Dim i& '--------------- IsKMTReady = True a = Sheets(shAccounting).UsedRange.Value For i = UBound(a) To 4 Step -1 If a(i, colSN) <> "" Then If a(i, colSN) = TextBox3 Then If a(i, colDate2) = "" Then IsKMTReady = False Exit Function End If End If End If Next End Function
[/vba]
Делаю порверку на сравнеине введенного в ТехВох3 с базой данных и, если есть совпадение, выкрасить найденное в базе. Никак не получается (Kompromis
ツ iii dиw ʁɔvʎнdǝвǝdǝu – dиw vǝmоɔ ɔ ɐwʎ iii ツ
Сообщение отредактировал Kompromis - Среда, 20.04.2016, 09:58
Конечно не получится - что Вы красить собрались - элемент массива? попробуйте так: [vba]
Код
Function IsKMTReady(ByVal sn As String) As Boolean Dim a() Dim i& Dim r As Range '--------------- IsKMTReady = True a = Sheets(shAccounting).UsedRange.Value Set r = Sheets(shAccounting).UsedRange
For i = UBound(a) To 4 Step -1 If a(i, colsn) <> "" Then If a(i, colsn) = TextBox3 Then r.Cells(i, colsn).Font.ColorIndex = 15 If a(i, colDate2) = "" Then IsKMTReady = False Exit Function End If End If End If Next End Function
[/vba]
Конечно не получится - что Вы красить собрались - элемент массива? попробуйте так: [vba]
Код
Function IsKMTReady(ByVal sn As String) As Boolean Dim a() Dim i& Dim r As Range '--------------- IsKMTReady = True a = Sheets(shAccounting).UsedRange.Value Set r = Sheets(shAccounting).UsedRange
For i = UBound(a) To 4 Step -1 If a(i, colsn) <> "" Then If a(i, colsn) = TextBox3 Then r.Cells(i, colsn).Font.ColorIndex = 15 If a(i, colDate2) = "" Then IsKMTReady = False Exit Function End If End If End If Next End Function
Я понял, что нифигашеньки не понял. Т.е. условным форматированием - эт те пожалуйста, а при выполнении кода - нифига?! Но ведь тьма рабочих примеров! Как-то ведь люди воплощают?! Была в свое время надстройка BlackBox для сравнения двух массивов и раскраской в зависимости от совпадений... Или наши случаи как-то не совпадают? (не дорос еще до вынесения самостоятельных выводов, не догоняю какая проблема)
Я понял, что нифигашеньки не понял. Т.е. условным форматированием - эт те пожалуйста, а при выполнении кода - нифига?! Но ведь тьма рабочих примеров! Как-то ведь люди воплощают?! Была в свое время надстройка BlackBox для сравнения двух массивов и раскраской в зависимости от совпадений... Или наши случаи как-то не совпадают? (не дорос еще до вынесения самостоятельных выводов, не догоняю какая проблема)Kompromis
А у меня красит - см пример. Правда немного поменял функцию, поскольку там были неизвестные переменные... Мы же живого примера так и не увидели...SLAVICK
BlackBox- надстройка. После установки появляется кнопка в меню. Имеет интерфейс настроек как и чего выводить. Основная функция - грубо говоря, сравнить два столбца данных и напротив каждой строки поставить метку: 1. Данные содержится в обоих столбцах; 2. Данные уникальны для левого / правого.
Все подсвечено для восприятия....
BlackBox- надстройка. После установки появляется кнопка в меню. Имеет интерфейс настроек как и чего выводить. Основная функция - грубо говоря, сравнить два столбца данных и напротив каждой строки поставить метку: 1. Данные содержится в обоих столбцах; 2. Данные уникальны для левого / правого.
и правда, отлично работает! Только не понял обратно....ведь абсолютная идентичность! Почему давеча не работало?! [moder]Еще один такой вопрос ни о чем и влеплю замечание. Я же уже писал:
и правда, отлично работает! Только не понял обратно....ведь абсолютная идентичность! Почему давеча не работало?! [moder]Еще один такой вопрос ни о чем и влеплю замечание. Я же уже писал: