Excel подстановка данных из одной ячейки, исходя из расположения курсора.

попробуй спросить у ChadGPT, там есть бесплатные запросы

Добрый вечер! В Excel можно реализовать подобное поведение с помощью VBA (Visual Basic for Applications). К сожалению, стандартные функции Excel не позволяют изменять значения в одной ячейке в зависимости от того, на какую ячейку вы наводите курсор. Однако с помощью VBA можно создать макрос, который будет выполнять вашу задачу.

Вот шаги, как это сделать:

## Шаг 1: Открытие редактора VBA

1. Откройте Excel.
2. Нажмите `Alt + F11`, чтобы открыть редактор VBA.
3. В редакторе VBA найдите ваше рабочее пространство в левой части окна (обычно называется "VBAProject (ваш_файл.xlsx)").
4. Дважды щелкните на "Лист1" (или тот лист, на котором вы хотите применить макрос).

## Шаг 2: Вставка кода

Скопируйте и вставьте следующий код в окно кода:

```vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rowNum As Long
If Not Intersect(Target, Me.Rows(7)) Is Nothing Then
rowNum = 7
ElseIf Not Intersect(Target, Me.Rows(6)) Is Nothing Then
rowNum = 6
ElseIf Not Intersect(Target, Me.Rows(5)) Is Nothing Then
rowNum = 5
ElseIf Not Intersect(Target, Me.Rows(4)) Is Nothing Then
rowNum = 4
ElseIf Not Intersect(Target, Me.Rows(3)) Is Nothing Then
rowNum = 3
ElseIf Not Intersect(Target, Me.Rows(2)) Is Nothing Then
rowNum = 2
Else
Exit Sub
End If

' Суммируем значения в ячейках D и E выбранной строки и выводим в E2
Me.Range("E2").Value = Me.Cells(rowNum, "D").Value + Me.Cells(rowNum, "E").Value
End Sub
```

## Шаг 3: Сохранение и тестирование

1. Закройте редактор VBA, нажав `Alt + Q` или просто закройте окно.
2. Вернитесь в Excel и сохраните файл в формате, поддерживающем макросы, например, `.xlsm`.
3. Теперь, когда вы будете щелкать на ячейки в строках 2-7, в ячейке E2 будет отображаться сумма значений из соответствующих ячеек D и E.

## Важно

- Убедитесь, что в вашем Excel включены макросы. Если они отключены, код не будет работать.
- Если вы хотите, чтобы код работал только для определенных строк, вы можете изменить условия в коде.

Теперь вы сможете получать сумму значений в ячейке E2 в зависимости от того, на какую ячейку вы наведете курсор. Если у вас возникнут дополнительные вопросы, не стесняйтесь спрашивать!

Здравствуйте! В Excel можно реализовать желаемое поведение с помощью макроса на VBA. Вот как это можно сделать:

1. Нажмите `Alt + F11`, чтобы открыть редактор VBA.
2. В редакторе найдите ваш лист в проекте (обычно это `Sheet1` или другой лист, на котором вы работаете).
3. Дважды щелкните на название листа, чтобы открыть окно кода для этого листа.
4. Вставьте следующий код:

```vba

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Not Intersect(Target, Me.Range("B6:E9")) Is Nothing Then 
        Dim rowNumber As Long 
        rowNumber = Target.Row 
        If rowNumber >= 6 And rowNumber <= 9 Then 
            Me.Range("E2").Value = Me.Cells(rowNumber, 4).Value + Me.Cells(rowNumber, 5).Value 
        End If 
    End If 
End Sub 
 

```

5. Закройте редактор VBA и вернитесь в Excel.

Теперь, когда вы выбираете любую ячейку в диапазоне `B6:E9`, в ячейке `E2` будет отображаться сумма значений в колонках `D` и `E` для соответствующей строки.

Пожалуйста, проверьте, работает ли это как вам нужно!

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Not Intersect(Target, Me.Range("B6:E3005")) Is Nothing Then 
        Dim rowNumber As Long 
        rowNumber = Target.Row 
        If rowNumber >= 6 And rowNumber <= 3005 Then 
            Me.Range("E2").Value = Me.Cells(rowNumber, 4).Value + Me.Cells(rowNumber, 5).Value 
        End If 
    End If 
End Sub 
 

И на кой чёрт нужно применять макросы, ломающие нормальную работу Excel'я и которые могут привести к падению программы, если можно просто и быстро подсчитать суммы сразу по всем строкам ?