|
|
|
Cуммировать каждую 4-ю ячейку в Excel
|
|||
|---|---|---|---|
|
#18+
Здравстуйте! Подскажите пожалуйста, как в Excel суммировать каждую 4-ю ячейку по вертикали (предварительно указав диапазон) Огромное спасибо! Александр ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2005, 12:05:11 |
|
||
|
Cуммировать каждую 4-ю ячейку в Excel
|
|||
|---|---|---|---|
|
#18+
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  ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2005, 10:37:01 |
|
||
|
Cуммировать каждую 4-ю ячейку в Excel
|
|||
|---|---|---|---|
|
#18+
Объясните "чайнику". Я правильно понял, нужно только скопировать код в редактор VB и запустить этот макрос? (что-то не работает) Больше никаких движений делать не надо? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.01.2005, 10:52:06 |
|
||
|
Cуммировать каждую 4-ю ячейку в Excel
|
|||
|---|---|---|---|
|
#18+
Надо нажать "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. Будет выдаваться сообщение при каждом изменении фокуса листа. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.01.2005, 14:16:47 |
|
||
|
|
start [/forum/topic.php?fid=60&gotonew=1&tid=2168326]: |
0ms |
get settings: |
9ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
77ms |
get topic data: |
9ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 216ms |
| total: | 382ms |
| 0 / 0 |
