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

Страницы: 1 2 3 4 5 6 След.
Группировка по наименованию vba
 
#
02.06.2014 11:09:06
JayBhagavan,все равно спасибо большое, ценю оказанное внимание,а сложение по вертикале ? в итоге тоже количество столбцов должно получиться
Изменено: kare - 02.06.2014 11:10:30
 
Перейти    
Группировка по наименованию vba
 
#
02.06.2014 11:06:05
JayBhagavan,как вариант спасибо, а если не выводить суммы ?в первый столбец?
 
Перейти    
Группировка по наименованию vba
 
#
02.06.2014 10:58:59
JayBhagavan, ну если вы действительно можете помочь то файл пример тут
 
Перейти    
Группировка по наименованию vba
 
#
02.06.2014 10:51:06
The_Prist,добрый день, а  если заведом не известно кол-во уникальных значений ? т.е в иделе бы на новый лист получить таблицу с группированными данными
 
Перейти    
Группировка по наименованию vba
 
#
02.06.2014 10:45:54
Добрый день уважаемые жители форума, подскажите пожалуйста есть столбцы a b c d e f g , в столбце А наименование повторяется, необходимо сложить данные , я так понимаю что ЭТО ВПР , но опыта не хватает
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 15:05:51
уникальных значений не больше 20 по каждому условию , а чем это ограничивается например в посте  #37 ? принцип перебора по остальным условиям тот же?
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 14:45:05
Hugo,всмысле? что понимать под уникальными значениями?
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 14:20:03
Hugo, точно ведь))) Век живи Век учись)))) To UBound(a) - 1 первую запись в итоге считает правильно остальные нет
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 13:49:43
Hugo,  #45   количество по 9 столбцу определяет верно , но итоги плывут  
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 13:37:36
Hugo, работает!!! ОГРОМНОЕ СПАСИБО!!!!!!!!    файлик я все таки сделал но там добавилось столбик и еще пару условий, я понимаю что бесплатно мало кто захочет делать,сам я не такого уровня как Вы, сколько будет стоить доработать его?  :oops:
Изменено: kare - 30.01.2014 13:41:32
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 12:29:42
Hugo,  понял , сейчас что нибудь придумаю с файлом.
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 12:08:31
Hugo, работает, если у Вас будет возможность не могли бы вы мне подсказать что дописать что бы в добавок анализировал так же 7,8 столбец но по 9(также как по 3). и результ выводил под результатом 3.

т.е получается
Код
Dim a(), t&, i&, ii&
    With CreateObject("Scripting.Dictionary")
     a = [A1].CurrentRegion.Value
     For i = 2 To UBound(a)
      If Not .exists(a(i, 9)) Then
          ii = ii + 1: .Item(a(i, 9)) = ii
          a(ii, 1) = a(i, 9): a(ii, 2) = a(i, 7)
          a(ii, 1) = a(i, 9): a(ii, 3) = a(i, 8)
      Else
          t = .Item(a(i,9 )) 
                    a(t, 2) = a(t, 2) + a(i, 7)  
                    a(t, 3) = a(t, 3) + a(i, 8)
      End If
      
     Next
    End With 
 

Dim s As Long   
 s = Cells(Rows.Count, 12).End(xlUp).Row    

Cells(s+1,12).Resize(ii, 3) = a
как объединить с верхним постом #37 ? я с начала попытался сменить переменные но мои попытки не обвенчались успехом(
Изменено: kare - 30.01.2014 12:09:45
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 11:27:45
Hugo, извините за назойливость , вопрос такого характера,  а как сделать что бы он это все вставлял после последней заполненной ячейки в столбце допустим 9 ?!

Код
Dim s As Long   
 s = Cells(Rows.Count, 9).End(xlUp).Row    

Cells(s+1,9).Resize(ii, 3) = a
так?)
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 10:29:13
Hugo, Так намного лучше , спасибо !!!! Хорошего дня.
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 10:04:12
Код
Dim a(), t&, i&, ii&
    With CreateObject("Scripting.Dictionary")
        a = [A1].CurrentRegion.Value
        For i = 2 To UBound(a)
            If Not .exists(a(i, 3)) Then
                ii = ii + 1: .Item(a(i, 3)) = ii
                a(ii, 1) = a(i, 3): a(ii, 2) = a(i, 7)
                a(ii, 1) = a(i, 3): a(ii, 3) = a(i, 8)
            Else
                t = .Item(a(i, 3))
                a(t, 2) = a(t, 2) + a(i, 7)
                a(t, 3) = a(t, 3) + a(i, 8)
            End If
            
        Next
    End With
    [l2].Resize(ii, 3) = a
