суммировать несколько ссылок макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » суммировать несколько ссылок макросом (Макросы/Sub)

Flatcher

Дата: Пятница, 16.09.2016, 12:50 | Сообщение № 1

Группа: Проверенные

Ранг: Участник

Сообщений: 94

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Добрый день. Подскажите пожалуйста как просуммировать несколько ссылок макросом? В примере добавил образец макроса. Как он отработал и как я хочу сделать

К сообщению приложен файл: 8775716.xlsm (16.5 Kb)

Ответить

_Boroda_

Дата: Пятница, 16.09.2016, 13:09 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 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 (18.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Flatcher

Дата: Пятница, 16.09.2016, 13:35 | Сообщение № 3

Группа: Проверенные

Ранг: Участник

Сообщений: 94

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » суммировать несколько ссылок макросом (Макросы/Sub)

Страница 1 из 1
1