Равенство ячеек с определенным условием

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

Равенство ячеек с определенным условием (Формулы/Formulas)

maxrus63

Дата: Четверг, 16.11.2017, 10:40 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2013

Здравствуйте, уважаемые форумчане!
Есть вроде бы несложная задачка, но у меня опыта не хватает (нарываюсь на циклические ссылки).
Есть несколько ячеек, расположенных не рядом. Изначально они пустые.
Надо сделать так, чтобы при введении данных в любую из них, эти данные отображались во всех остальных.

К сообщению приложен файл: 9340171.xlsx (10.3 Kb)

Ответить

_Boroda_

Дата: Четверг, 16.11.2017, 11:12 | Сообщение № 2

Группа: Админы

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Без включения итеративных вычислений формулами так сделать невозможно. Вы совершенно верно натыкаетесь на циклические ссылки.
Только макросом. Примерно таким (ПКМ на ярлык листа - Исходный код - туда этот макрос)
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d_ As Range, d0_ As Range
    Set d0_ = Range("A1:A20,C2")
    Set d_ = Intersect(Target, d0_)
    If Not d_ Is Nothing Then
        Application.EnableEvents = 0
        d0_ = d_(1).Value
        Application.EnableEvents = 1
    End If
End Sub

[/vba]

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

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