Не использовать цикл, вывести значение

[valerij]

Как обойтись без цикла?
Значение в С29 = последнему значению, в столбце С > 0.
Ввод данных в ст. В(синим)

[KL (XL)]

для <>0
[C29]=ПРОСМОТР(9E+307;1/C3:C28;C3:C28)

для >0
[C29]=ПРОСМОТР(2;1/(C3:C28>0);C3:C28)

только события временно отключите перед вводом формулы, а потом включите.

[valerij]

Сообщение от KL (XL)

[C29]перед вводом формулы,.

Без формул, там макрос в листе

[KL (XL)]

Без формулы будет цикл Можно формулой, но в макросе:

PHP код:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim rng As Range, c As Range
    
    On Error Resume Next
    Set rng = Intersect(Target, [B3:B28])
    On Error GoTo 0
    If rng Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    For Each c In rng
        c.Offset(, 1) = IIf(c = 0, 0, [B2] - [B29])
    Next
    [C29] = [LOOKUP(9E307,1/C3:C28,C3:C28)]
    Application.EnableEvents = True
End Sub 


[valerij]

Сообщение от KL (XL)

Без формулы будет цикл

ОК!
Только, забыл добавить, что если весь диап. [В3:В28] = 0, то С29 = В2.
Наковырял сам так

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
    For Each x In Target
        Cells(x.Row, 3) = Cells(2, 2) - Cells(29, 2)
        If Cells(x.Row, 2) = 0 Then Cells(x.Row, 3) = 0
    Next
    With Range("C29")
        .FormulaR1C1 = "=LOOKUP(9E+307,1/R[-26]C:R[-1]C,R[-26]C:R[-1]C)"
            .Value = .Value
        If .FormulaR1C1 = "#N/A" Then [C29] = Cells(2, 2)
    End With
    Application.EnableEvents = True
End Sub

KL (XL)
Как в твоем макросе это сделать?
СПАСИБО!!

[KL (XL)]

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
    Dim rng As Range, c As Range 
     
    On Error Resume Next 
    Set rng = Intersect(Target, [B3:B28]) 
    On Error GoTo 0 
    If rng Is Nothing Then Exit Sub 
     
    Application.EnableEvents = False 
    For Each c In rng 
        c.Offset(, 1) = IIf(c = 0, 0, [B2] - [B29]) 
    Next 
    [C29] = [IF(SUM(B3:B28),LOOKUP(9E307,1/C3:C28,C3:C28),B2)] 
    Application.EnableEvents = True 
End Sub

[valerij]

Сообщение от KL (XL)

[CODE]

Спасибо, все класс!!!!!!
(\__/)
(='.'=)
E[:]|||[:]З
(")_(")