Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Malion
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
PQ. Объединение запросов по нескольким столбцам.
 
#
29.11.2021 13:00:24
surkenny, Да, благодарю, это то, что надо! Только осваиваю PQ, не вьехал еще, как там формулы устроены.
 
Перейти    
PQ. Объединение запросов по нескольким столбцам.
 
#
29.11.2021 12:48:22
surkenny, Максимально детализированный код нужно выбрать из таблицы. Можно вставить самое правое значение?
 
Перейти    
PQ. Объединение запросов по нескольким столбцам.
 
#
29.11.2021 12:16:06
Добрый день!
Имеется таблица классификатор, с кодами разбитыми по столбцам:
Раздел Класс Подкласс Группа Подгруппа Вид Категория Подкатегория Код Наименование,
И некоторый перечень кодов. Нужно выделить соответствующие коды в классификаторе.
Я это делал формулой в Excel (см. лист "Формула" в примере).
Сейчас пробую в PQ. Сделал 8 объединений таблиц по всем столбцам классификатора, результат получился, но сильно громоздко и долго считает.
Наверняка это делается проще. Предполагаю, что можно объединить столбцы классификатора и найти там нужные коды.
Помогите пожалуйста.
Итог, который должен получиться выделен зеленым.
 
Перейти    
Определение количества при частичном совпадении номенклатур.
 
#
20.05.2020 17:38:51
=ПРОСМОТР(1;1/ПОИСК(E2;$A$2:$A$42);$C$2:$C$42)
 
Перейти    
Заливка соседней ячейки. если там значение не из выбранного списка
 
#
20.05.2020 17:25:44
Код
ActiveCell.Offset(, 1).Interior.Color = vbRed
 
Перейти    
Загрузка данные из интернета IE, IE.readyState = 1
 
#
28.12.2017 16:12:16
Имеется во такой цикл, который открывает страницу в IE, берет данные, открывает следующую.
Код
Sub Extract_TD_text()     
    Set IE = New InternetExplorer
    IE.Visible = True
    For i = 1 To Worksheets(ShRN).Cells(Rows.Count, 1).End(xlUp).Row
        URL = Worksheets(ShRN).Cells(i, 1).Value
        IE.navigate URL
        While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
        Set HTMLDoc = IE.Document        
        For Each ele In HTMLDoc.all.tags("table")
          ...
        Next
        Set HTMLDoc = Nothing
    Next i
    IE.Quit
    Set IE = Nothing
End Sub

Первый цикл проходит нормально, затем IE загружается по следующей ссылке, но зависает на
While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend,
потому что значение IE.readyState всегда 1
Изменено: Malion - 28.12.2017 16:40:34
 
Перейти    
Автонумерация строк по условиям
 
#
18.02.2016 12:03:06
Код
Cells(.Row + n, 3).Value = Cells(.Row + n - 1, 3).Value + 1
 
Перейти    
Макрос сравнение значений в двух столбцах на разных листах и дополнение на первом недостающими
 
#
18.02.2016 10:23:19
ну если я правильно понял...
Код
Sub qq()
    LR = Worksheets("Дополнение кодов").Cells(Rows.Count, 1).End(xlUp).Row + 1
    For i = 12 To Worksheets("Планировщик").Cells(Rows.Count, 1).End(xlUp).Row
    E = True
        For j = 2 To Worksheets("Дополнение кодов").Cells(Rows.Count, 1).End(xlUp).Row
            If Worksheets("Планировщик").Cells(i, 1).Value = Worksheets("Дополнение кодов").Cells(j, 1).Value Then E = False: Exit For
        Next j
    If E Then Worksheets("Дополнение кодов").Cells(LR, 1).Value = Worksheets("Планировщик").Cells(i, 1).Value: LR = LR + 1
    Next i
End Sub


