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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 600 След.
Как найти значение по списку, согласно частичному тексту.
 
= VLOOKUP("*"&LEFT(RIGHT(A1;11);10)&"*";СПИСОК!A:A;1;)
По вопросам из тем форума, личку не читаю.
условие или с моножеством вариантов VBA
 
Если  Андрей VG пишет формулы, то медведь наступит на VBA  :D

Код
=INSTR(";R1;RW1;RW2;RW1R1;RW2R1;",";"&[A1]&";")
По вопросам из тем форума, личку не читаю.
Как посчитать количество часов из интервала
 
для этого конкретного примера
=SUMPRODUCT(RIGHT(B2:F2;5)-LEFT(B2:F2;5))
По вопросам из тем форума, личку не читаю.
Как посчитать количество часов из интервала
 
Цитата
Юрий М написал:
Это у Вас есть,
не факт он же  Telepat,  хотя может просто телепается  :D

Цитата
Telepat написал:
Одна ячейка - время работы сотрудника в данный день.
в каком формате? А в целом пример более показателен, чем сто рассказов о проблеме.
По вопросам из тем форума, личку не читаю.
Построение поверхности по уравнению из трех функций со сложными условиями
 
крос
По вопросам из тем форума, личку не читаю.
Поиск в строке формата текста и вывод его в отдельную колонку - возможно ли?
 
смею предложить вариант
=IFERROR(INDEX('Входные данные'!D:D;1/(1/MOD(MAX(IF(ISNUMBER(SEARCH(" "&'Входные данные'!$B$4:$B$152&" ";" "&A4&" "));LEN('Входные данные'!$B$4:$B$152)+ROW('Входные данные'!$B$4:$B$152)%%;0));1))/1%%+0,1);"-")
который найдет одно значение, которое содержит наиболее длинный фрагмент.
По вопросам из тем форума, личку не читаю.
Тесты. Новые функции Excel 365 (по подписке) против VBA, Tests. New Excel 365 WorkSheetsFunctions vs VBA
 
Как правильно заметил старший товарищь и отметил
Цитата
БМВ написал:
на этот раз медведь напахал.
код отрабатывает вот так корректно, но за значительно большее время.
Скрытый текст

С учетом  того что нельзя ограничить диапазон и медленной работой - рассматривать не стоит. разве что при работе с закрытыми книгами.
По вопросам из тем форума, личку не читаю.
Как избежать чтения/записи отдельно каждой ячейки в макросе, но с проверкой всех ячеек.
 
Сергей Евдокимов, если есть на что операться, то можно и так. но в примере этого не было. В дюбом случае лучше так
Код
With ws.Range("G5:G" & Cells(Rows.Count, 5).End(xlUp).Row)
.SpecialCells(xlCellTypeFormulas).PasteSpecial Paste:=xlPasteFormulas
.SpecialCells(xlCellTypeBlanks).PasteSpecial Paste:=xlPasteFormulas
end with
По вопросам из тем форума, личку не читаю.
Поиск в строке формата текста и вывод его в отдельную колонку - возможно ли?
 
Цитата
Олеся Лубчинская написал:
Вот тут и возникла проблема лишних нулей, которые никак не придумаю как убрать.
Вас смущает только эта проблема? Какой смысл в указании нескольких кодов по "коробка"? а "ВРУ" - совсем не понятно, там 3 одинаковых но с разными кодами.
По вопросам из тем форума, личку не читаю.
Как избежать чтения/записи отдельно каждой ячейки в макросе, но с проверкой всех ячеек.
 
Да, все верно пояснил Ігор Гончаренко, а так как нет уверенности, что последняя ячейка не константа то используем следующую, для расширения используемого диапазона. Можно конечно анализировать, но так проще.
По вопросам из тем форума, личку не читаю.
Как избежать чтения/записи отдельно каждой ячейки в макросе, но с проверкой всех ячеек.
 
Андрей VG,
нельзя смешивать хобби с работой :-)
По вопросам из тем форума, личку не читаю.
Если все значения массива равны Успешно, вернуть Успешно
 
Если все должны быть заполнены
=COUNTIF(B9:B12;"Успешно")=4
или
=COUNTIF(B9:B12;"Успешно")=Rows(B9:B12)
и как результат.
=if(COUNTIF(B9:B12;"Успешно")<Rows(B9:B12);"Не ";"")&"Успешно"
По вопросам из тем форума, личку не читаю.
Как вычислить количество определенного слова в разных ячейках
 
самая обычная сводная
По вопросам из тем форума, личку не читаю.
Как избежать чтения/записи отдельно каждой ячейки в макросе, но с проверкой всех ячеек.
 
