Excel VBA - [619] :: Прикладное программирование

Function DetailsIn(rng As Range) As Variant
Application.Volatile

Dim c As Range
Dim lastc As Variant

If rng.Rows.Count > 1 Then
DetailsIn = CVErr(xlErrValue)
Exit Function
End If
For Each c In rng
If c.Address = rng.Cells(1, 1).Address Then
If Not IsNumeric(c.Value) Or IsEmpty(c) Then
DetailsIn = CVErr(xlErrValue)
Exit Function
Else
lastc = c.Value
End If
ElseIf IsNumeric(c.Value) And Not IsEmpty(c) Then
If c.Value - lastc > 0 Then
DetailsIn = c.Value - lastc + DetailsIn
End If
lastc = c.Value
End If
Next
If DetailsIn = 0 Then DetailsIn = "-"
End Function

Function DetailsOut(rng As Range) As Variant
Application.Volatile

Dim c As Range
Dim lastc As Variant

If rng.Rows.Count > 1 Then
DetailsOut = CVErr(xlErrValue)
Exit Function
End If
For Each c In rng
If c.Address = rng.Cells(1, 1).Address Then
If Not IsNumeric(c.Value) Or IsEmpty(c) Then
DetailsOut = CVErr(xlErrValue)
Exit Function
Else
lastc = c.Value
End If
ElseIf IsNumeric(c.Value) And Not IsEmpty(c) Then
If c.Value - lastc < 0 Then
DetailsOut = lastc - c.Value + DetailsOut
End If
lastc = c.Value
End If
Next
If DetailsOut = 0 Then DetailsOut = "-"
End Function

Модерирует : ShIvADeSt
ShIvADeSt (23-04-2007 01:59): http://forum.ru-board.com/topic.cgi?forum=33&topic=8273	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению