Question : créer se laissent tomber vers le bas sur excellent par vba

bonjour, le

I veulent savoir créer se laissent tomber vers le bas sur excellent par le target= " _blank " de " http://office.microsoft.com/en-us/excel-help/create-a-drop-down-list-from-a-range-of-cells-HP005202215.aspx " de href= de like > le m/en-us/excel-help/create-a-drop-down-list-from-a-range-of-cells-HP005202215.aspx
But de http://office.microsoft.co que toutes les données sont de base de données, pas de excellent des cellules. aucune donnée n'excelle dessus des cellules est qui ce qui le perfered
and d'I également n'importe quel événement sur le vba quand j'ai changé laissent tomber vers le bas l'option ? comme le function

Thank d'a1_onclick vous !
Francis sZE class= de

Réponse : créer se laissent tomber vers le bas sur excellent par vba

Salut Francis,
vous pouvez archiver ceci par l'utilisation après code :
Tous vous devrez faire pour le faire que le travail est d'ajouter la référence à la bibliothèque des programmes résultants de Microsoft 3.x DAO
(LE RÉDACTEUR DE VBA >> USINE >> DES RÉFÉRENCES)
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 secondaire ()

    Faible DB comme DAO.Database, rst comme DAO.Recordset
    Faible chemin comme corde
    
    Faible wb comme cahier de travail
    Faible w1 comme feuille de travail
    Faible qry comme corde, navire de débarquement de chars comme corde
    Faible errer comme corde
    
    Application.DisplayAlerts = faux
    Application.ScreenUpdating = faux
    
    'Changer votre chemin
    chemin = « C:\Folder\Your.mdb »
    Placer DB = OpenDatabase (le chemin)

    Placer wb = ThisWorkbook
    Placer w1 = wb. Feuilles de travail (« Sheet1 »)

    'Changer le nom de champ et le nom de Tableau
    qry = « FieldWithData DISTINCT CHOISI de YourTable ;  »

    navire de débarquement de chars = ""
    
    Placer le rst = le db.OpenRecordset (qry)

    Avec le rst
        Si .EOF = rectifient et .BOF = rectifient alors
            .MoveFirst
            Faire jusqu'à .EOF
                navire de débarquement de chars = navire de débarquement de chars et. Champs (« FieldWithData »). Valeur et », « 
                .MoveNext
            Boucle
        Autrement
            'montrer l'erreur si l'ensemble de données est vide
            errent = MsgBox (« aucune donnée pour n'importer », vbOKOnly, « aucune donnée à l'importation »)
        Finir si
    Finir avec
    rst. Fin
    
    'Changer la gamme où vous voulez votre liste de validation
    Avec w1.Range (« A1 »). Validation
        . Suppression
        . Ajouter le type : =xlValidateList, AlertStyle : =xlValidAlertStop, opérateur : =xlBetween, Formula1 : = " = " et x
        .IgnoreBlank = rectifient
        .InCellDropdown = rectifient
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = « choisissent svp parmi la liste dropdown. »
        .ShowInput = rectifient
        .ShowError = rectifient
    Extrémité avec
    
Sous-marin d'extrémité

Worksheet_Change secondaire privé (cible de ByVal comme gamme)
'ceci courra votre code chaque fois que la valeur du champ de validation est changée
'Changer « $A$1 » en n'importe quelle autre gamme  
Si Target.Address = « $A$1 » puis
        'Faire quelque chose
    Finir si
Finir le sous-marin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us