с третьей попытки ))) Hugo,спасибо Вам большое за урок  ;)
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 09:55:00
Код
попытка № 2
Изменено: kare - 30.01.2014 10:01:54
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
30.01.2014 09:50:12
Hugo, доброе утро) сейчас попробуем)
 
Перейти    
Обьеденение одинаковых значений, VBA
 
#
29.01.2014 16:33:21
подскажите пожалуйста , а как сделать что бы складывал не только 7 столбец но и 8 тоже (((



Код
Sub tt()
    Dim a(), t&, i&, ii&
    With CreateObject("Scripting.Dictionary")
     a = [a1].CurrentRegion.Value
     For i = 2 To UBound(a)    '1-ю строку игнорируем
      If Not .exists(a(i, 3)) Then
          ii = ii + 1: .Item(a(i, 3)) = ii
          a(ii, 1) = a(i, 3): a(ii, 2) = a(i, 7)
      Else
          t = .Item(a(i, 3))
          a(t, 2) = a(t, 2) + a(i, 7)
      End If
     Next
    End With
    Workbooks.Add(1).Sheets(1).[a1].Resize(ii, 2) = a
End Sub
Изменено: kare - 29.01.2014 16:34:45
 
Перейти    
Сумма столбца в VBA
 
#
29.01.2014 13:28:32
Kuzmich,Юрий М, Sanja,  СПАСИБО! ВСЕ ТРИ ВАРИАНТА ПОДХОДЯТ)
 
Перейти    
Сумма столбца в VBA
 
#
29.01.2014 12:10:44
Здравствуйте , подскажите пожалуйста как подсчитать сумму 7 столбца в vba?
Код
Dim s As Long
s = Cells(Rows.Count, 7).End(xlUp).Row + 1
пытаюсь определить последнюю запуленною ячейку и добавить строчку для итога но дальше дело не идет(
Изменено: kare - 21.12.2017 16:04:37
 
Перейти    
Обводка границ до последней заполненной ячейки, Vba
 
#
29.01.2014 11:53:15
Z, исправлюсь)
 
Перейти    
Обводка границ до последней заполненной ячейки, Vba
 
#
29.01.2014 11:40:49
ВСЕМ СПАСИБО ТЕМА ЗАКРЫТА :)
Изменено: kare - 29.01.2014 11:53:29
 
Перейти    
Обводка границ до последней заполненной ячейки, Vba
 
#
29.01.2014 11:39:36
Hugo, спасибо!
 
Перейти    
Обводка границ до последней заполненной ячейки, Vba
 
#
29.01.2014 11:09:29
ValeryN,  спасибо большое! то что надо!!!!!! Хорошего Дня ВАм.
 
Перейти    
Обводка границ до последней заполненной ячейки, Vba
 
#
29.01.2014 10:44:30
Добрый день друзья , прошу помощи, в очередной раз - надеюсь на ВАС) подскажите пожалуйста

есть лист на нем 13 столбцов : как с помощью vba обвести все строки(13 столбцов) со 2 по последнюю (заполненную) определяющий признак заполненная строка или нет - первый столбец.
 
Перейти    
Значение listbox2.Column(2) = listbox1.value, VBA
 
#
24.01.2014 14:58:04
Dima S СПАСИБО!!!!!!!!!!!!!   8)   ТО ЧТО НУЖНО!!!


Юрий М СПАСИБО ЗА УЧАСТИЕ !!!!!!!!! ;)
 
Перейти    
Значение listbox2.Column(2) = listbox1.value, VBA
 
#
24.01.2014 14:56:17
Юрий М, пробовал работает , но мне нужно что бы не добовлял а выделял тот результат(из 1 листбокс) во втором листбокс
Изменено: kare - 24.01.2014 14:56:39
 
Перейти    
Значение listbox2.Column(2) = listbox1.value, VBA
 
#
24.01.2014 14:48:12
Юрий М , добавитЬ? листбокс1 состоит из второго столбца листбокс2, как сделать что бы при выделеении в листбокс1 выделалсь данная запись в листбокс2?

так не работает
Код
Dim a As String
a = ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.List(0, 0)
ListBox2.Value = a
  
т.е Результат Поиска = Значению второго столбца Listbox2 но при нажатии на результат строка в Listbox2  не выделяется (((
Изменено: kare - 24.01.2014 14:55:22
 
Перейти    
Значение listbox2.Column(2) = listbox1.value, VBA
 
#
24.01.2014 14:28:25
Юрий М,Dima S  :cry:  жаль что у меня не такой уровень(((
 
Перейти    
Значение listbox2.Column(2) = listbox1.value, VBA
 
#
24.01.2014 14:08:27
Юрий М получается придется первым столбцом всегда делать полное наименование ? т.е. нельзя Listbox2.Value сравнить по второму столбцу ????
 
Перейти    
Страницы: 1 2 3 4 5 6 След.
Наверх