Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отображение данных в отдельной клетке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Отображение данных в отдельной клетке
anonimkaexcel Дата: Пятница, 17.04.2020, 12:37 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Есть календарь график. В каждый день я заношу результаты своей работы. Есть ли вариант сделать так, что при наведении на маленькую ячейку, не сидеть вчитываться, а чтобы вбитые данные отображались рядом на объединённых ячейках, словно на большом экране?
К сообщению приложен файл: 7747883.xls (31.0 Kb)


Сообщение отредактировал anonimkaexcel - Пятница, 17.04.2020, 13:32
 
Ответить
СообщениеЕсть календарь график. В каждый день я заношу результаты своей работы. Есть ли вариант сделать так, что при наведении на маленькую ячейку, не сидеть вчитываться, а чтобы вбитые данные отображались рядом на объединённых ячейках, словно на большом экране?

Автор - anonimkaexcel
Дата добавления - 17.04.2020 в 12:37
Pelena Дата: Пятница, 17.04.2020, 13:46 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19405
Репутация: 4555 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеМожет, попробовать Экранную лупу?

Автор - Pelena
Дата добавления - 17.04.2020 в 13:46
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
 
Ответить
СообщениеПопробуйте пощелкать правой кнопкой мыши в ячейках календаря
[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]

Автор - nilem
Дата добавления - 17.04.2020 в 15:33
_Boroda_ Дата: Пятница, 17.04.2020, 15:37 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16715
Репутация: 6504 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А у меня левой кнопкой :D
[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
 
Ответить
СообщениеА у меня левой кнопкой :D
[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]

Автор - _Boroda_
Дата добавления - 17.04.2020 в 15:37
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!