Вопрос : создайтесь упадите вниз на первенствуйте vba

hi,

I хочет суметь как создаться падает вниз на первенствует target= " _blank " " http://office.microsoft.com/en-us/excel-help/create-a-drop-down-list-from-a-range-of-cells-HP005202215.aspx " href= like > m/en-us/excel-help/create-a-drop-down-list-from-a-range-of-cells-HP005202215.aspx
But http://office.microsoft.co все, котор данные от базы данных, не от первенствует клетки. никакие данные дальше не первенствуют клетки perfered
and I также любой случай на vba когда я изменил падает вниз вариант? как function

Thank a1_onclick вы!
Francis sZE class=

Ответ : создайтесь упадите вниз на первенствуйте vba

Hi Фрэнсис,
вы можете поместить это в архив путем использование после Кодего:
Все, котор вы сделать для того чтобы сделать его работа должна добавить справку к библиотеке объектных модулей Майкрософт 3.x DAO
(РЕДАКТОР VBA >> ОБОРУДУЕТ >> СПРАВКИ)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

Sub Update_List ()

    Тусклый db как DAO.Database, rst как DAO.Recordset
    Тусклый курс как шнур
    
    Тусклый wb как Workbook
    Тусклое w1 как рабочий лист
    Тусклое qry как шнур, lst как шнур
    Тускло заблуждайтесь как шнур
    
    Application.DisplayAlerts = ложно
    Application.ScreenUpdating = ложно
    
    'Измените ваш курс
    курс = «C:\Folder\Your.mdb»
    Установите db = OpenDatabase (курс)

    Установите wb = ThisWorkbook
    Установите w1 = wb. Рабочий лист («Sheet1»)

    'Измените название поля и имя таблицы
    qry = «ОТБОРНОЕ ОПРЕДЕЛЕННОЕ FieldWithData ОТ YourTable; »

    lst = ""
    
    Установите rst = db.OpenRecordset (qry)

    С rst
        Если .EOF = True и, то .BOF = True после этого
            .MoveFirst
            Не сделать до .EOF
                lst = lst &. Поля («FieldWithData»). Значение &», «
                .MoveNext
            Петля
        Еще
            'покажите ошибку если dataset пуст
            заблуждается = MsgBox («никакие данные для того чтобы не импортировать», vbOKOnly, «никакие данные к ввозу»)
        Закончитесь если
    Закончитесь с
    rst. Конец
    
    'Измените ряд где вы хотите ваш список утверждения
    С w1.Range («A1»). Утверждение
        . Delete
        . Добавьте тип: =xlValidateList, AlertStyle: =xlValidAlertStop, оператор: =xlBetween, Formula1: = " = " & x
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = «пожалуйста выбирают от списка падающего вниз.»
        .ShowInput = True
        .ShowError = True
    Конец с
    
Подводная лодка конца

Приватное Sub Worksheet_Change (цель ByVal как ряд)
'это побежит ваше Кодий изменено каждое значение времени, котор поля утверждения
'Измените «$A$1» к любому другому ряду  
Если Target.Address = «$A$1» после этого
        'Сделайте что-то
    Закончитесь если
Закончите подводную лодку
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us