Подскажите пожалуйста, как в таблице сделать чтобы сравнивались значения тех наименований, которые числятся в определенном отделении и рядом с названием "Наименование товара" выводилось название того отделения, в котором находится наименование. Как пример я залил желтым цветом что должно получиться.
Подскажите пожалуйста, как в таблице сделать чтобы сравнивались значения тех наименований, которые числятся в определенном отделении и рядом с названием "Наименование товара" выводилось название того отделения, в котором находится наименование. Как пример я залил желтым цветом что должно получиться.lahesis333
У нас такая "хорошая" программа, которая таким образом только выдает отчет((( Прошу прощения за глупые просьбы(вопросы), но не могли бы вы сделать такой вариант для полной таблицы? Очень Вас прошу!
У нас такая "хорошая" программа, которая таким образом только выдает отчет((( Прошу прощения за глупые просьбы(вопросы), но не могли бы вы сделать такой вариант для полной таблицы? Очень Вас прошу!lahesis333
А мне, как всегда, больше нравится вариант с UDF [vba]
Код
Public Function Sklad(R As Range, N As Integer) As String
M = 0
For i = 1 To R.Columns.Count If R.Cells(R.Rows.Count, i).Value = 1 Then M = M + 1 Sklad = R.Cells(1, i).Value End If If M = N Then Exit Function Next i
End Function
[/vba]
Он упрощенный, конечно, реагирует только на 1 в графе Количество. Но доработать в любом направлении не сложно
А мне, как всегда, больше нравится вариант с UDF [vba]
Код
Public Function Sklad(R As Range, N As Integer) As String
M = 0
For i = 1 To R.Columns.Count If R.Cells(R.Rows.Count, i).Value = 1 Then M = M + 1 Sklad = R.Cells(1, i).Value End If If M = N Then Exit Function Next i
End Function
[/vba]
Он упрощенный, конечно, реагирует только на 1 в графе Количество. Но доработать в любом направлении не сложноabtextime
Подскажите а для следующей таблицы можно сделать чтобы так же подставлялись значения:напротив наименования-название отделения И КОЛИЧЕСТВО единиц этого наименования в этом отделении? Просто в этой таблице может быть аж до 5-6 разных отделений в которых есть одно и то же наименование и количество в каждом отделении разное(от 1 до 3-4). Ячейки для выведения соответствующих отделений залиты желтым. Помогите плиз-начальство уже готовит вазелин.....
Подскажите а для следующей таблицы можно сделать чтобы так же подставлялись значения:напротив наименования-название отделения И КОЛИЧЕСТВО единиц этого наименования в этом отделении? Просто в этой таблице может быть аж до 5-6 разных отделений в которых есть одно и то же наименование и количество в каждом отделении разное(от 1 до 3-4). Ячейки для выведения соответствующих отделений залиты желтым. Помогите плиз-начальство уже готовит вазелин.....lahesis333
поправил ошибочку в коде и сделал, чтобы количество могло быть в диапазоне 1...10
[vba]
Код
Public Function Sklad(R As Range, N As Integer) As String
M = 0
For i = 1 To R.Columns.Count If R.Cells(R.Rows.Count, i).Value >= 1 And R.Cells(R.Rows.Count, i).Value <= 10 Then M = M + 1 End If If M = N Then Sklad = R.Cells(1, i).Value Exit Function End If Next i
End Function
[/vba]
вот, посмотрите
поправил ошибочку в коде и сделал, чтобы количество могло быть в диапазоне 1...10
[vba]
Код
Public Function Sklad(R As Range, N As Integer) As String
M = 0
For i = 1 To R.Columns.Count If R.Cells(R.Rows.Count, i).Value >= 1 And R.Cells(R.Rows.Count, i).Value <= 10 Then M = M + 1 End If If M = N Then Sklad = R.Cells(1, i).Value Exit Function End If Next i
Чуток обобщил функцию, можно задавать шаг, в данном случае - 2. И реагирует на любое НЕПУСТО в ячейке
[vba]
Код
Public Function Sklad(R As Range, N As Integer, SStep As Integer) As String 'Ищет N-ю по порядку непустую ячейку в последней строке диапазона и выдает содержимое (String) ячейки из этого столбца и первой строки диапазона. 'Поиск непустой ячейки идет с шагом SStep (целое)
M = 0
For i = 1 To R.Columns.Count Step SStep 'Цикл по столбцам (с шагом SStep) If Trim(R.Cells(R.Rows.Count, i).Value) <> "" Then M = M + 1 ' найдено - увеличиваем счётчик End If If M = N Then ' дошли до N Sklad = R.Cells(1, i).Value ' задаем значение функции и выходим Exit Function End If Next i
End Function
[/vba]
Чуток обобщил функцию, можно задавать шаг, в данном случае - 2. И реагирует на любое НЕПУСТО в ячейке
[vba]
Код
Public Function Sklad(R As Range, N As Integer, SStep As Integer) As String 'Ищет N-ю по порядку непустую ячейку в последней строке диапазона и выдает содержимое (String) ячейки из этого столбца и первой строки диапазона. 'Поиск непустой ячейки идет с шагом SStep (целое)
M = 0
For i = 1 To R.Columns.Count Step SStep 'Цикл по столбцам (с шагом SStep) If Trim(R.Cells(R.Rows.Count, i).Value) <> "" Then M = M + 1 ' найдено - увеличиваем счётчик End If If M = N Then ' дошли до N Sklad = R.Cells(1, i).Value ' задаем значение функции и выходим Exit Function End If Next i