Vraag : cre�ër daling neer uitblinken door vba

hallo, wil

I het weten hoe te om daling tot stand te brengen neer uitblinkt door vba
like http://office.microsoft.co m/en-us/excel-help/create-a-drop-down-list-from-a-range-of-cells-HP005202215.aspx
But alle gegevens van gegevensbestand zijn, niet van blink cellen uit. geen gegevens over blinken cellen uit die zijn wat I perfered
and ook om het even welke gebeurtenis over vba toen ik daling onderaan optie veranderde? als a1_onclick function

Thank u!
Francis sZE

Antwoord : cre�ër daling neer uitblinken door vba

Hallo Francis,
u kunt dit archiveren door na code te gebruiken:
Allen u zult moeten doen tot het het werk maken moet verwijzing naar de Bibliotheek van de Objecten van Microsoft toevoegen 3.x DAO
(VBA DE VERWIJZINGEN VAN DE HULPMIDDELEN >> VAN DE REDACTEUR >>)
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 ()

    Schemerige db als DAO.Database, rst als DAO.Recordset
    Schemerige weg als Koord
    
    Schemerige wb als Werkboek
    Schemerige w1 als Aantekenvel
    Schemerige qry als Koord, lst als Koord
    Schemerig vergis me als Koord
    
    Application.DisplayAlerts = Vals
    Application.ScreenUpdating = Vals
    
    'Verandering uw weg
    weg = „C:\Folder\Your.mdb“
    Vastgesteld db = OpenDatabase (weg)

    Vastgesteld wb = ThisWorkbook
    Reeks w1 = wb. Aantekenvellen („Sheet1“)

    'Het gebiedsnaam van de verandering en de naam van de Lijst
    qry = „UITGEZOCHTE VERSCHILLENDE FieldWithData VAN YourTable; “

    lst = ""
    
    Reeks rst = (qry) db.OpenRecordset

    Met rst
        Als .EOF = Waar en .BOF = Waar toen
            .MoveFirst
            Doe tot .EOF
                lst = lst &. Gebieden („FieldWithData“). Waarde &“, „
                .MoveNext
            Lijn
        Anders
            'toon fout als de dataset leeg is
            vergis me = MsgBox („Geen gegevens om“, vbOKOnly, „Geen in te voeren gegevens in te voeren“)
        Beëindig als
    Eind met
    rst. Sluit
    
    'Verandering de waaier waar u uw lijst van de Bevestiging wilt
    Met w1.Range („A1“). Bevestiging
        . Schrap
        . Voeg Type toe: =xlValidateList, AlertStyle: =xlValidAlertStop, Exploitant: =xlBetween, Formula1: = " = " & x
        .IgnoreBlank = Waar
        .InCellDropdown = Waar
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = „gelieve te selecteren uit dropdown lijst.“
        .ShowInput = Waar
        .ShowError = Waar
    Eind met
    
Sub van het eind

Privé SubWorksheet_Change (Doel ByVal als Waaier)
'dit zal uw code in werking stellen telkens als de waarde van bevestigingsgebied wordt veranderd
'Verandering „$A$1“ in een ander gamma  
Als Target.Address = „$A$1“ toen
        'Doe iets
    Beëindig als
Beëindig Sub
Andere oplossingen  
 
programming4us programming4us