Questione : generare cadono giù su eccellono dal vba

ciao, il

I vuole sapere generare cade giù su eccelle dal target= " _blank " " di http://office.microsoft.com/en-us/excel-help/create-a-drop-down-list-from-a-range-of-cells-HP005202215.aspx " del href= di like > m/en-us/excel-help/create-a-drop-down-list-from-a-range-of-cells-HP005202215.aspx
But che di http://office.microsoft.co tutti i dati provengono da base di dati, non da eccelle le cellule. nessun dato sopra eccelle le cellule che è che cosa il perfered
and di I inoltre tutto l'evento sul vba quando sono cambiato cade giù l'opzione? come il function

Thank di a1_onclick voi!
Francis sZE class= del

Risposta : generare cadono giù su eccellono dal vba

Ciao Francis,
potete archivare questo usando dopo il codice:
Tutti dovrete fare per farlo che il lavoro è di aggiungere il riferimento alla biblioteca di oggetto di Microsoft 3.x DAO
(IL REDATTORE DI VBA >> LAVORA >> RIFERIMENTI)
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:

Update_List secondario ()

    Db fioco come DAO.Database, rst come DAO.Recordset
    Percorso fioco come stringa
    
    Wb fioco come libro di esercizi
    W1 fioco come manuale
    Qry fioco come stringa, lst come stringa
    Fioco errare come stringa
    
    Application.DisplayAlerts = falso
    Application.ScreenUpdating = falso
    
    'Cambiare il vostro percorso
    percorso = “C:\Folder\Your.mdb„
    Regolar db = OpenDatabase (percorso)

    Regolar wb = ThisWorkbook
    Regolar w1 = wb. Manuali (“Sheet1„)

    'Cambiare il nome di campo ed il nome della Tabella
    qry = “FieldWithData DISTINTO PRESCELTO da YourTable; „

    lst = ""
    
    Regolare il rst = db.OpenRecordset (qry)

    Con rst
        Se .EOF = allineano e .BOF = allora allineano
            .MoveFirst
            Fare fino a .EOF
                lst = lst &. Campi (“FieldWithData„). Valore &„, “
                .MoveNext
            Ciclo
        Altrimenti
            'mostrare l'errore se il gruppo di dati è vuoto
            erra = MsgBox (“nessun dati per non importare„, vbOKOnly, “dati all'importazione„)
        Concluder se
    Concluder con
    rst. Fine
    
    'Cambiare la gamma in cui volete la vostra lista di convalida
    Con w1.Range (“A1„). Convalida
        . Cancellazione
        . Aggiungere il tipo: =xlValidateList, AlertStyle: =xlValidAlertStop, operatore: =xlBetween, Formula1: = " = " & x
        .IgnoreBlank = allineano
        .InCellDropdown = allineano
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = “scelgono prego dal elenco a discesa.„
        .ShowInput = allineano
        .ShowError = allineano
    Estremità con
    
Sommergibile dell'estremità

Worksheet_Change secondario riservato (obiettivo di ByVal come gamma)
'questo farà funzionare il vostro codice ogni volta che il valore del campo di convalida è cambiato
'Cambiare “$A$1„ a qualunque altra gamma  
Se Target.Address = “$A$1„ allora
        'Fare qualcosa
    Concluder se
Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us