Здравствуйте! У меня такой вопрос, имеется функция "выбор значения из диапозона ячеек по двум критериям". Сейчас у меня появилась необходимость заменить функцию макросом с теми же условиями отбора, т. е. "выбор значения из диапозона ячеек по двум критериям". В примере использована эта функция, вот код -
Code
'усовершенствованная версия ВПР(VLOOKUP2), но выбор по трем критериям
Function VLOOKUP4(Диапазон_поиска As Range, N_столбца_результата As Integer, _
N_столбца_поиска_1 As Integer, Искомое_значение_1 As Variant, _
N_фхождения As Integer, _
Optional N_столбца_поиска_2, Optional Искомое_значение_2, _
Optional N_столбца_поиска_3, Optional Искомое_значение_3)
Application.Volatile True
Dim I As Integer
Dim iCount As Integer
Dim z_ As Boolean, x_ As Boolean, c_ As Boolean
If IsMissing(N_столбца_поиска_2) Then N_столбца_поиска_2 = N_столбца_поиска_1: Искомое_значение_2 = Искомое_значение_1
If IsMissing(N_столбца_поиска_3) Then N_столбца_поиска_3 = N_столбца_поиска_1: Искомое_значение_3 = Искомое_значение_1
For I = 1 To Диапазон_поиска.Rows.Count
z_ = Диапазон_поиска.Cells(I, N_столбца_поиска_1) = Искомое_значение_1
x_ = Диапазон_поиска.Cells(I, N_столбца_поиска_2) = Искомое_значение_2
c_ = Диапазон_поиска.Cells(I, N_столбца_поиска_3) = Искомое_значение_3
If z_ * x_ * c_ Then
iCount = iCount + 1
End If
If iCount = N_фхождения Then
VLOOKUP4 = Диапазон_поиска.Cells(I, N_столбца_результата)
Exit For
End If
Next I
End Function
И еще такой вопрос, не зависимо от результата первого вопроса, в примере будет видно - есть кнопка копировать значение из определенной ячейки, значение может меняться. Нужно сопировать только значение, в примере я использовал тупо записанный макрос копирования. Все работает но появилась проблема, дело в том что скопированные значения это логин или пароль или почтовый адрес и вставляется он при входе на разные торенты, форумы и т. д., и при вставке после значения появляются пробелы которые понимаются как знаки в результате чего "неправильный логин или пароль" а т. к. при вводе пароля видны только точки а пароль из 10 знаков то сидеть и пересчитывать это проблема!
Если кто может помогите.