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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 35 След.
суммирование по условию динамичного диапазона
 
БМВ, спасибо огромное
суммирование по условию динамичного диапазона
 
Уважаемые Форумчане, прошу подсказать как можно просуммировать значения в в ячейке D4 по мере заполнения нижней строки E:I. т.е если есть данные в ячейках E5, F5, G5,то суммируем диапазон E4:G4 Заранее спасибо
Изменено: alex1210 - 15.06.2022 17:47:17
Отметить совпадения в указанном количестве
 
Юрий М, спасибо огромное, вообще не увидел письмо
Отметить совпадения в указанном количестве
 
vikttur,Спасибо огромнейшее
Отметить совпадения в указанном количестве
 
Это пробовал считал строку.Рама 1 раз. Там напротив Рама 1 в колонке К
Должно получиться мама 1, папа 2, рама 1
Отметить совпадения в указанном количестве
 
Юрий М, надо найти все совпадения а отметить такое количество, которое в колонке K. Хотя Вы правы надо найти количество совпадений из колонки К
Отметить совпадения в указанном количестве
 
Доброго времени, Уважаемые форумчане. Прошу помощи в проблеме, смысл в следующем. В колонке J вводные данные, в колонке K количество вхождений которые надо отметить. В колонке A где ищем. В колонке B отмечаем совпадение "+". Грубо говоря в колонке J "мама" в колонке К "2". Код ищет в Колонке А "мама" и на против первых двух совпадениях в колонке В ставит "+". Написан код простейший, но в нем ошибка. Прошу помощи разобраться в чем проблема
Код
Sub Test()
    Dim q, w, e As Long

    Общее = Worksheets("Лист1").Range("J60000").End(xlUp).Row

    For q = 1 To Общее Step 1
        w = Cells(q, 8).Value
        колво = Cells(q, 11).Value

        For e = 1 To колво Step 1
            Cells(w - 1 + e, 2).Value = "+"
        Next e
    Next q
End Sub
Как сделать накопительные ячейки по условиям
 
Mershik,спасибо огромное, то что нужно
Как сделать накопительные ячейки по условиям
 
Доброго времени, Уважаемые форумчане, прошу помощи как накопить значение в ячейке по критерию групп. В оригинале документа критерии в колонке м , не сортируются(сейчас он осортирован от а до я). Заранее благодарен
Изменено: alex1210 - 20.03.2020 10:01:27
Как к наибольшему значению прибавить накопительное значение группы
 
buchlotnik, спасибо огромное ,очень круто)))
Как к наибольшему значению прибавить накопительное значение группы
 
Доброго времени уважаемые форумчане просьба подсказать как можно из одной таблицы можно вытащить максимальное значение по критерию, просуммировать группы по критерию и сложить наибольшее значение с значениями групп. Сейчас как я сделал это жутко не удобно, куча дополнительных столбцов, а учитывая что будет 10к строк то этот лист будет пересчитываться долго. Заранее благодарен
Как вычесть из одной таблицы другую с условием
 
Mershik, выводит ошибку почему то ошибку, что не так с кодом
Код
Sub iSubtract()
Dim Arr1
Dim Arr2
Dim i As Integer
Dim j As Integer
  Arr1 = Range("A2:B9").Value
  With Worksheets("Лист2")
    Arr2 = .Range("A2:B9").Value
    For i = 1 To UBound(Arr1)
      For j = 1 To UBound(Arr1, 2)
       Arr1(i, j) = IIf(IsNumeric(Arr1(i, j)), Arr1(i, j), 0) + IIf(IsNumeric(Arr2(i, j)), -Arr2(i, j), 0)
      Next
    Next
    [A2].Resize(UBound(Arr1), UBound(Arr1, 2)) = Arr1
  End With
End Sub
Как вычесть из одной таблицы другую с условием
 
Mershik,здравствуйте вот эту строку?
Код
ABC(IIf(IsNumeric(Arr1(i, j)), Arr1(i, j), 0) + IIf(IsNumeric(Arr2(i, j)), -Arr2(i, j), 0))

Как вычесть из одной таблицы другую с условием
 
БМВ, здравствуйте спасибо за помощь. Макрос посчитал, но получились значения со знаком "-", как сделать чтоб его не было?
Как вычесть из одной таблицы другую с условием
 
Доброго времени, Уважаемые форумчане. Прошу помощи в корректировке макроса, он вычитает из одной таблицы другую, но если в одной из таблицы не число, то ошибка., а надо чтобы он в эту же ячейку возвращал либо данные, если мы вычитаем из текста число то вычитаемое, если из числа текст, то уменьшаемое. Заранее благодарен
Код
Sub iSubtract()
Dim Arr1
Dim Arr2
Dim i As Integer
Dim j As Integer
  Arr1 = Range("A2:B10").Value
  With Worksheets("Лист2")
    Arr2 = .Range("A2:B10").Value
    For i = 1 To UBound(Arr1)
      For j = 1 To UBound(Arr1, 2)
        Arr1(i, j) = Arr1(i, j) - Arr2(i, j)
      Next
    Next
    [A2].Resize(UBound(Arr1), UBound(Arr1, 2)) = Arr1
  End With
End Sub
Как вернуть все значения для одного показателя
 
Ну они не востребованы. Это типа в корзине лежат пять яблок, разного сорта. Три яблока взяли а два остались. Вроде как яблоки они и есть яблоки, а вот сорт разный. Но это конечно условности. Но тем не менее какая то конкретика
Как вернуть все значения для одного показателя
 
