ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Возможно ли в Excel из VBA суммировать диапазоны строк???
9 сообщений из 9, страница 1 из 1
Возможно ли в Excel из VBA суммировать диапазоны строк???
    #34071273
Domninsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Domninsky
Участник
Возможно ли что-то вроде такого
Range("A3:F3")=Range("A1:F1")+Range("A2:F2")

Есть задача в которой необзодимо прибавлять к строке в цыкле другую строку очень не хотелось бы делать это для каждой ячейки строки отдельно?

Причем конечное значение строки должно быть в виде значений, а не формул.
Формулы не подойдут... (

Спасибо!
...
Рейтинг: 0 / 0
20.10.2006, 20:19:02
| Ответить | Цитировать | Написать  
Возможно ли в Excel из VBA суммировать диапазоны строк???
    #34071320
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Код: plaintext
1.
2.
3.
with activesheet.range("A3:F3")
     .FormulaR1C1 = "=r[-2]c+r[-1]c"
     .Value = .Value
end with
...
Рейтинг: 0 / 0
20.10.2006, 21:00:21
| Ответить | Цитировать | Написать  
Возможно ли в Excel из VBA суммировать диапазоны строк???
    #34071704
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
    Range("A3:F3") = Evaluate("A1:F1+A2:F2")

или с переменными


Код: plaintext
    Range("A3:F3") = Evaluate(Range("A1:F1").Address & "+" & Range("A2:F2").Address)


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
21.10.2006, 13:54:49
| Ответить | Цитировать | Написать  
Возможно ли в Excel из VBA суммировать диапазоны строк???
    #34071984
Domninsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Domninsky
Участник
Спасибо!
...
Рейтинг: 0 / 0
21.10.2006, 19:31:45
| Ответить | Цитировать | Написать  
Возможно ли в Excel из VBA суммировать диапазоны строк???
    #34074095
Domninsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Domninsky
Участник
KL (XL)
Код: plaintext
    Range("A3:F3") = Evaluate("A1:F1+A2:F2")

или с переменными


Код: plaintext
    Range("A3:F3") = Evaluate(Range("A1:F1").Address & "+" & Range("A2:F2").Address)


KL
[MVP - Microsoft Excel]

А возожно ли суммировать таким образом данные расположенные на разных листах книги?
...
Рейтинг: 0 / 0
23.10.2006, 14:32:07
| Ответить | Цитировать | Написать  
Возможно ли в Excel из VBA суммировать диапазоны строк???
    #34074444
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
    Range("A3:F3") = Evaluate("Лист1!A1:F1+Лист2!A2:F2")

Код: plaintext
1.
    Range("A3:F3") = Evaluate(Sheets("Лист1").Range("A1:F1").Address(, , , True) _
        & "+" & Sheets("Лист2").Range("A2:F2").Address(, , , True))

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
23.10.2006, 15:55:04
| Ответить | Цитировать | Написать  
Возможно ли в Excel из VBA суммировать диапазоны строк???
    #34075307
Domninsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Domninsky
Участник
KL (XL)
Код: plaintext
    Range("A3:F3") = Evaluate("Лист1!A1:F1+Лист2!A2:F2")

Код: plaintext
1.
    Range("A3:F3") = Evaluate(Sheets("Лист1").Range("A1:F1").Address(, , , True) _
        & "+" & Sheets("Лист2").Range("A2:F2").Address(, , , True))

KL
[MVP - Microsoft Excel]

А возможно через Range задавать через cells - вот так у меня что-то ругается на это
//
Sheets("Лист1").Range(Cells(1, 1), Cells(1, 7)) = Evaluate(Sheets("Лист1").Range(Cells(1, 1), Cells(1, 7)).Address(, , , True) _
& "+" & Sheets("Лист2").Range(Cells(1, 1), Cells(1, 7)).Address(, , , True))
//
Пишет
Application-defined or object-defined error
...
Рейтинг: 0 / 0
23.10.2006, 20:46:22
| Ответить | Цитировать | Написать  
Возможно ли в Excel из VBA суммировать диапазоны строк???
    #34075383
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
1.
2.
    Sheets("Лист1").Range(Sheets("Лист1").Cells( 3 ,  1 ), Sheets("Лист1").Cells( 3 ,  7 )) = _
        Evaluate(Sheets("Лист1").Range(Sheets("Лист1").Cells( 1 ,  1 ), Sheets("Лист1").Cells( 1 ,  7 )).Address(, , , True) & "+" _
            & Sheets("Лист2").Range(Sheets("Лист2").Cells( 2 ,  1 ), Sheets("Лист2").Cells( 2 ,  7 )).Address(, , , True))

Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim ws As Worksheet
    Set ws = Sheets("Лист2")
    With Sheets("Лист1")
        .Range(.Cells( 3 ,  1 ), .Cells( 3 ,  7 )) = _
            Evaluate(.Range(.Cells( 1 ,  1 ), .Cells( 1 ,  7 )).Address(, , , True) & "+" _
                & ws.Range(ws.Cells( 2 ,  1 ), ws.Cells( 2 ,  7 )).Address(, , , True))
    End With

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim rng1 As Range, rng2 As Range, rng3 As Range
    With Sheets("Лист1")
        Set rng1 = .Range(.Cells( 3 ,  1 ), .Cells( 3 ,  7 ))
        Set rng2 = .Range(.Cells( 1 ,  1 ), .Cells( 1 ,  7 ))
    End With
    With Sheets("Лист2")
        Set rng3 = .Range(.Cells( 2 ,  1 ), .Cells( 2 ,  7 ))
    End With
    rng1 = Evaluate(rng2.Address(, , , True) & "+" & rng3.Address(, , , True))

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
23.10.2006, 21:53:00
| Ответить | Цитировать | Написать  
Возможно ли в Excel из VBA суммировать диапазоны строк???
    #34076803
Domninsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Domninsky
Участник
Спасибо!
...
Рейтинг: 0 / 0
24.10.2006, 13:18:12
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Возможно ли в Excel из VBA суммировать диапазоны строк???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2184084]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 48ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 199ms
total:  340ms
созд. / загр.: 340ms
x
x
Закрыть


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