Отображение значения в ячейку из других листов

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отображение значения в ячейку из других листов (Формулы/Formulas)

AndreyBeloff

Дата: Четверг, 28.11.2019, 17:15 | Сообщение № 1

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

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

Сообщений: 4

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

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

Excel 2013

Добрый день, просвященные! Подскажите возможно ли отобразить текстовое значение ячейки, в ту же ячейку основного листа, но не из одного листа, а из нескольких. Например может появиться текст на втором листе в ячейке R34C2, оно должно отобразиться на главном листе в той же ячейке. Либо этот же текст может отобразиться на третьем листе в такой же ячейке. Ячейки между собой пересекаться не будут, т.е. если ячейка R34C2 будет заполнена на одном листе, на другом этого значения уже не будет. Во вложении файл в котором интересующие ячейки выделены синим цветом. Буду рад если вам удастся помочь мне.

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

Ответить

Nic70y

Дата: Суббота, 30.11.2019, 11:53 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8761

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

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

Excel 2010

никода не работал с Global (не было надобности, да и щас нет)
но стало интересно.
[vba]

Код

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    i = ActiveSheet.Index
    If i > 0 Then
        u = Target.Row
        a = Cells(u, 2).Value
        Call u__
    End If
End Sub

[/vba]
[vba]

Код

Global a, u
Sub u__()
Sheets(1).Cells(u, 2) = a
End Sub

[/vba]
срабатывает тока со второго раза. почему?

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

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 30.11.2019, 12:00

Ответить

AndreyBeloff

Дата: Понедельник, 02.12.2019, 09:04 | Сообщение № 3

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

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

Сообщений: 4

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

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

Excel 2013

Nic70y, действительно только со второго раза. Но и на том спасибо! Может кто что добавит по этому поводу в дальнейшем

Сообщение отредактировал AndreyBeloff - Понедельник, 02.12.2019, 09:05

Ответить

Kostya_Ye

Дата: Понедельник, 02.12.2019, 09:48 | Сообщение № 4

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

Ранг: Обитатель

Сообщений: 271

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

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

Excel 2016

Событие SheetSelectionChange получает в Target ячейку, на которую перешли после изменения нужной ячейки, а не саму измененную ячейку. И только после того, как выделить опять измененнйю ячейку, событие отрабатывает то, что нужно.

Сообщение отредактировал Kostya_Ye - Понедельник, 02.12.2019, 09:48

Ответить

_Boroda_

Дата: Понедельник, 02.12.2019, 09:49 | Сообщение № 5

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

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Поменяйте [vba]

Код

Workbook_SheetSelectionChange

[/vba] на [vba]

Код

Workbook_SheetChange

[/vba]

У меня еще такой вариант
[vba]

Код

Public d_ As Range
Sub u__()
    Application.EnableEvents = 0
    fff = d_.Address
    Sheets(1).Range(d_.Address) = d_.Value
    Application.EnableEvents = 1
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Index > 1 Then
        'условие на ограничение диапазона ячеек, для которого все это совершается
        Set d_ = Intersect(Target, Sh.Range("B34:C42"))
        If Not d_ Is Nothing Then
            Call u__
        End If
    End If
End Sub

[/vba]

К сообщению приложен файл: 19-1-2.xlsm (70.7 Kb) · 19-1-3.xlsm (71.4 Kb)

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