|
|
|
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?desktop=1&fid=60&tid=2168326]: |
0ms |
get settings: |
6ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
41ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
2ms |
| others: | 200ms |
| total: | 320ms |
| 0 / 0 |