Код
Range("B2").Copy
Range("B100000") = 1
On Error Resume Next
With Range("B3:B99999")
    .SpecialCells(xlCellTypeFormulas).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    .SpecialCells(xlCellTypeBlanks).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End With
On Error GoTo 0
    Application.CutCopyMode = False
Range("B100000").ClearContents
Изменено: БМВ - 23.09.2021 17:42:25
По вопросам из тем форума, личку не читаю.
Замена текста
 
Цитата
fourSTEP написал:
Почему первая ячейка выполняет условие по формуле, а остальные нет?
наверно по тому что указанного значения там нет. вы забыли что нужен массив и массивная формула.
По вопросам из тем форума, личку не читаю.
Тесты. Новые функции Excel 365 (по подписке) против VBA, Tests. New Excel 365 WorkSheetsFunctions vs VBA
 
Цитата
Jack Famous написал:
может быть
на этот раз медведь напахал. так не делается :-(
По вопросам из тем форума, личку не читаю.
Тесты. Новые функции Excel 365 (по подписке) против VBA, Tests. New Excel 365 WorkSheetsFunctions vs VBA
 
Цитата
Jack Famous написал:
НЕ ТО количество строк
по поводу результата, нужно проверять. сравнить что там не входит в результат. Может ограничения  ADO вылезают какие. сделай на источнике в 65000 строк и сравни рез.
По вопросам из тем форума, личку не читаю.
Тесты. Новые функции Excel 365 (по подписке) против VBA, Tests. New Excel 365 WorkSheetsFunctions vs VBA
 
Цитата
Jack Famous написал:
это и уникальные и сортировка?
- да

Цитата
Jack Famous написал:
хотелось бы всё-таки массив получить
Код
Arr=ADO_RS.getrows
Изменено: БМВ - 23.09.2021 10:05:23
По вопросам из тем форума, личку не читаю.
Как разделить и выбрать данные одной ячейки в другие ячейки
 
я б добавил еще просто количество значений, которое может получится в итоге  из одной , тоже нужно знать. вдруг их тысячи.
По вопросам из тем форума, личку не читаю.
Данные из Excel в Word, Доработка кода.
 
Off
Вот я и писал что нужно занести это в правила и пояснить почему так,  или не требовать исполнения неписанного правила.
По вопросам из тем форума, личку не читаю.
Как разделить и выбрать данные одной ячейки в другие ячейки
 
Инструмент "текст по столбцам" c выбором соответствующего разделителя. В примере с тире, в зависимости от региональных могут получится не числа, а текст, а если будет такое 1.4-2.5 то и вовсе даты , так что смотрите внимательно. я б сперва все текстом сделал, заменил десятичный разделитель после .
По вопросам из тем форума, личку не читаю.
Данные из Excel в Word, Доработка кода.
 
Цитата
Дмитрий(The_Prist) Щербаков написал: Может элементарно в файле с кодом нет листа с именем Sheet1.
именно так.

off
Цитата
Дмитрий(The_Prist) Щербаков написал: Пора бы уже знать, что на форуме для форматирования кода есть специальная кнопка -  
Дим, последнее предложение отсюда, есть инструмент, но пользоваться им или нет  -это уже вопрос другой.
По вопросам из тем форума, личку не читаю.
Необходимо при прокрутке таблицы накапливать сгруппированные заголовки вверху
 
Нет ни подходящего события под вашу задачу, да и много вопросов, в том числе что произойдет если накопится столько заголовков что они займут всю видимую область. Мне видится или постоянно работающий код , или запускающийся периодически но часто, который проверяет видимую область и меняет область скроллинга, но это не так просто.  например при зафиксированном разделе 2 можно раскрыть раздел 1 и вся область окажется зафиксированной и не позволит скролить совсем. Иными словами, сложность реализации, даже если она возможна,  ни как не соответствует рядовому ответу на форуме.
По вопросам из тем форума, личку не читаю.
Выбор значений, соответствующих буквам, записанным в разном регистре
 
нет ВПР работает по логике равенства прописного и строчного символа. Задача решается элементарно но без ВПР
По вопросам из тем форума, личку не читаю.
Подтягивание списка пользователей из ActiveDirectory на лист Excel
 
Запрос в LDAP
в инете полно вариантов
https://forum.script-coding.com/viewtopic.php?id=3217
http://www.cruto.com/resources/vbscript/vbscript-examples/vbscript-sitemap.asp
например этот
http://www.cruto.com/resources/vbscript/vbscript-examples/ad/users/status/List-All-the-Disabled-User-Accounts-in-Active-Directory.asp
но я с ним не согласен так как фильтровать можно уже только незаблокированные учетки
Все включенные пользователи (&(objectCategory=person)(objectClass=user)
(!userAccountControl:1.2.840.113556.1.4.803:=2))
https://social.technet.microsoft.com/wiki/contents/articles/8077.active-directory-ldap-ru-ru.aspx и это не потребует
Код
    intUAC=objRecordset.Fields("userAccountControl")
    If intUAC AND ADS_UF_ACCOUNTDISABLE Then
Изменено: БМВ - 22.09.2021 23:11:07
По вопросам из тем форума, личку не читаю.
Подтягивание списков из Excel в Combobox'ы в документе Word
 
Цитата
Aiden_ko написал:
VBA есть
его не может не быть. Судя по всему из первой темы вы мои коды не пробовали.

для примера
Код
Private Sub Document_Open()
Dim oRecordSet As Object, oConn As Object
'With ActiveSheet
    sTblQuery = "[Лист1$B:B]"
    Set oRecordSet = CreateObject("ADODB.Recordset")
    Set oConn = CreateObject("ADODB.Connection")
    oRecordSet.CursorLocation = 3
    sSQL_text = "SELECT * FROM " & sTblQuery & " ORDER BY TRIM(RIGHT(REPLACE(REPLACE(FIO,'.',' '),' ','                                        '),40))"
    sConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Data Source=" & "c:\Temp\Сортировка.xlsx" & ";Extended Properties=""Excel 12.0;HDR=YES"";"
    oConn.Open sConnStr
    oRecordSet.Open sSQL_text, oConn
    FIO = oRecordSet.getrows
    oConn.Close
    sTblQuery = "[Лист1$A:A]"
    sSQL_text = "SELECT * FROM " & sTblQuery & " ORDER BY Doljn"
    oConn.Open sConnStr
    oRecordSet.Open sSQL_text, oConn
    Title = oRecordSet.getrows
    
 For Each oContrl In ThisDocument.ContentControls
    With oContrl
     If oContrl.Type = wdContentControlComboBox Then
        .DropdownListEntries.Clear
  '      .SetPlaceholderText , , "Выберите элемент."
        For i = 0 To UBound(Title, 2)
        V = IIf(oContrl.Tag = 1, Title(0, i), FIO(0, i))
        .DropdownListEntries.Add Text:=V, Value:=V
        Next
    End If
    End With
    Next
End Sub
Только надо TAG проставить иначе не понятно что чем заполнять.
По вопросам из тем форума, личку не читаю.
Подтягивание списков из Excel в Combobox'ы в документе Word
 
ADO (от англ. ActiveX Data Objects — «объекты данных ActiveX»)
По вопросам из тем форума, личку не читаю.
Подтягивание списков из Excel в Combobox'ы в документе Word
 
Цитата
Aiden_ko написал:
где на эту тему почитать можно?
тут
к этому добавлю что мой вариант на ADO сразу в Word может получить список , который уже запихивать в комбобоксы.
По вопросам из тем форума, личку не читаю.
Тесты. Новые функции Excel 365 (по подписке) против VBA, Tests. New Excel 365 WorkSheetsFunctions vs VBA
 
Код
Sub ADOunic()
t = Timer
Dim oRecordSet As Object, oConn As Object
    sTblQuery = "[" & ActiveWorkbook.Sheets(1).Name & "$A:D]"
    Set oRecordSet = CreateObject("ADODB.Recordset")
    Set oConn = CreateObject("ADODB.Connection")
    'oRecordSet.CursorLocation = 3
    sSQL_text = "SELECT DISTINCT * FROM " & sTblQuery & "ORDER BY F1,F2 DESC ,F3,F4 DESC"
    sConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=NO"";"
    oConn.Open sConnStr
    oRecordSet.Open sSQL_text, oConn
    
    ActiveWorkbook.Sheets(1).Range("F1").CopyFromRecordset oRecordSet
Debug.Print Timer - t
End Sub


сравнить не могу  но на моем 1.59 включая время выгрузки на лист.
Изменено: БМВ - 22.09.2021 20:59:42
По вопросам из тем форума, личку не читаю.
«If … Then» или «Select Case» — сравнение методов ветвления по скорости, Speed test
 
проверять некогда
Код
select case true
case Copy + fKill + fRename <> -1 
Stop
case fCopy
tx = "Copy"
case fKill
tx = "Kill" 
case else
x = "Rename"
end select
По вопросам из тем форума, личку не читаю.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 600 След.
Наверх