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

Вход

Регистрация

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

 

= Мир MS Excel/Ссылки в выпадающем списке - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ссылки в выпадающем списке (Формулы/Formulas)
Ссылки в выпадающем списке
kostyan2638 Дата: Вторник, 14.07.2020, 15:12 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
День добрый,
Мог бы кто-нибудь написать макрос для следующей задачи:

при выборе необходимого пункта в выпадающем списке в колонке «Образец», выполнялось открытие необходимой ячейки на другом листе (в данном примере на «Схему»).
Просмотрел все ранее предложенные варианты, но они осуществляют ссылку лишь на необходимый лист, а не на конкретную ячейку.


Заранее спасибо!
К сообщению приложен файл: 6594373.xls(27.0 Kb)
 
Ответить
СообщениеДень добрый,
Мог бы кто-нибудь написать макрос для следующей задачи:

при выборе необходимого пункта в выпадающем списке в колонке «Образец», выполнялось открытие необходимой ячейки на другом листе (в данном примере на «Схему»).
Просмотрел все ранее предложенные варианты, но они осуществляют ссылку лишь на необходимый лист, а не на конкретную ячейку.


Заранее спасибо!

Автор - kostyan2638
Дата добавления - 14.07.2020 в 15:12
Pelena Дата: Вторник, 14.07.2020, 15:40 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16256
Репутация: 3520 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
При выборе любого значения из списка на одну и ту же ячейку?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
При выборе любого значения из списка на одну и ту же ячейку?

Автор - Pelena
Дата добавления - 14.07.2020 в 15:40
kostyan2638 Дата: Воскресенье, 19.07.2020, 22:27 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Да, мой вопрос был не точен.
В новом приложенном файле на втором листе указаны ячейки, на которые необходимо ссылаться.
То есть, выбираем в выпадающем списке необходимый пункт, он нас ссылает в соответствующую ячейку, указанную на втором листе.
К сообщению приложен файл: 0117896.xls(21.5 Kb)
 
Ответить
СообщениеPelena, Да, мой вопрос был не точен.
В новом приложенном файле на втором листе указаны ячейки, на которые необходимо ссылаться.
То есть, выбираем в выпадающем списке необходимый пункт, он нас ссылает в соответствующую ячейку, указанную на втором листе.

Автор - kostyan2638
Дата добавления - 19.07.2020 в 22:27
Nic70y Дата: Понедельник, 20.07.2020, 08:32 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 6355
Репутация: 1401 ±
Замечаний: 0% ±

ru13;10;03
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("c6:c65536")) Is Nothing Then
        u_1 = Target.Value
        u_2 = Application.Match("*" & u_1 & """", Sheets("Сусло ").Range("f:f"), 0)
        u_3 = Application.IsNumber(u_2)
        If u_3 Then
            Sheets("Сусло ").Select
            Sheets("Сусло ").Range("f" & u_2).Select
        End If
    End If
End Sub
[/vba]
К сообщению приложен файл: 3676885.xls(37.5 Kb)


Яндекс Деньги 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 20.07.2020, 08:32
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("c6:c65536")) Is Nothing Then
        u_1 = Target.Value
        u_2 = Application.Match("*" & u_1 & """", Sheets("Сусло ").Range("f:f"), 0)
        u_3 = Application.IsNumber(u_2)
        If u_3 Then
            Sheets("Сусло ").Select
            Sheets("Сусло ").Range("f" & u_2).Select
        End If
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 20.07.2020 в 08:32
krosav4ig Дата: Понедельник, 20.07.2020, 11:35 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2314
Репутация: 971 ±
Замечаний: 0% ±

Excel 2007,2010,2013
до кучи, вариант с UDF
[vba]
Код
Function x(R As Range) As Range
    Dim R1 As Range
    Set x = R
    With Application: .ScreenUpdating = 0: .EnableEvents = 0
    With Application.Caller
        On Error GoTo er
        Set R1 = ['Сусло '!F:F].Find(.Value, , xlValues, xlPart)
        .Hyperlinks.Delete
        .Hyperlinks.Add .Cells, "", R1.Address(, , , 1)
    End With
er: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Function
[/vba]
К сообщению приложен файл: 8250427.xls(38.5 Kb)


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

Сообщение отредактировал krosav4ig - Понедельник, 20.07.2020, 11:37
 
Ответить
Сообщениедо кучи, вариант с UDF
[vba]
Код
Function x(R As Range) As Range
    Dim R1 As Range
    Set x = R
    With Application: .ScreenUpdating = 0: .EnableEvents = 0
    With Application.Caller
        On Error GoTo er
        Set R1 = ['Сусло '!F:F].Find(.Value, , xlValues, xlPart)
        .Hyperlinks.Delete
        .Hyperlinks.Add .Cells, "", R1.Address(, , , 1)
    End With
er: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Function
[/vba]

Автор - krosav4ig
Дата добавления - 20.07.2020 в 11:35
kostyan2638 Дата: Понедельник, 20.07.2020, 15:29 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
krosav4ig, Nic70y, Pelena, всем спасибо.
 
Ответить
Сообщениеkrosav4ig, Nic70y, Pelena, всем спасибо.

Автор - kostyan2638
Дата добавления - 20.07.2020 в 15:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ссылки в выпадающем списке (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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