Cuestión : Muestras de la clase particular/del código de VB 2010

Quisiera comenzar a aprender la versión 2010. ¿Dónde está la mejor manera de comenzar? ¿el
Can alguien me envía acoplamientos? class= del

Respuesta : Muestras de la clase particular/del código de VB 2010

intentar esto,

Utiliza la columna A solamente, y el hallazgo usado para encontrar y para suprimir rápidamente las filas macthing (uno o más) en OpenItaly

El código rápido del hallazgo se basa en http://www.experts-exchange.com/A_29119.html

Aclamaciones

Dave
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:

Worksheet_Change secundario privado (blanco de ByVal como gama)
    WS dévil como hoja de trabajo
    Rng1 dévil como gama
    Rng2 dévil como gama
    Cel1 dévil como gama

    Si Application.Intersect (columnas (“A”), blanco) no es nada entonces salir el submarino

    Con el uso
        .ScreenUpdating = falso
    Extremo con

    Fijar WS = las hojas (“OpenItaly”)
    Fijar rng1 = WS. Gama (WS. [a2], WS. Células (Rows.Count, “A”). Extremo (xlUp))
    Fijar cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, falsos)
    Si no cel1 entonces no es nada
        Fijar rng2 = cel1
        strFirstAddress = cel1.Address
        Hacer
            Fijar cel1 = rng1.FindNext (cel1)
            Fijar rng2 = la unión (rng2.EntireRow, cel1)
        Colocar mientras que los strFirstAddress <> cel1.Address
    Terminar si

    Si no rng2 no es nada entonces rng2.EntireRow.Delete
    Application.ScreenUpdating = verdad
 
Submarino del extremo
Otras soluciones  
 
programming4us programming4us