Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

11th
Авг

В одной и той-же ячейке на каждом листе есть определенная цифра, нужно сделать подсчет за последние семь листов

Posted by obzor under VBA

Дано: куча листов (каждый лист это день недели) в одной книге.
Много формул.
В одной и той-же ячейке на каждом листе есть определенная цифра, нужно сделать подсчет за последние семь дней, то есть за последние семь листов.
Сделать так что бы оно считало от активной страницы минус 7 дней.

Elixi, Aleksandr H.

от активного листа…

Код:

Sub Заработок()
    Dim x, i As Long, AShO As Long
    
    '   определяем очередь активного листа
    AShO = Activesheet.Index
    
    '   считаем
    If AShO - 6 < 1 Then
        MsgBox "наверно знаете почему непосчитать..."
        Exit Sub
    Else
        For i = AShO - 6 To AShO
            x = x + Sheets(i).[A29]
        Next
        MsgBox (x)
    End If
    
End Sub