Frage : verursachen fallen unten auf übertreffen durch vba

hallo, möchten

I können verursachen fallen unten auf übertreffen durch vba
like http://office.microsoft.co m/en-us/excel-help/create-a-drop-down-list-from-a-range-of-cells-HP005202215.aspx
But, das alle Daten von der Datenbank sind, nicht von übertreffen Zellen. keine Daten übertreffen an Zellen, die ist, was I perfered
and auch jedes mögliches Ereignis auf vba, als ich änderte, unten Wahl fallenlassen? wie a1_onclick function

Thank Sie!
Francis sZE

Antwort : verursachen fallen unten auf übertreffen durch vba

Hallo Francis,
Sie können dieses archivieren, indem Sie nach Code verwenden:
Alle müssen Sie tun, um, das ihn zu bilden, ist Arbeit, Hinweis auf Objekt-Bibliothek Microsoft-3.x DAO hinzuzufügen
(VBA HERAUSGEBER >> BEARBEITET >> HINWEISE)
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:
6:
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:

VorUpdate_List ()

    Schwaches DB als DAO.Database, rst als DAO.Recordset
    Schwacher Weg als Schnur
    
    Schwache WB als Arbeitsbuch
    Schwaches w1 als Arbeitsblatt
    Schwaches qry als Schnur, lst als Schnur
    Schwach als Schnur irren
    
    Application.DisplayAlerts = falsch
    Application.ScreenUpdating = falsch
    
    'Ihren Weg ändern
    Weg = „C:\Folder\Your.mdb“
    Einstellen DB = OpenDatabase (Weg)

    Einstellen WB = ThisWorkbook
    Einstellen w1 = WB. Arbeitsblätter („Sheet1“)

    'Feldnamen und Tabellennamen ändern
    qry = „AUSERWÄHLTES EINDEUTIGES FieldWithData VON YourTable; “

    lst = ""
    
    Das rst = db.OpenRecordset (qry) einstellen

    Mit rst
        Wenn .EOF = ausrichten und .BOF = ausrichten dann nn
            .MoveFirst
            Bis .EOF tun
                lst = lst u. Felder („FieldWithData“). Wert u.“, „
                .MoveNext
            Schleife
        Sonst
            'Störung zeigen, wenn Datensatz leer ist
            = irren MsgBox („keine Daten, zum, vbOKOnly, „keine Daten zum Import“ zu importieren“)
        Beenden wenn
    Mit beenden
    rst. Abschluss
    
    'Die Strecke ändern, in der Sie Ihre Gültigkeitserklärungliste wünschen
    Mit w1.Range („A1“). Gültigkeitserklärung
        . Löschung
        . Art addieren: =xlValidateList, AlertStyle: =xlValidAlertStop, Operator: =xlBetween, Formula1: = " = " u. x
        .IgnoreBlank = ausrichten en
        .InCellDropdown = ausrichten en
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = „vorwählen bitte von der Drop-Down-Liste.“
        .ShowInput = ausrichten en
        .ShowError = ausrichten en
    Ende mit
    
Enden-Unterseeboot

Privates VorWorksheet_Change (ByVal Ziel als Strecke)
'dieses laufen lässt Ihren Code, jedes Mal wenn Wert des Gültigkeitserklärungfeldes geändert
'„$A$1“ zu jeder möglicher anderen Strecke ändern  
Wenn Target.Address = „$A$1“ dann
        'Etwas tun
    Beenden wenn
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us