Задание как мне кажется оч простое? но как решить не знаю Надо по нажатию на ячейки A1 или А8 производился расчет, сложения ячеек B1+B8 и выводилось результат где итог B16
Задание как мне кажется оч простое? но как решить не знаю Надо по нажатию на ячейки A1 или А8 производился расчет, сложения ячеек B1+B8 и выводилось результат где итог B16KISS_ARMY
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Row < 6 Then [b16] = ActiveCell + ActiveCell.Offset(7, 0) End If If ActiveCell.Row > 7 And ActiveCell.Row < 13 Then [b16] = ActiveCell + ActiveCell.Offset(-7, 0) End If End Sub
[/vba]
примерно так: [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Row < 6 Then [b16] = ActiveCell + ActiveCell.Offset(7, 0) End If If ActiveCell.Row > 7 And ActiveCell.Row < 13 Then [b16] = ActiveCell + ActiveCell.Offset(-7, 0) End If End Sub