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

Вход

Регистрация

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

 

= Мир MS Excel/Как показать значение ячейки, соседнее с найденным - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как показать значение ячейки, соседнее с найденным (Формулы/Formulas)
Как показать значение ячейки, соседнее с найденным
МПЕ69 Дата: Пятница, 13.09.2019, 11:18 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго дня !

Долго бьюсь над решением такой проблемы.
Есть книга из многих листов. На каждой странице (кроме первой - Сроки и долги) в ячейке H2 вычисляется дата. Cоседняя с ней ячейка I2 - текстовое значение (название страны).
Первая страница книги Сроки и долги - страница результата. На ней в ячейке D3 вычисляется минимальное значение даты из выбранных ячеек H2 со всех листов. А в ячейке E3 первой страницы должно находиться соответствующее этой минимальной выбранной из всех дат со всех листов (ячейка H2) текстовое значение из соседней с ней ячейки I2.
Вот ЭТО значение и нужно вывести на первую страницу в ячейку Е3. Макет книги прилагаю.

Оператор ЕСЛИ не подходит: листов много.
Благодарю всех за участие !
К сообщению приложен файл: 5197815.xls (73.0 Kb)


Сообщение отредактировал МПЕ69 - Пятница, 13.09.2019, 11:44
 
Ответить
СообщениеДоброго дня !

Долго бьюсь над решением такой проблемы.
Есть книга из многих листов. На каждой странице (кроме первой - Сроки и долги) в ячейке H2 вычисляется дата. Cоседняя с ней ячейка I2 - текстовое значение (название страны).
Первая страница книги Сроки и долги - страница результата. На ней в ячейке D3 вычисляется минимальное значение даты из выбранных ячеек H2 со всех листов. А в ячейке E3 первой страницы должно находиться соответствующее этой минимальной выбранной из всех дат со всех листов (ячейка H2) текстовое значение из соседней с ней ячейки I2.
Вот ЭТО значение и нужно вывести на первую страницу в ячейку Е3. Макет книги прилагаю.

Оператор ЕСЛИ не подходит: листов много.
Благодарю всех за участие !

Автор - МПЕ69
Дата добавления - 13.09.2019 в 11:18
Nic70y Дата: Пятница, 13.09.2019, 11:20 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8712
Репутация: 2262 ±
Замечаний: 0% ±

Excel 2010
Макет книги прилагаю
Кругом обман!
Даже в интернете %)


ЮMoney 41001841029809
 
Ответить
Сообщение
Макет книги прилагаю
Кругом обман!
Даже в интернете %)

Автор - Nic70y
Дата добавления - 13.09.2019 в 11:20
МПЕ69 Дата: Пятница, 13.09.2019, 11:20 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Сама книга
К сообщению приложен файл: 6556336.xls (73.0 Kb)
 
Ответить
СообщениеСама книга

Автор - МПЕ69
Дата добавления - 13.09.2019 в 11:20
bigor Дата: Пятница, 13.09.2019, 11:21 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1075
Репутация: 205 ±
Замечаний: 0% ±

нет
Добрый день!

Макет потеряли
 
Ответить
СообщениеДобрый день!

Макет потеряли

Автор - bigor
Дата добавления - 13.09.2019 в 11:21
МПЕ69 Дата: Пятница, 13.09.2019, 11:22 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
всё есть
 
Ответить
Сообщениевсё есть

Автор - МПЕ69
Дата добавления - 13.09.2019 в 11:22
Nic70y Дата: Пятница, 13.09.2019, 12:02 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8712
Репутация: 2262 ±
Замечаний: 0% ±

Excel 2010
как-то так наскоряк:
[vba]
Код
Sub U_742()
    Cnt = 0
    u_3 = 73000
    u_4 = Sheets(2).Name
    For Elem = 2 To Sheets.Count
        u_1 = Sheets(Elem).Name
        u_2 = Sheets(u_1).Range("h2").Value
        If u_2 < u_3 Then
            u_3 = u_2
            u_4 = u_1
        End If
    Cnt = Cnt + 1
    Next Elem
    Range("d3") = u_3
    Range("e3") = u_4
End Sub
[/vba]
К сообщению приложен файл: 7777-1-.xls (83.0 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 13.09.2019, 12:08
 
Ответить
Сообщениекак-то так наскоряк:
[vba]
Код
Sub U_742()
    Cnt = 0
    u_3 = 73000
    u_4 = Sheets(2).Name
    For Elem = 2 To Sheets.Count
        u_1 = Sheets(Elem).Name
        u_2 = Sheets(u_1).Range("h2").Value
        If u_2 < u_3 Then
            u_3 = u_2
            u_4 = u_1
        End If
    Cnt = Cnt + 1
    Next Elem
    Range("d3") = u_3
    Range("e3") = u_4
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 13.09.2019 в 12:02
МПЕ69 Дата: Пятница, 13.09.2019, 12:10 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Благодарю вас ! Т.е. обязательно макрос должен быть ? Одной формулой никак ?
 
Ответить
СообщениеБлагодарю вас ! Т.е. обязательно макрос должен быть ? Одной формулой никак ?

Автор - МПЕ69
Дата добавления - 13.09.2019 в 12:10
Nic70y Дата: Пятница, 13.09.2019, 12:13 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 8712
Репутация: 2262 ±
Замечаний: 0% ±

Excel 2010
формулой никак ?
как-то можно, но
листов много
смущает,
думаю макрос все же лучше (но не настаиваю)


ЮMoney 41001841029809
 
Ответить
Сообщение
формулой никак ?
как-то можно, но
листов много
смущает,
думаю макрос все же лучше (но не настаиваю)

Автор - Nic70y
Дата добавления - 13.09.2019 в 12:13
МПЕ69 Дата: Пятница, 13.09.2019, 12:17 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Я не владею макросами... И как это вставить в рабочую книгу... Листов штук 25


Сообщение отредактировал МПЕ69 - Пятница, 13.09.2019, 12:18
 
Ответить
СообщениеЯ не владею макросами... И как это вставить в рабочую книгу... Листов штук 25

Автор - МПЕ69
Дата добавления - 13.09.2019 в 12:17
Nic70y Дата: Пятница, 13.09.2019, 12:30 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 8712
Репутация: 2262 ±
Замечаний: 0% ±

Excel 2010
как это вставить

Alt+F11

в появившийся модуль вставить макрос
К сообщению приложен файл: 2304342.gif (25.6 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 13.09.2019, 12:30
 
Ответить
Сообщение
как это вставить

Alt+F11

в появившийся модуль вставить макрос

Автор - Nic70y
Дата добавления - 13.09.2019 в 12:30
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как показать значение ячейки, соседнее с найденным (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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