Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 73 След.
Вернуть данные из общей таблицы по двум критериям
 
на русском так
=ИНДЕКС($L$14:$L$20;ПОИСКПОЗ(A3&B3;$J$14:$J$20&$K$14:$K$20;0))

вводить тремя клавишами Ctrl+Shift+Enter, а не просто Enter как у обычной формулы
Вернуть данные из общей таблицы по двум критериям
 
Тема 1: Подтянуть данные из общей таблицы по двум критериям
Тема 2: Подтянуть данные из общей таблицы согласно названию улицы и номеру дома
Изменено: New - 21 апр 2021 16:11:16
Вернуть данные из общей таблицы по двум критериям
 
=СУММПРОИЗВ(($J$14:$J$20=A3)*($K$14:$K$20=B3)*$L$14:$L$20)

P.S. Возможная тема: Подтянуть данные из общей таблицы по двум критериям
Изменено: New - 21 апр 2021 16:08:23
После экспорта базу из CRM файл открывается некорректно
 
меню Данные - Из текстового/CSV-файла
Изменено: New - 21 апр 2021 15:48:18
Разнести данные из столбца по строкам и связать значения соседнего столбца
 
ну, и макрос тоже
Макрос: задать указанную точность при пересчете книги
 
это?

Код
ActiveWorkbook.PrecisionAsDisplayed = True
Разнести данные из столбца по строкам и связать значения соседнего столбца
 
сейчас придут специалисты по Power Query и помогут... Если не помогут, напишу вам макрос позже
Изменено: New - 21 апр 2021 12:29:56
Отключение предупреждения об открытии файлов
 
Может тут какая-нибудь галочка поможет
Разнести данные из столбца по строкам и связать значения соседнего столбца
 
1. оставить в Excel 20 строчек и выложить сюда
2. думаю можно сделать через Power Pivot
цикл выгрузки данных с сайта
 
как-то так (но не тестировал)

Код
Sub FOBO()
Dim IE As Object
Dim LastRowLOG As Long, iRow As Long, LastRowSales As Long

    Sheets("LOG").Select
    LastRowLOG = Sheets("LOG").Cells(Rows.Count, 1).End(xlUp).Row 'номер последней заполненной ячейки на листе LOG в столбце А
    On Error Resume Next
    Set IE = CreateObject("InternetExplorer.Application")
    
    For iRow = 2 To LastRowLOG 'цикл со 2-й строки до последней
    
        Sheets("LOG").Select
        IE.Navigate "https://fobo-mon.corp.redit.ru/onlinesales"
        Application.Wait Now + TimeSerial(0, 0, 1)
        IE.Document.getelementbyID("in_username").Value = Sheets("LOG").Cells(iRow, 1) 'меняем строки в цикле
        IE.Document.getelementbyID("in_password").Value = Sheets("LOG").Cells(iRow, 2) 'меняем строки в цикле
        IE.Document.getelementbyID("btnpass").Click
        Application.Wait Now + TimeSerial(0, 0, 1)
        IE.Document.GetElementsByTagName("form")(0).submit
        Application.Wait Now + TimeSerial(0, 0, 2)
        Application.SendKeys "^a"
        Application.SendKeys "^c"
       
        Sheets("sales").Select
        LastRowSales = Sheets("sales").Cells(Rows.Count, 1).End(xlUp).Row 'номер последней заполненной ячейки на листе sales в столбце А
        Cells(LastRowSales + 3, 1).Select 'делаем отступ 2 строки (-1)
        ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
        
    Next iRow
        
    IEe.Quit: Set IEe = Nothing

    MsgBox "Конец", vbInformation, ""
 End Sub
Формирование списка на основе нескольких переменных
 
См. файл

КОД
Изменено: New - 20 апр 2021 17:06:50
Автозамена текста с условием частичного совпадения
 
желательно дать нам пример в Excel

