Имеются две таблицы, на лист 1 расписаны объемы металлоконструкций и их вес: _____________A________________________ B_______C - швеллер [24У по ГОСТ 8240-93 С245).......т......5.00 - уголки L50x5 по ГОСТ 8509-93 C235.........т......7.00 - пластины t24 по ГОСТ 8200-70 С245........т.......1.50 - пластины t20 по ГОСТ 8200-70 С245........т........0.30 На листе 2 имеется таблица с данными о количестве м2 краски на одну тонну разных элементов: _A_____ B_______C 24У........ т..........35 27У........ т..........33.2 L50x5..... т.........52 L75x6..... т..........44 L90x7..... т.........37 -t6..........т.........42.5 -t20........т.........12.7
Так вот не могу сделать поиск части текста в столбце A на лист 1, как в столбце A на листе 2 и сформировать на листе 1 в столбце D ячейку с соответствущим числом из столбца С на лист 2. Надеюсь задача понятна. Пробовали варианты с функциями ПОИСК и ИНДЕКС, и другие, соответствие не ищется. Может есть вариант с промежуточной задачей. Уже несколько дней бьюсь, решил спросить у бывалых.
Имеются две таблицы, на лист 1 расписаны объемы металлоконструкций и их вес: _____________A________________________ B_______C - швеллер [24У по ГОСТ 8240-93 С245).......т......5.00 - уголки L50x5 по ГОСТ 8509-93 C235.........т......7.00 - пластины t24 по ГОСТ 8200-70 С245........т.......1.50 - пластины t20 по ГОСТ 8200-70 С245........т........0.30 На листе 2 имеется таблица с данными о количестве м2 краски на одну тонну разных элементов: _A_____ B_______C 24У........ т..........35 27У........ т..........33.2 L50x5..... т.........52 L75x6..... т..........44 L90x7..... т.........37 -t6..........т.........42.5 -t20........т.........12.7
Так вот не могу сделать поиск части текста в столбце A на лист 1, как в столбце A на листе 2 и сформировать на листе 1 в столбце D ячейку с соответствущим числом из столбца С на лист 2. Надеюсь задача понятна. Пробовали варианты с функциями ПОИСК и ИНДЕКС, и другие, соответствие не ищется. Может есть вариант с промежуточной задачей. Уже несколько дней бьюсь, решил спросить у бывалых.Gizmo2k
только нужно более точное соответствие. Например, в ячейке А4 значение 25К1 не соответствует искомому из листа 2 (скорее всего рус/лат шрифты - не проверял)
только нужно более точное соответствие. Например, в ячейке А4 значение 25К1 не соответствует искомому из листа 2 (скорее всего рус/лат шрифты - не проверял)pabchek
Public Function MyF(Name As String, TypesRange, Weight As Range) As Variant
Dim Founded As Boolean, S, SS As String
MyF = "" Founded = False S = Name For i = 1 To TypesRange.Rows.Count If (Not Founded) And (Replace(S, Replace(Replace(TypesRange(i, 1).Value, "'", ""), "-", ""), "") <> Name) Then MyF = Weight(i, 1).Value Founded = True End If Next i
End Function
[/vba]
Поправленный вариант [vba]
Код
Public Function MyF(Name As String, TypesRange, Weight As Range) As Variant
Dim Founded As Boolean, S, SS As String
MyF = "" Founded = False S = Name For i = 1 To TypesRange.Rows.Count If (Not Founded) And (Replace(S, Replace(Replace(TypesRange(i, 1).Value, "'", ""), "-", ""), "") <> Name) Then MyF = Weight(i, 1).Value Founded = True End If Next i