Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Необходимо получить список пользователей в составе группы AD
 
Прошу подсказки:

Необходимо получить список пользователей в составе группы AD
Код работает правильно, не считая того, что в Worksheets("Email").Cells(kol, "C").Value попадает только одна запись CN
В действительности атрибут member имеет от 1 до 7 CN записей.
Что не так?
Код
Sub test2()

    strOU = "OU=mailbox,OU=Groups,OU=nnm,DC=nnm,DC=local"
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"
    
    Set objCommand = CreateObject("ADODB.Command")
    objCommand.ActiveConnection = objConnection
    objCommand.Properties("Page Size") = 1000
    
    objCommand.CommandText = "<LDAP://" & strOU & ">;" & "(&(objectclass=top));" & "description,member,sAMAccountName"
    On Error Resume Next
    
    Set objRecordset = objCommand.Execute
    If Err.Number <> 0 Then MsgBox "Exception occured: " & Err.Description
    On Error GoTo 0
    
    Set objRecordset = objCommand.Execute
    kol = 2
    
    Do
        Worksheets("Email").Cells(kol, "A").Value = objRecordset.Fields("sAMAccountName").Value
        Worksheets("Email").Cells(kol, "B").Value = objRecordset.Fields("description").Value
        Worksheets("Email").Cells(kol, "C").Value = objRecordset.Fields("member")
        
        kol = kol + 2
        objRecordset.MoveNext
    Loop While Not objRecordset.EOF

    objRecordset.Close
    
    Set objRecordset = Nothing
    Set objCommand = Nothing
    
    objConnection.Close
    Set objConnection = Nothing

End Sub
Заполнить числовые промежутки, значениями из заданного диапазона., Задача заполнить строки в колоне N недостающими значениями (1.1;1.2;...) в соответствии с заданными колонками/строками
 
Возникла необходимость заполнить строки в колоне N недостающими значениями по строкам из колонки М в соответствии с колонками A:K, причём список/количество пунктов/строк по колонкам A:K может меняться, при этом количество самих колонок A:K - неизменно. Пример:
=преобразовать(M1) и по результату получить: 1.1;1.2;1.3;1.4;1.5;1.6;1.7;1.8;1.9;1.10;
=преобразовать(M5) и получить:1.1;1.2;1.3;1.4;1.5;1.6;1.7;1.8;1.9;1.10;...11.2;

Пример заполненных таблиц прикреплён к сообщению.
Ума не приложу, как реализовать. Пробовал предложенные на форуме варианты, но в них фигурируют целые числа без точек и диапазоны без доп.символов, к тому же в моём случае количество строк в колонках A:K из дня в день меняется. Полагаю, что необходимо использовать массивы - сколько колонок, столько массивов, а в массивах не силён.

Есть идеи?
Изменено: anism - 27.10.2021 06:37:05
[ Закрыто] Сократить формулу Excel
 
Добрый день.
Помогите урезать формулу:
Код
=ЕСЛИ($R626="";ЕСЛИ($K626="вакансия";""; ЕСЛИ($AF626="да";ЕСЛИ($U626=$K626;ЕСЛИ($R626="";"Поле с конф-ными сведениями не заполнено";"Всё Ок!");"ДоК подписан сотрудником - ожидает утверждение");"Поле с конф-ными сведениями не заполнено"));ЕСЛИ($R626<>"без доступа";ЕСЛИ(K626<>"вакансия"; ЕСЛИ($T626=$K626; ЕСЛИ($U626=$T626; "ДоК создан, утверждён и подписан"; ЕСЛИ($AF626="нет";ЕСЛИ($R626="";"Данные по доступу к КТиКИ не предоставлены";ЕСЛИ($R626="";"Данные по доступу к КТиКИ не предоставлены";"ДоК не подписан сотрудником"));"ДоК подписан сотрудником - ожидает утверждение"));ЕСЛИ($R626=""; "";ЕСЛИ($U626<>$K626;ЕСЛИ($AF626="да";"ДоК подписан сотрудником - ожидает утверждение";ЕСЛИ($R626="-";"Поле с конф-ными сведениями не заполнено";"ДоК не подписан сотрудником"));ЕСЛИ($Q626="";ЕСЛИ($X626=$K626;"Всё Ок!";"Отсутствует обязательства ПДн или ЛНА");ЕСЛИ($X626=$K626;"Всё Ок!";"Отсутствует обязательства ПДн или ЛНА")))));"");ЕСЛИ($T626="ДоК не требуется";ЕСЛИ($AF626="ДА";"ДоК подписан сотрудником - ожидает утверждение";"...");"")))
Фактически работает верно, но исходя из вида, часть кода частично дублируется по тексту и при условии, что в документе 50000 строк, работает достаточно долго.
В примере 2я строка, колонка "Y"
Изменено: anism - 14.09.2021 15:28:07
Поиск письма в OutLook посредством VBA Excel, "ответить всем".
 
.
Изменено: anism - 18.02.2020 16:05:53
Отчёт с подсчётом по месяцам
 
Максим В., Исходные данные - лист с постоянно добавляющимися записями.
Выходные данные - то как хотелось это видеть. Задача увидеть по месяцам сколько раз человек засветился на странице исходных данных.
Отчёт с подсчётом по месяцам
 
Добрый день.
Подскажите, как можно организовать отчёт по исходным данным в предложенном образце.
Может кто предложит вариант решения на VBA или power query/
Буду благодарен за любую помощь.
Страницы: 1
Наверх