Есть календарь график. В каждый день я заношу результаты своей работы. Есть ли вариант сделать так, что при наведении на маленькую ячейку, не сидеть вчитываться, а чтобы вбитые данные отображались рядом на объединённых ячейках, словно на большом экране?
Есть календарь график. В каждый день я заношу результаты своей работы. Есть ли вариант сделать так, что при наведении на маленькую ячейку, не сидеть вчитываться, а чтобы вбитые данные отображались рядом на объединённых ячейках, словно на большом экране?anonimkaexcel
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set z_ = Target(1) ' If z_ = "" Then Exit Sub r0_ = 4 nr_ = Cells(Rows.Count, 1).End(3).Row - r0_ + 1 nc_ = Cells(r0_ - 1, Columns.Count).End(1).Column If Not Intersect(z_, Cells(r0_, 1).Resize(nr_, nc_)) Is Nothing Then Cells(11, 2) = z_.Value Else Cells(11, 2) = "" End If End Sub
[/vba]
А у меня левой кнопкой [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set z_ = Target(1) ' If z_ = "" Then Exit Sub r0_ = 4 nr_ = Cells(Rows.Count, 1).End(3).Row - r0_ + 1 nc_ = Cells(r0_ - 1, Columns.Count).End(1).Column If Not Intersect(z_, Cells(r0_, 1).Resize(nr_, nc_)) Is Nothing Then Cells(11, 2) = z_.Value Else Cells(11, 2) = "" End If End Sub