Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/суммировать несколько ссылок макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » суммировать несколько ссылок макросом (Макросы/Sub)
суммировать несколько ссылок макросом
Flatcher Дата: Пятница, 16.09.2016, 12:50 | Сообщение № 1
Группа: Проверенные
Ранг: Участник
Сообщений: 68
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Добрый день. Подскажите пожалуйста как просуммировать несколько ссылок макросом? В примере добавил образец макроса. Как он отработал и как я хочу сделать
К сообщению приложен файл: 8775716.xlsm(16Kb)
 
Ответить
СообщениеДобрый день. Подскажите пожалуйста как просуммировать несколько ссылок макросом? В примере добавил образец макроса. Как он отработал и как я хочу сделать

Автор - Flatcher
Дата добавления - 16.09.2016 в 12:50
_Boroda_ Дата: Пятница, 16.09.2016, 13:09 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9381
Репутация: 3951 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Судя по макросу, у Вас по одному значению "тест" и "тест2". Тогда можно, например, так
[vba]
Код
Sub test()
Application.ScreenUpdating=0
    Dim d1 As Range
    Set d1 = Application.InputBox("Укажите диапазон для подстановки значений:", "Запрос данных", "", Type:=8)
    d1.Interior.Color = 65535
    a1_ = d1.Find("тест", , xlValues, xlWhole).Offset(, 1).Address
    a2_ = d1.Find("тест2", , xlValues, xlWhole).Offset(, 1).Address
    Range(a1_).Offset(, 1).FormulaLocal = "=" & a1_
    Range(a2_).Offset(, 1).FormulaLocal = "=" & a2_
    Range(a1_).Offset(, 2).FormulaLocal = "=" & a1_ & "+" & a2_
Application.ScreenUpdating=1
End Sub
[/vba]
К сообщению приложен файл: 8775716_1.xlsm(19Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеСудя по макросу, у Вас по одному значению "тест" и "тест2". Тогда можно, например, так
[vba]
Код
Sub test()
Application.ScreenUpdating=0
    Dim d1 As Range
    Set d1 = Application.InputBox("Укажите диапазон для подстановки значений:", "Запрос данных", "", Type:=8)
    d1.Interior.Color = 65535
    a1_ = d1.Find("тест", , xlValues, xlWhole).Offset(, 1).Address
    a2_ = d1.Find("тест2", , xlValues, xlWhole).Offset(, 1).Address
    Range(a1_).Offset(, 1).FormulaLocal = "=" & a1_
    Range(a2_).Offset(, 1).FormulaLocal = "=" & a2_
    Range(a1_).Offset(, 2).FormulaLocal = "=" & a1_ & "+" & a2_
Application.ScreenUpdating=1
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 16.09.2016 в 13:09
Flatcher Дата: Пятница, 16.09.2016, 13:35 | Сообщение № 3
Группа: Проверенные
Ранг: Участник
Сообщений: 68
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Спасибо большое. Идею понял дальше все сам доработал.
 
Ответить
Сообщение_Boroda_, Спасибо большое. Идею понял дальше все сам доработал.

Автор - Flatcher
Дата добавления - 16.09.2016 в 13:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » суммировать несколько ссылок макросом (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!