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

Вход

Регистрация

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

 

= Мир MS Excel/Отображение значения в ячейку из других листов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отображение значения в ячейку из других листов (Формулы/Formulas)
Отображение значения в ячейку из других листов
AndreyBeloff Дата: Четверг, 28.11.2019, 17:15 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день, просвященные! Подскажите возможно ли отобразить текстовое значение ячейки, в ту же ячейку основного листа, но не из одного листа, а из нескольких. Например может появиться текст на втором листе в ячейке R34C2, оно должно отобразиться на главном листе в той же ячейке. Либо этот же текст может отобразиться на третьем листе в такой же ячейке. Ячейки между собой пересекаться не будут, т.е. если ячейка R34C2 будет заполнена на одном листе, на другом этого значения уже не будет. Во вложении файл в котором интересующие ячейки выделены синим цветом. Буду рад если вам удастся помочь мне.
К сообщению приложен файл: 4754215.xlsx(61.6 Kb)
 
Ответить
СообщениеДобрый день, просвященные! Подскажите возможно ли отобразить текстовое значение ячейки, в ту же ячейку основного листа, но не из одного листа, а из нескольких. Например может появиться текст на втором листе в ячейке R34C2, оно должно отобразиться на главном листе в той же ячейке. Либо этот же текст может отобразиться на третьем листе в такой же ячейке. Ячейки между собой пересекаться не будут, т.е. если ячейка R34C2 будет заполнена на одном листе, на другом этого значения уже не будет. Во вложении файл в котором интересующие ячейки выделены синим цветом. Буду рад если вам удастся помочь мне.

Автор - AndreyBeloff
Дата добавления - 28.11.2019 в 17:15
Nic70y Дата: Суббота, 30.11.2019, 11:53 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5738
Репутация: 1259 ±
Замечаний: 0% ±

ru13;10;03
никода не работал с 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)


ЯД(poison) 41001841029809

Сообщение отредактировал Nic70y - Суббота, 30.11.2019, 12:00
 
Ответить
Сообщениеникода не работал с 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]
срабатывает тока со второго раза. почему?

Автор - Nic70y
Дата добавления - 30.11.2019 в 11:53
AndreyBeloff Дата: Понедельник, 02.12.2019, 09:04 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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


Сообщение отредактировал AndreyBeloff - Понедельник, 02.12.2019, 09:05
 
Ответить
СообщениеNic70y, действительно только со второго раза. Но и на том спасибо! Может кто что добавит по этому поводу в дальнейшем

Автор - AndreyBeloff
Дата добавления - 02.12.2019 в 09:04
Kostya_Ye Дата: Понедельник, 02.12.2019, 09:48 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 47 ±
Замечаний: 0% ±

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


Сообщение отредактировал Kostya_Ye - Понедельник, 02.12.2019, 09:48
 
Ответить
СообщениеСобытие SheetSelectionChange получает в Target ячейку, на которую перешли после изменения нужной ячейки, а не саму измененную ячейку. И только после того, как выделить опять измененнйю ячейку, событие отрабатывает то, что нужно.

Автор - Kostya_Ye
Дата добавления - 02.12.2019 в 09:48
_Boroda_ Дата: Понедельник, 02.12.2019, 09:49 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15673
Репутация: 6119 ±
Замечаний: 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
 
Ответить
СообщениеПоменяйте [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]

Автор - _Boroda_
Дата добавления - 02.12.2019 в 09:49
Nic70y Дата: Понедельник, 02.12.2019, 10:22 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5738
Репутация: 1259 ±
Замечаний: 0% ±

ru13;10;03
Все пора на пенсию. скопипастил не от туда
и смотрю не туда %)
да еще [vba]
Код
If i > 0 Then
[/vba] %)
спс


ЯД(poison) 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 02.12.2019, 10:26
 
Ответить
СообщениеВсе пора на пенсию. скопипастил не от туда
и смотрю не туда %)
да еще [vba]
Код
If i > 0 Then
[/vba] %)
спс

Автор - Nic70y
Дата добавления - 02.12.2019 в 10:22
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отображение значения в ячейку из других листов (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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