Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.07.2009, 06:36   #1
AAE
Новичок
Джуниор
 
Регистрация: 29.11.2007
Сообщений: 1
По умолчанию VBA программно сумма диапозона

В поиске найти не сумел желаемого... Если что, прощу прощения..

Задача: есть некая матрица значений (табличка на листе1), допустистим A1:E10. Есть кнопка Button_GO. Необходимо выделить рукой диапозон чисел из этой матрицы, а затем чтоб по нажатию кнопки выдавалось сообщение, чему ровна сумма этого диапозона.

Делал так:
в исходном тексте Лист1:

Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim qwe As Variant
qwe = Target.Address
MsgBox qwe ' для контроля, что за диапозон выделил
End Sub
Получаем в qwe, например $A$1:$C$5
Кнопка:

Код:
Sub go()
    Range("A15") = "=SUM(qwe)"
End Sub
В итоге, говорит, что формула не распознает текст. В строке формул для ячейки А15: =СУММ(qwe)...

Вопрос ,как правильно сделать, чтоб передавалось не =СУММ(qwe), а =СУММ($A$1:$C$5)

ЗЫ. вижуал бэйсику пока только учусь Заранее спасибо...
AAE вне форума Ответить с цитированием
Старый 24.07.2009, 07:03   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Выделить диапазон и выполнить код:
Код:
MsgBox Application.Sum(Selection)
или
Код:
[A15] = Application.Sum(Selection)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
При создании нового листа программно поставить на него защиту (с помощью VBA) Lis000iq Microsoft Office Excel 2 30.06.2009 18:41
Как вывести из диапозона не хватающие числа... boy24 Microsoft Office Excel 7 08.06.2009 06:08
Произвидение диапозона чисел MAKEDON Общие вопросы C/C++ 1 22.02.2009 13:30
Программно график VBA Excell Kvant Microsoft Office Excel 2 30.10.2008 18:56
Сумма RIP VIP Помощь студентам 8 02.05.2008 14:33