Ячейка накопления (с нарастающим итогом)

Автор andreya81, 29 июля 2013, 10:22

0 Пользователи и 1 гость просматривают эту тему.

andreya81

Помогите пожалуйста с макросом накопительной ячейки с нарастающим итогом. Есть пример в Excel но при сохранении данного примера в формате ODS макрос отказывается работать. >:( Выручите пожалуйста очень надо :-\

[вложение удалено Администратором]

Yakov

В приложенном файле макрос отсутствует

andreya81

Вот он
Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    If Not Intersect(Target, Range("B7:B23")) Is Nothing Then
        If IsNumeric(Target.Value) Then
            Application.EnableEvents = False
            Target.Offset(0, 3).Value = Target.Offset(0, 3).Value + Target.Value
            Application.EnableEvents = True
        End If
    End If
   
    If Not Intersect(Target, Range("B26:B37")) Is Nothing Then
        If IsNumeric(Target.Value) Then
            Application.EnableEvents = False
            Target.Offset(0, 3).Value = Target.Offset(0, 3).Value + Target.Value
            Application.EnableEvents = True
        End If
    End If
End Sub
Ругается и пишет
Ошибка времени выполнения BASIC.
'1'

Type: com.sun.star.script.BasicErrorException
Message: 
:-\ :-\ :-\ :-\

JohnSUN

Можно и так...

(Представляю как удивится оператор, когда программа откажется суммировать не изменившиеся данные: было 25, ввожу 25 - и ничего не происходит!)

[вложение удалено Администратором]
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

andreya81


JohnSUN

Брось, гениальностью там и не пахнет: и решение неуклюжее, и подход к решению неправильный.
Вот этот вариант - немного ближе к поставленной задаче... и к идее использования базы данных  ;)

[вложение удалено Администратором]
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

andreya81