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

Вход

Регистрация

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

 

= Мир MS Excel/Выбор значения из всплывающего окна - Мир MS Excel

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

Добрый день уважаемые форумчане!!!
Поставил перед собой задачу с которой самостоятельно справиться не могу :( ((( (как оказалось моих школьных знаний Excel не хватает %) ).
Суть такая, при нажатии на ячейку необходимо, что бы вылезало дополнительное окно с возможностью выбора значения (в моем случае сектора хранения) и при выборе значения, оно появляется в изначальной ячейке.
Заранее огромное спасибо!!!
 
Ответить
СообщениеДобрый день уважаемые форумчане!!!
Поставил перед собой задачу с которой самостоятельно справиться не могу :( ((( (как оказалось моих школьных знаний Excel не хватает %) ).
Суть такая, при нажатии на ячейку необходимо, что бы вылезало дополнительное окно с возможностью выбора значения (в моем случае сектора хранения) и при выборе значения, оно появляется в изначальной ячейке.
Заранее огромное спасибо!!!

Автор - alexander1988
Дата добавления - 19.02.2021 в 08:40
Anis625 Дата: Пятница, 19.02.2021, 08:45 | Сообщение № 2
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
alexander1988,
пример бы
 
Ответить
Сообщениеalexander1988,
пример бы

Автор - Anis625
Дата добавления - 19.02.2021 в 08:45
Nic70y Дата: Пятница, 19.02.2021, 10:19 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 8761
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
лист
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    u = Target.Column
    v = Target.Row
    If u = 4 And v > 1 Then UserForm1.Show
End Sub
[/vba]
юзерформа
[vba]
Код
Private Sub UserForm_Initialize()
    aa = Sheets("Сектор хранения").Cells(Rows.Count, "a").End(xlUp).Row
    If aa < 3 Then aa = 3
    ComboBox1.List = Sheets("Сектор хранения").Range("a2:a" & aa).Value
End Sub
Private Sub CommandButton1_Click()
    Selection = ComboBox1.Value
End Sub
[/vba]
допилите под свои нужды
К сообщению приложен файл: 800.xlsm (17.9 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 19.02.2021, 10:19
 
Ответить
Сообщениелист
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    u = Target.Column
    v = Target.Row
    If u = 4 And v > 1 Then UserForm1.Show
End Sub
[/vba]
юзерформа
[vba]
Код
Private Sub UserForm_Initialize()
    aa = Sheets("Сектор хранения").Cells(Rows.Count, "a").End(xlUp).Row
    If aa < 3 Then aa = 3
    ComboBox1.List = Sheets("Сектор хранения").Range("a2:a" & aa).Value
End Sub
Private Sub CommandButton1_Click()
    Selection = ComboBox1.Value
End Sub
[/vba]
допилите под свои нужды

Автор - Nic70y
Дата добавления - 19.02.2021 в 10:19
alexander1988 Дата: Пятница, 19.02.2021, 16:06 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Не ожидал такой молниеносной реакции, буду пробовать.

UPD:
Оригинальный вариант предложил Nic70y, но он мало чем отличается от стандартного выбора по списку.
Я немного более сложное задумал, только вот воплотить не могу.
При нажатии на ячейку необходимо, что бы вылетало окно с уже имеющейся схемой хранением и уже в ней выбираю необходимый сектор.
К сообщению приложен файл: _2021.xlsx (311.2 Kb)


Сообщение отредактировал alexander1988 - Пятница, 19.02.2021, 16:50
 
Ответить
СообщениеНе ожидал такой молниеносной реакции, буду пробовать.

UPD:
Оригинальный вариант предложил Nic70y, но он мало чем отличается от стандартного выбора по списку.
Я немного более сложное задумал, только вот воплотить не могу.
При нажатии на ячейку необходимо, что бы вылетало окно с уже имеющейся схемой хранением и уже в ней выбираю необходимый сектор.

Автор - alexander1988
Дата добавления - 19.02.2021 в 16:06
alexander1988 Дата: Пятница, 05.03.2021, 21:11 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Больше ни кто не сможет мне помочь????
 
Ответить
СообщениеБольше ни кто не сможет мне помочь????

Автор - alexander1988
Дата добавления - 05.03.2021 в 21:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбор значения из всплывающего окна (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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