Страницы: 1
RSS
Вставка формулы при изменении значения выпадающего списка
 
Помогите подправить макрос.
Есть ячейка, в ней выпадающий список. Хочу, чтобы при изменении значения из списка в этой же ячейке прописывалась формула =HYPERLINK со значением из списка.
Макрос в таком виде вешает Эксель
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then
    Exit Sub
    Else
    ActiveCell.Formula = "=HYPERLINK("""",""" & ActiveCell.Text & """)"
    End If
End Sub
 
Как Вы себе представляете в одной ячейке И значение (из вып. списка) И формулу? Лучше опишите саму ЗАДАЧУ, а не СПОСОБ, которым Вы пытаетесь ее решить. Да и вып.список в Вашем примере не рабочий
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then
        Exit Sub
    Else
        Application.EnableEvents = False
        Target.Formula = "=HYPERLINK("""",""" & Target.Text & """)"
    End If
    Application.EnableEvents = True
End Sub
Изменено: Sanja - 02.03.2017 12:53:28
Согласие есть продукт при полном непротивлении сторон
 
Спасибо, работает, как надо.
Смысл в использовании гиперссылок для подтягивания через формулы нужной информации, которая будет отображаться во всплывающем окошке.
Не подскажите, как сохранить начальное форматирование текста (bold) без отключения в глобальных настройках? При обновлении форматирование меняется на гиперссылку.
Страницы: 1
Наверх