Добрый день, форумчане. Подскажите, как код написать, пожалуйста. Задача: На "Лист 1" выделена какая-то ячейка (не первый столбец и не первая строка). допустим D4. Необходимо, чтобы на "листе 2" например в ячейке C3 выводилось значение того же столбца, но первой строки(выделенной ячейке в Лист1), а в ячейке допустим С4 выводилось значение той же строки, но первого столбца (выделенной ячейки в Лист1) Например, если в представленном примере я выделяю ячейку на "лист 1" D4, то на " лист 2" в ячейке С3 должно выводится "Ф", а в С4 должно выводится "Г". Работаем именно в Лист1, а с подставленными значениями в Лист2 будет выводится форма на печать. Сам файл большой, сделал простенький пример.Заранее СПАСИБО!!!
Добрый день, форумчане. Подскажите, как код написать, пожалуйста. Задача: На "Лист 1" выделена какая-то ячейка (не первый столбец и не первая строка). допустим D4. Необходимо, чтобы на "листе 2" например в ячейке C3 выводилось значение того же столбца, но первой строки(выделенной ячейке в Лист1), а в ячейке допустим С4 выводилось значение той же строки, но первого столбца (выделенной ячейки в Лист1) Например, если в представленном примере я выделяю ячейку на "лист 1" D4, то на " лист 2" в ячейке С3 должно выводится "Ф", а в С4 должно выводится "Г". Работаем именно в Лист1, а с подставленными значениями в Лист2 будет выводится форма на печать. Сам файл большой, сделал простенький пример.Заранее СПАСИБО!!!merzavec_78
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]
на событие (выделение) [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
Только, чтобы не было вылетов в дебаггер, если вдруг при вызове макроса окажется выбранным не диапазон, а какой-нибудь Drowing Object (рисунок, диаграмма и т.п.) не плохо бы либо обработчик ошибок включить, либо в начале проверить, что выбран диапазон[vba]
Код
If ActiveWindow.RangeSelection Is Nothing Then Exit Sub
[/vba]
Только, чтобы не было вылетов в дебаггер, если вдруг при вызове макроса окажется выбранным не диапазон, а какой-нибудь Drowing Object (рисунок, диаграмма и т.п.) не плохо бы либо обработчик ошибок включить, либо в начале проверить, что выбран диапазон[vba]
Код
If ActiveWindow.RangeSelection Is Nothing Then Exit Sub
А, чисто теоретически, если надо выбрать одновременно несколько ячеек в одной строке, можно ли добавить ещё переменных... Например А1, А2, А3 в ячейках C3, D3 и E3
А, чисто теоретически, если надо выбрать одновременно несколько ячеек в одной строке, можно ли добавить ещё переменных... Например А1, А2, А3 в ячейках C3, D3 и E3merzavec_78
Сообщение отредактировал merzavec_78 - Среда, 26.11.2025, 05:23
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
