Описание содержимого ячейки

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

Описание содержимого ячейки (Формулы/Formulas)

12345tn

Дата: Пятница, 16.12.2016, 13:55 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 115

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

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

2007

Здравствуйте!Подскажите, можно ли сделать так,что бы при нажатии на любую ячейку от А1 до А10 в ячейке А12 высвечивалось её числовое значение,а в ячейке В12 её описание с листа "ДАТА"-(как я сделала в ручную).Заранее благодарю.

К сообщению приложен файл: _EXCEL.xlsx (23.8 Kb)

Ответить

Manyasha

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

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

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

Сообщений: 2198

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

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

Excel 2010, 2016

12345tn, здравствуйте, так подойдет?
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
        lr = ThisWorkbook.Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
        Cells(12, 1) = Target.Value
        Cells(12, 2) = WorksheetFunction.VLookup(Cells(12, 1), Sheets(2).[a1].Resize(lr, 2), 2, 0)
    End If
End Sub

[/vba]
Для выделения ячейки цветом в а1:а10 добавила УФ.

К сообщению приложен файл: _EXCEL-1.xlsm (19.0 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

krosav4ig

Дата: Пятница, 16.12.2016, 14:17 | Сообщение № 3

Группа: Друзья

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

Сообщений: 2347

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

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

Excel 2007,2010,2013

Здравствуйте
У меня такой вариант
В A12 формула

Код

=ИНДЕКС(A1:A10;МЕДИАНА(0;ЯЧЕЙКА("строка");10))

в B12

Код

=ВПР(A12;ДАТА!$A$1:$J$10;2;)

В модуле листа
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Me.[A1:A10]) Is Nothing Then _
Me.[A12].Calculate
End Sub

[/vba]

К сообщению приложен файл: _EXCEL.xlsm (18.2 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 16.12.2016, 14:18

Ответить

Описание содержимого ячейки (Формулы/Formulas)

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