Vraag : Het leerprogramma/de codesteekproeven van VB 2010

Ik zou willen beginnen lerend de versie van 2010. Waar is de beste manier te beginnen?
Can iemand verzendt me verbindingen?

Antwoord : Het leerprogramma/de codesteekproeven van VB 2010

probeer dit,

Het gebruikt kolom A slechts, en gebruikt vind om macthing rijen (één of meer) in OpenItaly snel te vinden en te schrappen

De snelle vondstcode is gebaseerd op http://www.experts-exchange.com/A_29119.html

Juicht toe

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:

Privé SubWorksheet_Change (Doel ByVal als Waaier)
    Schemerige ws als Aantekenvel
    Schemerige rng1 als Waaier
    Schemerige rng2 als Waaier
    Schemerige cel1 als Waaier

    Als is Application.Intersect (Kolommen („A“), Doel) niets toen ga Sub weg

    Met Toepassing
        .ScreenUpdating = Vals
    Eind met

    Vastgesteld ws = Bladen („OpenItaly“)
    Reeks rng1 = ws. Waaier (ws. [a2], ws. Cellen (Rows.Count, „A“). Eind (xlUp))
    Reeks cel1 = rng1.Find (Valse Target.Value, xlValues, xlWhole, xlByRows,)
    Als niet cel1 dan niets is
        Reeks rng2 = cel1
        strFirstAddress = cel1.Address
        
            Plaats cel1 = rng1.FindNext (cel1)
            Plaats rng2 = Unie (rng2.EntireRow, cel1)
        Lijn terwijl strFirstAddress <> cel1.Address
    Eind als

    Als niet rng2 niets toen rng2.EntireRow.Delete is
    Application.ScreenUpdating = Waar
 
Sub van het eind
Andere oplossingen  
 
programming4us programming4us