наверно так правильнее
Код
Sub qq()
    LR = Worksheets("Планировщик").Cells(Rows.Count, 1).End(xlUp).Row + 1
    For i = 2 To Worksheets("Дополнение кодов").Cells(Rows.Count, 1).End(xlUp).Row
   
    E = True
        For j = 12 To Worksheets("Планировщик").Cells(Rows.Count, 1).End(xlUp).Row
            If Worksheets("Планировщик").Cells(j, 1).Value = Worksheets("Дополнение кодов").Cells(i, 1).Value Then E = False: Exit For
        Next j
    If E Then Worksheets("Планировщик").Cells(LR, 1).Value = Worksheets("Дополнение кодов").Cells(i, 1).Value: LR = LR + 1
    Next i
End Sub
Изменено: Malion - 18.02.2016 10:28:46
 
Перейти    
Копирование ячеек со всех листов на один
 
#
18.08.2015 11:04:26
Код
Sub Combine()
    Dim s As Worksheet
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add ' add a sheet in first place
    Sheets(1).Name = "Combined"
        For Each s In ActiveWorkbook.Sheets
            If s.Name <> "Combined" Then
                i = i + 1
                Sheets(1).Range("A" & i).Value = s.Range("C1").Value
            End If
        Next
End Sub
 
Перейти    
Подсчет количества дат в периоде
 
#
17.08.2015 14:08:18
=СУММПРОИЗВ((сводная!B2:B11>=E2)*(сводная!B2:B11<=F2))
 
Перейти    
Как скрыть книгу Excel
 
#
12.08.2015 14:33:42
как-то так может
Код
UserForm1.Show vbModeless
 
Перейти    
Поиск значения в таблице данных. ВПР, ПОИСКПОЗ и ИНДЕКС в классическом виде не подходят., Из таблицы требуется вытащить значение, соответствующее двум параметрам.
 
#
11.08.2015 13:22:56
=ИНДЕКС(Таблица1;$A$22;ПОИСКПОЗ(A25;ДВССЫЛ("A"&$A$22+1&":G"&$A$22+1);0)+1)
 
Перейти    
Избушка формулистов-3, не для вопросов, но для формульных задач
 
#
03.08.2015 09:05:17
150:
=СУММ(((($B7<СТРОКА($1:$1440)/1440)+($C7>=СТРОКА($1:$1440)/1440))-($C7>$B7))*((E$5<СТРОКА($1:$1440)/1440)+(E$6>=СТРОКА($1:$1440)/1440)-(E$6>E$5)))/1440
Изменено: Malion - 03.08.2015 11:22:09
 
Перейти    
Ссылка на значение в фильтре
 
#
30.07.2015 11:06:41
функцию АГРЕГАТ можно попробовать
 
Перейти    
Избушка формулистов-3, не для вопросов, но для формульных задач
 
#
29.07.2015 14:27:29
Цитата
MCH написал: А если время до секунд мерить, то Ваша формула увеличится и будет медленно работать?
так и есть.
без массива времени не получается пока
 
Перейти    
Избушка формулистов-3, не для вопросов, но для формульных задач
 
#
29.07.2015 13:22:29
176 или 167 если время пятиминутками мерить
152
Изменено: Malion - 29.07.2015 14:26:22
 
Перейти    
Избушка формулистов-3, не для вопросов, но для формульных задач
 
#
22.07.2015 10:45:31
67
 
Перейти    
Определение количества лет, месяцев, дней по двум значениям
 
#
17.07.2015 09:06:33
ну например вот ошибка: у левсимв 3 аргумента вместо двух
Код
ЛЕВСИМВ(RC[3];RC[4];ПОИСК(" г";RC[3];RC[4])-1))
 
Перейти    
Непустую ячейку заменить названием стобца
 
#
16.07.2015 17:26:52
вариант на пустом листе:
в B2 и протянуть
=ЕСЛИ(Лист1!B2="";"";Лист1!B$1)
Изменено: Malion - 16.07.2015 17:27:24
 
