Cuestión : crear caen abajo en sobresalen por vba

hola, el

I quiere saber crear cae abajo en sobresale por el target= " _blank " de " http://office.microsoft.com/en-us/excel-help/create-a-drop-down-list-from-a-range-of-cells-HP005202215.aspx " del href= del like > el m/en-us/excel-help/create-a-drop-down-list-from-a-range-of-cells-HP005202215.aspx
But de http://office.microsoft.co que todos los datos son de base de datos, no de sobresale las células. ¿ningunos datos encendido sobresalen las células que son lo que cae el perfered
and de I también cualquier acontecimiento en vba cuando cambié abajo la opción? ¡como el function

Thank de a1_onclick usted!
Francis sZE class= del

Respuesta : crear caen abajo en sobresalen por vba

Hola Francisco,
usted puede archivar esto usando después de código:
Todos usted tendrá que hacer para hacerlo que el trabajo es agregar referencia a la biblioteca objeto de Microsoft 3.x DAO
(EL REDACTOR DE VBA >> FILETEA >> LAS REFERENCIAS)
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 secundario ()

    DB dévil como DAO.Database, rst como DAO.Recordset
    Trayectoria dévil como secuencia
    
    Wb dévil como libro de trabajo
    W1 dévil como hoja de trabajo
    Qry dévil como secuencia, lst como secuencia
    Dévil errar como secuencia
    
    Application.DisplayAlerts = falso
    Application.ScreenUpdating = falso
    
    'Cambiar su trayectoria
    trayectoria = “C:\Folder\Your.mdb”
    Fijar DB = OpenDatabase (la trayectoria)

    Fijar wb = ThisWorkbook
    Fijar w1 = wb. Hojas de trabajo (“Sheet1”)

    'Cambiar el nombre de campo y el nombre de la tabla
    qry = “FieldWithData DISTINTO SELECTO de YourTable; ”

    lst = ""
    
    Fijar el rst = db.OpenRecordset (qry)

    Con el rst
        Si .EOF = verdad y .BOF = entonces verdad
            .MoveFirst
            Hacer hasta .EOF
                lst = lst y. Campos (“FieldWithData”). Valor y”, “
                .MoveNext
            Lazo
        
            'demostrar el error si el grupo de datos es vacío
            yerra = MsgBox (“ningunos datos para no importar”, vbOKOnly, “ningún dato a la importación”)
        Terminar si
    Terminar con
    rst. Cierre
    
    'Cambiar la gama donde usted quiere su lista de la validación
    Con w1.Range (“A1”). Validación
        . Cancelación
        . Agregar el tipo: =xlValidateList, AlertStyle: =xlValidAlertStop, operador: =xlBetween, Formula1: = " = " y x
        .IgnoreBlank = verdad
        .InCellDropdown = verdad
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = “seleccionan por favor de lista dropdown.”
        .ShowInput = verdad
        .ShowError = verdad
    Extremo con
    
Submarino del extremo

Worksheet_Change secundario privado (blanco de ByVal como gama)
'esto funcionará con su código cada vez que el valor del campo de la validación se cambia
'Cambiar “$A$1” a cualquier otra gama  
Si Target.Address = “$A$1” entonces
        'Hacer algo
    Terminar si
Terminar el submarino
Otras soluciones  
 
programming4us programming4us