Страницы: 1
RSS
Вычисления в таблице при различных условиях. (только VBA)
 
Добрый день!
Помогите с решением примера - во вложении и пример, и вопрос.
Дальше докручу сам. Только средствами VBA

Спасибо и не болейте!!!!
 
Что решать? Что за вопрос: Нужна в сообщении кратко описывать задачу/вопрос, а не заставлять всех скачивать Ваш файл.
 
Код
Sub SameThing()
  Dim a, i&, f$, c&
  a = Cells(3, 3).CurrentRegion
  For i = 2 To UBound(a)
    If a(i, 1) Like "фрукт*" Or a(i, 1) Like "овощ*" Then _
    If InStr(f, a(i, 1)) = 0 Then f = f & vbTab & a(i, 1)
    If a(i, 2) = "шт" Then c = c + a(i, 3)
  Next
  Cells(19, 4) = UBound(Split(f, vbTab))
  Cells(22, 4) = c
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Ігор Гончаренко

Элегантно....
Спасибо!!
Страницы: 1
Наверх