Отображение данных в отдельной клетке

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отображение данных в отдельной клетке (Иное/Other)

anonimkaexcel

Дата: Пятница, 17.04.2020, 12:37 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 13

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

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

Excel 2016

Есть календарь график. В каждый день я заношу результаты своей работы. Есть ли вариант сделать так, что при наведении на маленькую ячейку, не сидеть вчитываться, а чтобы вбитые данные отображались рядом на объединённых ячейках, словно на большом экране?

К сообщению приложен файл: 7747883.xls (31.0 Kb)

Сообщение отредактировал anonimkaexcel - Пятница, 17.04.2020, 13:32

Ответить

Pelena

Дата: Пятница, 17.04.2020, 13:46 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

Может, попробовать Экранную лупу?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

nilem

Дата: Пятница, 17.04.2020, 15:33 | Сообщение № 3

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

Попробуйте пощелкать правой кнопкой мыши в ячейках календаря
[vba]

Код

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Row > 5 Then Exit Sub

Cancel = True
Range("B11").Value = Target.Value
End Sub

[/vba]

К сообщению приложен файл: 2628341.xls (36.5 Kb)

Яндекс.Деньги 4100159601573

Ответить

_Boroda_

Дата: Пятница, 17.04.2020, 15:37 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

А у меня левой кнопкой

[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

[/vba]

К сообщению приложен файл: 7747883_1.xls (37.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отображение данных в отдельной клетке (Иное/Other)

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