Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Cуммировать каждую 4-ю ячейку в Excel / 4 сообщений из 4, страница 1 из 1
16.01.2005, 12:05:11
    #32866648
Алекс82
Алекс82
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cуммировать каждую 4-ю ячейку в Excel
Здравстуйте!

Подскажите пожалуйста, как в Excel суммировать каждую 4-ю ячейку по вертикали (предварительно указав диапазон)

Огромное спасибо!

Александр
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2005, 10:37:01
    #32867171
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cуммировать каждую 4-ю ячейку в Excel
Public Sub Sum4()
Dim iR As Range
Dim TargetRange As Range
Dim S As Double
Set TargetRange = Range("A1:A20")
For Each iR In TargetRange
If iR.Row Mod 4 = 0 Then S = S + iR.Value
Next iR
Debug.Print S
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2005, 10:52:06
    #32869435
Алекс82
Алекс82
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cуммировать каждую 4-ю ячейку в Excel
Объясните "чайнику".
Я правильно понял, нужно только скопировать код в редактор VB и запустить
этот макрос? (что-то не работает)
Больше никаких движений делать не надо?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2005, 14:16:47
    #32872405
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cуммировать каждую 4-ю ячейку в Excel
Надо нажать "Alt" + "F11". Откроется VBA. Выбери из списка, в котором есть General, Worksheet.
Автоматом откроется:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

Вставь код между 2 этими строками:

Dim iR As Range
Dim TargetRange As Range
Dim S As Double
Set TargetRange = Range("A1:A20")
For Each iR In TargetRange
If iR.Row Mod 4 = 0 Then S = S + iR.Value
Next iR
MsgBox " " & S

Затем выбери в меню Debug->Compile VBAProject. Сохрани. Затем можешь закрыть VBA.

Будет выдаваться сообщение при каждом изменении фокуса листа.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Cуммировать каждую 4-ю ячейку в Excel / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 353ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2168326]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 58ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 204ms
total:  353ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]