Многоступенчатые операции с excel

Автор Анастасия, 06.07.2013, 12:02

« назад - далее »

Анастасия

Здравствуйте.С таблицей необъятных размеров надо выполнить несколько операций:
1) выделить значения, меньше мин и заменить на мин
2)выделить значения , больше макс и заменить на макс.
Excel 2007

ShAM

Цитата: Анастасия от 06.07.2013, 12:02
меньше мин
больше макс
Звучит как-то странно. :)
А мин и макс задаются или тоже нужно по каким-то условиям считать?

Анастасия


kuklp

Цитата: Анастасия от 06.07.2013, 13:00
мин и макс задаются
я так понял, в желтых и красных строках. К чему тогда вторая строка? Сделал согласно примера. В модуль листа:
Public Sub www()
    Dim a, i&, j&, mi#, ma#
    a = UsedRange.Value
    On Error Resume Next
    For i = 1 To UBound(a, 2)
        mi = a(3, i): ma = a(4, i)
        For j = 2 To UBound(a)
        If Not IsEmpty(a(j, i)) And a(j, i) > 0 Then
                If a(j, i) < mi Then a(j, i) = mi
                If a(j, i) > ma Then a(j, i) = ma
            End If
        Next j, i
    UsedRange.Value = a
End Sub
Анастасия, впредь не жалейте слов для описания задачи. Переделывать по несколько раз из-за плохого описания никто желанием не горит.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Анастасия

Спасибо)пишет, что ошибка в четвертой  строчке.Опишу более подробно: из каждого столбца нужно выделить желтым все значения,которые меньше мин,  и заменить на него.Потом выделить красным все, что больше максимума, заменить на макс

kuklp

Цитата: Анастасия от 06.07.2013, 15:53
Спасибо)пишет, что ошибка в четвертой  строчке....выделить желтым все значения,которые меньше мин,...выделить красным ..
Я писал: "В модуль листа". Вы куда вставляли код? И где у Вас в топике про "желтым, красным"?  Больше переделывать не буду. См. файл.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771