Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.04.2019, 22:13   #31
СтаниславАВ
Форумчанин
 
Регистрация: 10.10.2010
Сообщений: 107
По умолчанию

Тоже не подходит:
Код:
    With List_materials
      VB_Smeta_m_full = .Range("A2:AB" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
      VB_Materials_volume = .Range("D2:D" & .Cells(.Rows.Count, "D").End(xlUp).Row).Value
      VB_Materials_price = .Range("E2:E" & .Cells(.Rows.Count, "E").End(xlUp).Row).Value
    End With
    Sum_mat = 0
     For Mat = 2 To UBound(VB_Smeta_m_full, 1)
        For SV = 1 To UBound(VB_Smeta_full, 1)
          
              If VB_Smeta_m_full(Mat, 2) = VB_Smeta_full(SV, 2) Then
             Sum_mat = Sum_mat + VB_Smeta_full(SV, 4)
             Else
             Sum_mat = Sum_mat + 0
             SV = SV + 1
         End If
        Next
        VB_Materials_volume(Mat, 4) = Sum_mat
     Next
(((
СтаниславАВ вне форума Ответить с цитированием
Старый 05.04.2019, 22:44   #32
СтаниславАВ
Форумчанин
 
Регистрация: 10.10.2010
Сообщений: 107
По умолчанию

Код:
    With List_materials
      VB_Smeta_m_full = .Range("A2:AB" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value 'копирую данные в массив
      VB_Materials_volume = .Range("D2:D" & .Cells(.Rows.Count, "D").End(xlUp).Row).Value
      VB_Materials_price = .Range("E2:E" & .Cells(.Rows.Count, "E").End(xlUp).Row).Value
    End With
    Sum_mat = 0
     For Mat = 3 To UBound(VB_Smeta_m_full, 1)
        For SV = 1 To UBound(VB_Smeta_full, 1)
           
              If VB_Smeta_m_full(Mat, 2) = VB_Smeta_full(SV, 2) Then
             Sum_mat = Sum_mat + VB_Smeta_full(SV, 4)
             Else
             Sum_mat = Sum_mat + 0
         End If
                 
        Next
       VB_Materials_volume(Mat, 4) = Sum_mat
     Next
СтаниславАВ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запись с вариантами andrei_belko Паскаль, Turbo Pascal, PascalABC.NET 2 03.06.2014 17:12
Записи вариантами. alexeu121 Паскаль, Turbo Pascal, PascalABC.NET 7 28.05.2014 10:26
Записи с вариантами megabobik Помощь студентам 0 31.01.2010 16:17
Запись с вариантами Rusl92 Помощь студентам 1 14.11.2009 10:27
MainMenu с вариантами beegl Компоненты Delphi 4 08.06.2008 12:09