Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Возможно ли в Excel из VBA суммировать диапазоны строк??? / 9 сообщений из 9, страница 1 из 1
20.10.2006, 20:19:02
    #34071273
Domninsky
Domninsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли в Excel из VBA суммировать диапазоны строк???
Возможно ли что-то вроде такого
Range("A3:F3")=Range("A1:F1")+Range("A2:F2")

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

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

Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.10.2006, 21:00:21
    #34071320
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли в Excel из VBA суммировать диапазоны строк???
Код: plaintext
1.
2.
3.
with activesheet.range("A3:F3")
     .FormulaR1C1 = "=r[-2]c+r[-1]c"
     .Value = .Value
end with
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.10.2006, 13:54:49
    #34071704
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли в Excel из VBA суммировать диапазоны строк???
Код: 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, 19:31:45
    #34071984
Domninsky
Domninsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли в Excel из VBA суммировать диапазоны строк???
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2006, 14:32:07
    #34074095
Domninsky
Domninsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли в Excel из VBA суммировать диапазоны строк???
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, 15:55:04
    #34074444
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли в Excel из VBA суммировать диапазоны строк???
Код: 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, 20:46:22
    #34075307
Domninsky
Domninsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли в Excel из VBA суммировать диапазоны строк???
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, 21:53:00
    #34075383
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли в Excel из VBA суммировать диапазоны строк???
Код: 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
| Ответить | Цитировать | Написать  
24.10.2006, 13:18:12
    #34076803
Domninsky
Domninsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли в Excel из VBA суммировать диапазоны строк???
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Возможно ли в Excel из VBA суммировать диапазоны строк??? / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 361ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2184084]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 236ms
total:  361ms
x
x
Закрыть


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