Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 06.12.2007, 13:08   #1
agatos
 
Регистрация: 06.12.2007
Сообщений: 2
По умолчанию Select в Excel

Добрый день! Такая проблема. Есть Excel документ, а в нём 2 таблицы.
В первой таблице стоит цифра 5 в А4 и такие же параметры стоят во второй таблице тоже 5 в А4. Во второй таблице лист с разными цифрами диапазон B2-B11. Хочу сделать в первой таблице Drop-Down меню, чтобы там стояли все цифры, которые похожи на А4. Если я пишу вместо 5 в А4 например 4, то должны быть выбраны все четвёрки из второй таблицы (B2-B11) и в DropDown Menu показаны. Как написать select или что вообще делать?
Спасибо за ответ!
agatos вне форума
Старый 07.12.2007, 08:07   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Не совсем все ясно, но предполагаю, что нужно создать DropDown меню (неизвестно в какой ячейке) из диапазона B2:B11 на листе 2, из значений, совпадающих со значением в ячейке A4 листа 1.
Пусть в ячейке B2 листа 1 будет наше DropDown меню. Тогда:

Sub qq()
Dim i As Integer
Dim MyString As String
For i = 2 To 11
If Sheets("Лист2").Cells(i, 2) = Range("A4") Then
MyString = MyString & Sheets("Лист2").Cells(i, 2)
If i < 11 Then MyString = MyString & ","
End If
Next
Range("B2").Select
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=MyString
.InCellDropdown = True
End With
End Sub

Обратите внимание, что получится значение типа String.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 07.12.2007 в 09:49. Причина: Добавлено.
SAS888 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проблемы с select или со мной... smoke888 JavaScript, Ajax 2 23.09.2008 19:02
html тэг select Рустам HTML и CSS 3 08.01.2008 13:27
Передача значения в <select></select> kkkggg Gamedev - cоздание игр: Unity, OpenGL, DirectX 1 06.09.2007 00:26
как из select возвратить выбранное значение? micaell PHP 3 05.01.2007 23:05