Дмитрий(The_Prist) Щербаков, здравствуйте, я сразу и нашёл ваш пример, ну не как не пойму, почему если смещаю таблицу  у меня не правильные результаты, я понимаю что это формула "Строка" но никак не пойму как она работает
Изменено: alex1210 - 15.01.2020 10:33:24
Как вернуть все значения для одного показателя
 
PooHkrd,  в рабочем документе там не очень со сводными. а вот эта функция вообще супер, но она не совсем подходит
Как вернуть все значения для одного показателя
 
Доброго времени, Уважаемые форумчане. Прошу помощи в корректировке функции. Эта функция возвращает по номеру вхождения. Но мне надо чтобы не определенный номер вхождения, а все. То есть если мы определяем что нам надо 1 вхождение, то при следующим совпадении это данное было исключено и подобралось второе вхождение. Сейчас синтаксис функции: таблица; номер_столбца_где_ищем; искомое_значение; N; номер_столбца_из_которого_берем_значение:
Код
Function VLOOKUP2(Table As Variant, SearchColumnNum As Long, SearchValue As Variant, _
                  N As Long, ResultColumnNum As Long)
    Dim i As Long, iCount As Long
    Select Case TypeName(Table)
    Case "Range"
        For i = 1 To Table.Rows.Count
            If Table.Cells(i, SearchColumnNum) = SearchValue Then
                iCount = iCount + 1
            End If
            If iCount = N Then
                VLOOKUP2 = Table.Cells(i, ResultColumnNum)
                Exit For
            End If
        Next i
    Case "Variant()"
        For i = 1 To UBound(Table)
            If Table(i, 1) = SearchValue Then iCount = iCount + 1
            If iCount = N Then
                VLOOKUP2 = Table(i, ResultColumnNum)
                Exit For
            End If
        Next i
    End Select
End Function
Поиск подходящих строк в двумерном массиве
 
Доброго времени, подскажите какие критерии для Function ArrAutofilterEx
Объединить таблицы. Если в ячейке есть значения то суммировать, если текст то сцепить
 
vikttur, моя, но мне все начали писать что это не та тема и надо новую, вот я ее и открыл
Объединить таблицы. Если в ячейке есть значения то суммировать, если текст то сцепить
 
Уважаемые мэтры VBA, просьба подсказать как можно подправить код чтобы он собрал значения в одну таблицу в книге лист общий. В случае если в ячейке есть значения то суммировать, если текст то сцепить Заранее благодарен
Код
Sub CollectDataFromAllSheets()    
Dim ws As Worksheet
     Set wbCurrent = ActiveWorkbook
    Workbooks.Add
    Set wbReport = ActiveWorkbook
      
    'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A1:T1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
      
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
      
        'определяем номер последней строки на текущем листе и на листе сборки
        n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count
          
        'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
        ' Set rngData = ws.Range("A2:T20")            'фиксированный диапазон или
     '  Set rngData = ws.UsedRange                 'всё, что есть на листе или
      '  Set rngData = ws.Range("F5").CurrentRegion    'область, начиная от ячейки F5 или
        Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
          
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)
          
    Next ws
End Sub
Изменено: alex1210 - 13.01.2020 14:32:12
Как быстро объединить два столбца: текст сцепить, числа просуммировать
 
Андрей VG, доброго времени, да вот и не хотелось бы темы плодить, а принцип тот же как объединить две таблицы с разных листов  в одну, заполняя пустые значения
Как быстро объединить два столбца: текст сцепить, числа просуммировать
 
PooHkrd, Круто, но знать бы как это в рабочем документе применить)))
Как быстро объединить два столбца: текст сцепить, числа просуммировать
 
Мэтры VBA. прошу подсказать в чем проблема с кодом, пытаюсь объединить две страницы, выдает неправильные значения
Код
Sub CollectDataFromAllSheets()
    Dim ws As Worksheet
     
    Set wbCurrent = ActiveWorkbook
    Workbooks.Add
    Set wbReport = ActiveWorkbook
     
    'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A1:T1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
     
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
     
        'определяем номер последней строки на текущем листе и на листе сборки
        n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count
         
        'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
        ' Set rngData = ws.Range("A2:T20")            'фиксированный диапазон или
     '  Set rngData = ws.UsedRange                 'всё, что есть на листе или
      '  Set rngData = ws.Range("F5").CurrentRegion    'область, начиная от ячейки F5 или
        Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
         
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)
         
    Next ws
End Sub
Нумерация строк по содержанию в ячейках. VBA
 
Господа как подправить код по условию если в 4 столбце не пусто то начинать новую нумерацию, т.е в первой строке не пусто нумеруем 1, 1.1, 1.2, 1.3... Как только появляется в четвертом столбце какие то данные то нумеруем 2, 2.1, 2.2, 2.3...
Как быстро объединить два столбца: текст сцепить, числа просуммировать
 
Максим В.,понял, там массив))) спасибо))))
Как быстро объединить два столбца: текст сцепить, числа просуммировать
 
Максим В., доброго времени, код не суммирует, да и хотелось бы макрос, представьте что буде на 150тыс строк
Как быстро объединить два столбца: текст сцепить, числа просуммировать
 
Андрей VG, Здравия, если не числа то сцепить через _. Это касается если в одном число а в другом текст. И самое наверное страшное там 150 тыс строк)
Изменено: alex1210 - 11.01.2020 14:47:53
Как быстро объединить два столбца: текст сцепить, числа просуммировать
 
День добрый Уважаемые форумчане, прошу помощи как объединить столбцы, если в них числа то их просуммировать а если текст то просто текст то текст сцепить. Заранее благодарен
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 35 След.
Наверх