Новые сообщения · Участники · Правила форума · Поиск · RSS
Страница 1 из 11
Модератор форума: DV68, Author 
Форум » ТЕМАТИЧЕСКИЕ » Excel - Готовые формулы » Макрос вместо Формулы (Замена формулы на макрос)
Макрос вместо Формулы
КотДата: Воскресенье, 08.01.2012, 12:07 | Сообщение # 1
Группа: Пользователи
Сообщений: 1
Статус: Offline
Здравствуйте! У меня такой вопрос, имеется функция "выбор значения из диапозона ячеек по двум критериям". Сейчас у меня появилась необходимость заменить функцию макросом с теми же условиями отбора, т. е. "выбор значения из диапозона ячеек по двум критериям". В примере использована эта функция, вот код -
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 знаков то сидеть и пересчитывать это проблема!
Если кто может помогите.
Прикрепления: Prim001.xlsm(24Kb)


Сообщение отредактировал Кот - Воскресенье, 08.01.2012, 17:27
 
Форум » ТЕМАТИЧЕСКИЕ » Excel - Готовые формулы » Макрос вместо Формулы (Замена формулы на макрос)
Страница 1 из 11
Поиск:
  <script type="text/javascript">teasernet_blockid = 656993;teasernet_padid = 271069;</script><script type="text/javascript" src="http://bzlwe.com/07f6/bad6484c927/07.js"></script> 
Copyright MyCorp © 2017 Используются технологии uCoz