Взаимодействие данных с разных листов

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

merzavec_78

Дата: Вторник, 18.11.2025, 17:04 | Сообщение № 1

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

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

Сообщений: 1

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

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

2013

Добрый день, форумчане. Подскажите, как код написать, пожалуйста.
Задача: На "Лист 1" выделена какая-то ячейка (не первый столбец и не первая строка). допустим D4. Необходимо, чтобы на "листе 2" например в ячейке C3 выводилось значение того же столбца, но первой строки(выделенной ячейке в Лист1), а в ячейке допустим С4 выводилось значение той же строки, но первого столбца (выделенной ячейки в Лист1)
Например, если в представленном примере я выделяю ячейку на "лист 1" D4, то на " лист 2" в ячейке С3 должно выводится "Ф", а в С4 должно выводится "Г".
Работаем именно в Лист1, а с подставленными значениями в Лист2 будет выводится форма на печать.
Сам файл большой, сделал простенький пример.Заранее СПАСИБО!!!

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

Ответить

Nic70y

Дата: Вторник, 18.11.2025, 17:36 | Сообщение № 2

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

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

Сообщений: 9191

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

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

Excel 2010

на событие (выделение)
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Sheets("Лист2")
        .Range("c3") = Cells(1, Target.Column).Value
        .Range("c4") = Cells(Target.Row, 1).Value
    End With
End Sub

[/vba]на кнопку*
[vba]

Код

Sub u_18()
    With Selection
        a = Cells(1, .Column).Value
        b = Cells(.Row, 1).Value
    End With
    With Sheets("Лист2")
        .Range("c3") = a
        .Range("c4") = b
    End With
End Sub

[/vba]

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

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 18.11.2025, 17:37

Ответить

Взаимодействие данных с разных листов

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