Fråga : Tutorialen för VB 2010/kodifierar tar prov

Jag skulle något liknande för att börja att lära versionen 2010. Var är det bäst långt som ska startas?
Can som någon överför mig, anknyter? " klar "

Svar : Tutorialen för VB 2010/kodifierar tar prov

försök detta,

Det använder kolonn A endast, och det använda fyndet som snabbt finner, och borttagnings som macthing, ror (one or more) i OpenItaly

Fastafyndet kodifierar baseras på http://www.experts-exchange.com/A_29119.html

Jubel

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:

Privata underWorksheet_Change (ByVal uppsätta som mål som spänner),
    Dunkel ws som arbetssedeln
    Dunkel rng1 som spänner
    Dunkel rng2 som spänner
    Dunkel cel1 som spänner

    Om Application.Intersect (kolonner (”A”), uppsätta som mål), är ingenting går ut därefter suben

    Med applikation
        .ScreenUpdating = falskt
    Avsluta med

    Uppsättningen ws = täcker (”OpenItaly”)
    Uppsättning rng1 = ws. Spänna (ws. [a2], ws. Celler (Rows.Count, ”A”). Avsluta (xlUp))
    Uppsättning cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, som, är falska)
    Om inte cel1 är ingenting därefter
        Uppsättning rng2 = cel1
        strFirstAddress = cel1.Address
        Gör
            Uppsättning cel1 = rng1.FindNext (cel1)
            Uppsättning rng2 = union (rng2.EntireRow, cel1)
        Kretsa stundstrFirstAddress <> cel1.Address
    Avsluta om

    Om inte rng2 är ingenting därefter rng2.EntireRow.Delete
    Application.ScreenUpdating = True
 
Avsluta suben
Andra lösningar  
 
programming4us programming4us