Перейти    
Формула не возвращает значение при невыполнении одного из условий
 
#
16.07.2015 09:34:41
у вас получается в функцию ИЛИ попадает Н/Д. можно попробовать как-то так:

или(не(енд(впр(...)));не(енд(впр(...))))
 
Перейти    
Одно копирование ячеек перекрывает другое (VBA)
 
#
14.07.2015 14:02:38
неа, но думаю с макрорекодером там не сложно разобраться
 
Перейти    
Одно копирование ячеек перекрывает другое (VBA)
 
#
14.07.2015 13:45:42
на листе "заявки 2015" 11 позиций, не понятно как они должны встать на лист "2015"

вот такой вариант
Код
q = 1
For i = 1 To poslcol
    If Data = Sheets("2015").Cells(1, i).Value Then
    'Col = i
         For Z = 2 To poslrow
            If Sheets("2015").Cells(10 + Z, i) = "" Then
                For x = q To poslrow
                    If Sheets("zaz 2015").Cells(x + 1, 17) = "a" Then
                        'Row = x
                        Sheets("2015").Cells(10 + Z, i) = Sheets("zaz 2015").Cells(x + 1, 11)
                        q = x + 1
                        Exit For
                   End If
                Next x
            End If
        Next Z
    End If
Next i
Изменено: Malion - 14.07.2015 13:53:28
 
Перейти    
Одно копирование ячеек перекрывает другое (VBA)
 
#
14.07.2015 12:30:07
Код
For i = 1 To poslcol
    If Data = Sheets("2015").Cells(1, i).Value Then
    'Col = i
         For Z = 2 To poslrow
            If Sheets("2015").Cells(10 + Z, i) = "" Then
                
                    If Sheets("zaz 2015").Cells(Z + 1, 17) = "a" Then
                        'Row = x
                        Sheets("2015").Cells(10 + Z, i) = Sheets("zaz 2015").Cells(Z + 1, 11)
                       
                   End If
              
            End If
        Next Z
    End If
Next i


ан нет, не правильно, там же еще суммировать надо..
Изменено: Malion - 14.07.2015 13:17:49
 
Перейти    
Сделать перебор цифр от и до....
 
#
13.07.2015 15:37:12
:)
=ЕСЛИ(ЕНД(ПОИСКПОЗ(N3+1;E:E;0));N3+1;ИНДЕКС(E:E;ПОИСКПОЗ(N3+1;E:E;0)))
 
Перейти    
Поиск значения по нескольким параметрам ( многокритериальный поиск)
 
#
13.07.2015 11:22:12
Формула массива
Код
=ИНДЕКС('Откуда  тянуть'!$C$2:$C$16;ПОИСКПОЗ(A2&B2;'Откуда  тянуть'!$A$2:$A$16&'Откуда  тянуть'!$B$2:$B$16;0))
 
Перейти    
Поиск значения по нескольким параметрам ( многокритериальный поиск)
 
#
13.07.2015 10:53:43
там в дате две точки стоят перед годом
 
Перейти    
распределение производства продукции по дням
 
#
10.07.2015 19:53:15
как-то так
 
Перейти    
Как связать 2 таблицы, чтобы автоматом подставлялись данные?
 
#
10.07.2015 10:53:27
Цитата
Alex4 написал: почему-то в двух ячейках не считает, а в других считает, в чем дело?
таблица неправильно указана
 
Перейти    
Как связать 2 таблицы, чтобы автоматом подставлялись данные?
 
#
10.07.2015 10:49:08
через сцепить и индекс
 
Перейти    
Как для каждого УНИКАЛЬНОГО кода посчитать количество пустых и непустых ячеек
 
#
09.07.2015 17:17:04
Цитата
bedvit написал: не могу понять почему не работает формула (в сводной)
Вычисляемые поля не работают с текстом
 
Перейти    
Страницы: 1 2 След.
Наверх