|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.12.2013, 20:34 | #1 |
Новичок
Джуниор
Регистрация: 06.12.2013
Сообщений: 2
|
Создание в ячейке всплывающего списка на основании выделяемого диапазона
Столкнулся с проблемой создания в ячейке всплывающего списка на основании выделяемого диапазона.
Предпологается использование двух процедур. Первая процедура GetUserRange() определяет с помощью выделения ячейки, в которых хранится список значений и передает этот список во вторую процедуру VALDAT(Rng), которая на основании этого списка создает всплывающий список в нужной ячейке. Проблема с кодом второй процедуры, при создании всплывающего списка выдается ошибка 1004. Если Вас не затруднит посмотрите в чем дело. Sub GetUserRange() Dim MyRng As String Dim UserRange As Range Dim Prompt As String Dim Title As String Prompt = "Select a range for the random numbers." Title = "Select a range" ' Display the Input Box On Error Resume Next Set UserRange = Application.InputBox( _ Prompt:=Prompt, _ Title:=Title, _ Default:=ActiveCell.Address, _ Type:=8) 'Range selection On Error GoTo 0 ' Was the Input Box canceled? If UserRange Is Nothing Then MsgBox "Canceled." Else MyRng = UserRange.Address End If Call VALDAT(MyRng) End Sub Sub VALDAT(Rng) Dim s As Integer s = ActiveCell.Row With Cells(s, 6).VALIDATION .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="=Rng" End With End Sub |
07.12.2013, 01:23 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
07.12.2013, 02:11 | #3 |
Новичок
Джуниор
Регистрация: 06.12.2013
Сообщений: 2
|
Проблема решена
Большое спасибо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задание диапазона в ячейке | sergey12 | Microsoft Office Access | 3 | 03.07.2012 21:44 |
Создание всплывающего окна при нажатии кнопки | MihOla | Microsoft Office Access | 0 | 11.11.2011 13:03 |
Экспорт выделяемого диапазона в графический файл | Эрнесто | Microsoft Office Excel | 8 | 02.07.2011 00:06 |
Создание файла на основании открытого | lecko | Microsoft Office Excel | 20 | 17.03.2011 12:53 |
Создание всплывающего окна | Nezaam | Общие вопросы Delphi | 4 | 31.01.2011 16:12 |