Сложить переменные

[valerij]

Сообщение от EducatedFool

Пробуй:

Игорь это в модуль надо вставлять, а мне надо в ЭтаКнига
Т. е. я ввел на 1 листе данные, переключился на лист15 и что бы там, уже все было
Смущает
Function СуммаЯчеек(ByVal ......
Хотя можна так:
Run "ЗаполнениеЛиста15"

[EducatedFool]

Игорь это в модуль надо вставлять, а мне надо в ЭтаКнига

Какая разница? Вставляй куда хочешь.

Смущает Function СуммаЯчеек(ByVal ......

А что тебя смущает? Работает, и ладно
Тебе надо было решить задачу - я её решил. А что там в макросе написано - это, по сути, не так уж и важно.

Т. е. я ввел на 1 листе данные, переключился на лист15 и что бы там, уже все было

В этом случае надо на лист15 программно в ячейки записывать не значения сумм, а формулы.
Можно сделать, но потребуется время...
Неужели тебе сложно на листе 15 поставить кнопочку, которая будет запускать макрос ЗаполнениеЛиста15 ?


Можно сделать еще проще:
В модуль кода Листа15 вставь следующую процедуру:

Private Sub Worksheet_Activate()
    ЗаполнениеЛиста15
End Sub

Тогда каждый раз при активации Листа15 все значения в нём будут пересчитываться.

PS: Вместо Run "ЗаполнениеЛиста15" можно писать ЗаполнениеЛиста15 - разницы никакой.

[valerij]

Сообщение от EducatedFool

Тогда каждый раз при активации Листа15 все значения в нём будут пересчитываться.

Да, но это все видно, как бы правильно сказать, ну переключил на 15 лист а там визуальный пересчет идет.

Так получилось нормально, ни чего не видно
В конце программы в ЭтаКнига поставил:
Run "ЗаполнениеЛиста15"

Забыл, что это нигде в лит. не нашел
IIf

[EducatedFool]

ну переключил на 15 лист а там визуальный пересчет идет

Ну, если тебе так хочется, могу добавить в макрос тормоза
Тогда результат будет формироваться не за долю секунды, а за полчаса.
Все изменения сможешь визуально отслеживать

А я-то, наивный, думал, что чем быстрее, тем лучше...

[valerij]

Сообщение от EducatedFool

А я-то, наивный, думал, что чем быстрее, тем лучше...

Игорь ты меня не понял, уже все ОК, сейчас проверяю, где то ошибка в сложении, разные показания до и после.
Обясни, что это за оператор
IIF

[EducatedFool]

Обясни, что это за оператор IIF

Всю необходимую информацию легко найти при помощи яндекса...
Достаточно ввести запрос VB оператор IIF

Почитай здесь, ну или здесь.

где то ошибка в сложении, разные показания до и после

Я забыл, что в ячейках с числами могут встречаться пробелы...
Замени строку v = Worksheets(List).Range(ra).Value: If IsNumeric(v) Then СуммаЯчеек = СуммаЯчеек + Val(v)
на строку v = trim$(Worksheets(List).Range(ra).Va lue): If IsNumeric(v) Then СуммаЯчеек = СуммаЯчеек + Val(v)

[valerij]

Сообщение от EducatedFool

Замени строку

Вот тут ошибка
cv = СуммаЯчеек(1, 13, "f" & CStr(41 + 51 * (i - 7)))
MsgBox cv ' Показывает 22, а надо 22,9 -это если Д3, Л1(ЛЕН), ввести 10

[EducatedFool]

Нашел причину.

Замени СуммаЯчеек = СуммаЯчеек + val(v) на СуммаЯчеек = СуммаЯчеек + CDbl(v)

И убери макрос в модуле Листа15:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Range("C40").Select
    Dim cSum2 As Long, cSum3 As Long
    With Application
        .EnableEvents = False
        For i = 7 To 37
            cSum2 = cSum2 + Cells(i, 2)
            cSum3 = cSum3 + Cells(i, 3)
        Next i
        Cells(38, 2) = cSum2
        Cells(38, 3) = cSum3
        Cells(39, 2) = Cells(38, 2) + Cells(38, 3)
        Cells(39, 3) = Cells(39, 2) - Cells(37, 4)
        Run "Счет"
        .EnableEvents = True
    End With
End Sub

Зачем тебе этот макрос? При запуске моего макроса происходят сотни изменений листа 15, и каждый раз запускается этот обработчик...


Или перепиши мой макрос в таком виде:

Sub ЗаполнениеЛиста15()
    Application.EnableEvents = False
    Dim sh As Worksheet: Set sh = ThisWorkbook.Worksheets(15)
    sh.Range("d7:i37").ClearContents    ' очистка от прежних данных

    For i = 7 To 37
        cv = СуммаЯчеек(1, 13, "f" & CStr(41 + 51 * (i - 7)))
        If i > 7 Then sh.Cells(i, 4) = sh.Cells(i - 1, 4) + cv Else sh.Cells(i, 4) = cv    ' пишем значение в столбец D
        sh.Cells(i, 5) = cv    ' пишем значение в столбец E

        cv = СуммаЯчеек(1, 8, "h" & CStr(44 + 51 * (i - 7))) + СуммаЯчеек(9, 13, "h" & CStr(41 + 51 * (i - 7)))
        If i > 7 Then sh.Cells(i, 6) = sh.Cells(i - 1, 6) + cv Else sh.Cells(i, 6) = cv    ' пишем значение в столбец F
        sh.Cells(i, 7) = cv    ' пишем значение в столбец G

        cv = СуммаЯчеек(1, 8, "i" & CStr(44 + 51 * (i - 7))) + СуммаЯчеек(9, 13, "i" & CStr(42 + 51 * (i - 7)))
        If i > 7 Then sh.Cells(i, 8) = sh.Cells(i - 1, 8) + cv Else sh.Cells(i, 8) = cv    ' пишем значение в столбец H
        sh.Cells(i, 9) = cv    ' пишем значение в столбец I
    Next i
    Application.EnableEvents = True
End Sub

[valerij]

Сообщение от EducatedFool

Или перепиши мой макрос в таком виде:

Все ОК!!!!!!!!!!!!!!!!