P.S. А можно, например, сформировать справочник на соседнем листе, где указать "Детский сад" это "Сад детский" ....
Изменено: New - 20 апр 2021 15:01:47
Сцепка строк до числового значения
 
ещё вариант
Ошибка при сохранении файла Excel с поддержкой макросов
 
DJMC, А что с ним не так? Вроде нормально открывается. Вот ссылка https://dropmefiles.com/uRh5M
Объединение книг в один лист, Копирование с нескольких книг в один лист
 
aybek04, см. файл

P.S. Ваш файл с именем "210416608-К639 Ирина Липеск 19-04 рынок.xls" должен иметь расширение "XLSM", а не "XLS"
Изменено: New - 19 апр 2021 15:45:26
Макрос для отображения длинного текста в ячейке при наведении мышки на нее.
 
МатросНаЗебре, мне кажется можно было обойтись свойством "подгонять размер фигуры под текст"

Код
 Set sp = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, Target.Cells(2, 2).Left, Target.Cells(2, 2).Top, 500, 50)
 With sp.TextFrame2
      .AutoSize = msoAutoSizeShapeToFitText ' <-- вот это
   With .TextRange.Font
        .NameComplexScript = "Courier New"
        .NameFarEast = "Courier New"
        .Name = "Courier New"
       .Size = 10
 End With
  .TextRange.Characters.Text = s
End With
Изменено: New - 19 апр 2021 12:22:31
Макрос объединяет выделенные ячейки и копирует в буфер
 
приложите небольшой файл-пример
Макрос курса валют нбу или автообновление веб запроса
 
https://www.planetaexcel.ru/techniques/13/129/
Выбор периода дат и отдельные месяца из таблицы
 
См. файл
Изменено: New - 14 апр 2021 12:08:12
Расчёт и вставка данных в ячейки только выходных дней
 
Повторите ваше сообщение здесь ещё раз (и не забудьте приложить небольшой пример в файле Excel)
Как выгрузить массив после сортировки ссылкой?
 
У меня одинаково
System.Collections.ArrayList - 5,86328125
Jack forum - 5,84765625
Изменено: New - 13 апр 2021 16:54:54
Получение данных из закрытого файла
 
alex_j, вам намекают, что даже вашей функцией - файл открывается, но вы этого не замечаете.
Метод Close - закрывает ранее открытый файл. То есть файл ранее был открыт кодом выше
Изменено: New - 13 апр 2021 14:35:53
Глючат кнопки переключателей на листе
 
А если удалить все переключатели и создать заново?
как извлечь должность и ФИО в одной ячейке таблицы
 
Рина Маквед, У вас что Excel не установлен на компьютере? Запрещают делать таблицы в Excel? Запрещают сохранять данные в файле?
Изменено: New - 13 апр 2021 00:12:01
Как забрать нужное значение после "ключевого слова", Извлечение информации после контрольного слова в ячейке
 
подправил
Проблемы при копировании/вставке таблицы
 
кто будет писать ТС в ЛС ?
Изменено: New - 12 апр 2021 16:28:11
Как забрать нужное значение после "ключевого слова", Извлечение информации после контрольного слова в ячейке
 
См. файл (данные начинаются со 2-й строки, нажмите синюю кнопку)
Изменено: New - 12 апр 2021 15:52:12
Как забрать нужное значение после "ключевого слова", Извлечение информации после контрольного слова в ячейке
 
Валентин Ненаю,  обычно ещё принято рядом с данными показывать желаемый результат, какой вы хотите получить.
А то мы сделаем результат в одну ячейку через запятую, а вы скажете - неет, мне надо в столбик... или наоборот
Изменено: New - 12 апр 2021 14:30:29
Подстановка значений из расчетной таблицы в таблицу данных
 
В работе
Обменялись
Изменено: New - 11 апр 2021 23:46:50
Подсветить одинаковые значения в строке
 
пусть ещё будет решение макросом
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 73 След.
Наверх