Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail



Ответ
 
Опции темы
Старый 20.09.2011, 09:57   #1
staniiislav
Участник клуба
 
Аватар для staniiislav
 
Регистрация: 16.04.2010
Адрес: Украина, г.Луганск
Сообщений: 695
Репутация: 90
Радость Выпадающий список с поиском

Доброго времени суток!
Есть такой вопросик, в примере есть выпадающий список (С2:С10), как можно сделать чтобы при выделения допустим С2, затем набрав на клавиатуре df, значение если оно уникальное, предлагать вставить это значение.
Такие манипуляции можно сделать с выпадающим списком.
Спасибо!
Вложения
Тип файла: rar список.rar (6.2 Кб, 43 просмотров)
staniiislav вне форума   Ответить с цитированием
Старый 20.09.2011, 10:21   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Адрес: Россия, Урал
Сообщений: 6,794
Репутация: 1220

icq: 5836318
skype: ExcelVBA.ru
По умолчанию

Поиском не пробовали воспользоваться?
Я вот им всегда пользуюсь - потому и на форум с вопросами обращаюсь крайне редко...

Выпадающий список с добавлением новых элементов
EducatedFool вне форума   Ответить с цитированием
Старый 20.09.2011, 17:24   #3
staniiislav
Участник клуба
 
Аватар для staniiislav
 
Регистрация: 16.04.2010
Адрес: Украина, г.Луганск
Сообщений: 695
Репутация: 90
Радость

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
Поиском не пробовали воспользоваться?
Я вот им всегда пользуюсь - потому и на форум с вопросами обращаюсь крайне редко...

Выпадающий список с добавлением новых элементов
Конечно пробовал. Это как раз мое первое действие. Но к сожаления я не нашел подобной темы (или решения данной проблемы). Может вам встречалась подобная тема? Поделитесь?

Последний раз редактировалось staniiislav; 20.09.2011 в 17:29.
staniiislav вне форума   Ответить с цитированием
Старый 20.09.2011, 17:28   #4
staniiislav
Участник клуба
 
Аватар для staniiislav
 
Регистрация: 16.04.2010
Адрес: Украина, г.Луганск
Сообщений: 695
Репутация: 90
Хорошо

Цитата:
Сообщение от staniiislav Посмотреть сообщение
Конечно пробовал. Это как раз мое первое действие. Но к сожаления я не нашел подобной тебя (или решения данной проблемы). Может вам встречалась подобная тема? Поделитесь?
Был не прав! НЕ все прочитал:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lReply As Long, i As Integer
Dim counter As Integer, MyName As String, NameRange As String

If Target.Cells.count > 1 Then Exit Sub
If Target.Address = "$D$2" Then
If IsEmpty(Target) Then Exit Sub
counter = Len(Target)
MyName = Left(Target, counter)
For i = 1 To Range("People").count
NameRange = Left(Range("People").Cells(i), counter)
If LCase(NameRange) = LCase(MyName) Then
Application.EnableEvents = False
Range("D2") = Range("People").Cells(i)
Application.EnableEvents = True
Exit For
End If
Next
If WorksheetFunction.CountIf(Range("People"), Target) = 0 Then
lReply = MsgBox("Добавить введенное имя " & _
Target & " в выпадающий список?", vbYesNo + vbQuestion)
If lReply = vbYes Then
Range("People").Cells(Range("People").Rows.count + 1, 1) = Target
Range("People").Sort Key1:=Range("A1"), _
Order1:=xlAscending, Header:=xlNo
Else
Target = ""
End If
End If
End If
End Sub

к примеру который предоставил EducatedFool
Спасибо большое EducatedFool!
staniiislav вне форума   Ответить с цитированием
Старый 20.09.2011, 17:58   #5
doober
Профессионал
 
Аватар для doober
 
Регистрация: 02.05.2009
Адрес: Одесса
Сообщений: 3,901
Репутация: 650

skype: d_ober1
По умолчанию

Цитата:
Сообщение от staniiislav Посмотреть сообщение
Конечно пробовал. Это как раз мое первое действие. Но к сожаления я не нашел подобной темы (или решения данной проблемы). Может вам встречалась подобная тема? Поделитесь?
А проверить тот макрос?
Он полность вам подходит.Я не поленился попробовал,все работает
Картинка с анимацией
__________________
Анализ,обработка данных Недорого
doober вне форума   Ответить с цитированием
Старый 20.09.2011, 18:11   #6
staniiislav
Участник клуба
 
Аватар для staniiislav
 
Регистрация: 16.04.2010
Адрес: Украина, г.Луганск
Сообщений: 695
Репутация: 90
Радость

[QUOTE=doober;879257]А проверить тот макрос?
Он полность вам подходит.Я не поленился попробовал,все работает
Картинка с анимацией
[/QUOTE

))) doober, мне если честно сказать туго дается ВБА... Почему сам не пойму, но всегда стараюсь добиться своей цели. Нет, я еще не проверял, сегодня вечером буду пытаться адаптировать этот макрос под свой пример ))) Надеюсь что-нибудь получиться )))
Но видимо по вашему замечанию, у меня уже буду проблемы с данным примером.
Завтра отпишусь, что получилось
staniiislav вне форума   Ответить с цитированием
Старый 22.09.2011, 09:15   #7
staniiislav
Участник клуба
 
Аватар для staniiislav
 
Регистрация: 16.04.2010
Адрес: Украина, г.Луганск
Сообщений: 695
Репутация: 90
По умолчанию

Чет мне сегодня не везет (((
Изображения
Тип файла: jpg planetaexcel.jpg (44.0 Кб, 62 просмотров)
staniiislav вне форума   Ответить с цитированием
Старый 22.09.2011, 09:38   #8
Hugo121
Профессионал
 
Регистрация: 11.05.2010
Сообщений: 4,939
Репутация: 449
По умолчанию

Сегодня (да и вчера вечером) так невезёт всем
__________________
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума   Ответить с цитированием
Старый 22.09.2011, 10:16   #9
doober
Профессионал
 
Аватар для doober
 
Регистрация: 02.05.2009
Адрес: Одесса
Сообщений: 3,901
Репутация: 650

skype: d_ober1
По умолчанию

Поменял в вашем коде адреса ячеек,и все работает
Вложения
Тип файла: rar список.rar (13.6 Кб, 176 просмотров)
__________________
Анализ,обработка данных Недорого
doober вне форума   Ответить с цитированием
Старый 22.09.2011, 11:50   #10
staniiislav
Участник клуба
 
Аватар для staniiislav
 
Регистрация: 16.04.2010
Адрес: Украина, г.Луганск
Сообщений: 695
Репутация: 90
По умолчанию

Цитата:
Сообщение от doober Посмотреть сообщение
Поменял в вашем коде адреса ячеек,и все работает
Спасибо doober, а как для диапазона ячеек этот код применить с2:с10? А не только в ячейку с2
staniiislav вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выпадающий список из БД KorPaEv PHP 7 08.08.2011 19:31
Выпадающий список Павел_Игоревич Помощь студентам 3 17.05.2011 23:29
Выпадающий список. 0479 Microsoft Office Access 2 03.10.2010 23:19
Выпадающий список tsergey Помощь студентам 2 24.01.2010 16:34
выпадающий список Toxa Microsoft Office Excel 2 23.04.2007 09:40




23:47.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
лучший хостинг
Выбираем лучший хостинг: рейтинг ТОП 10