Frage : VB 2010 Tutorium-/Codeproben

Ich möchte Version, 2010 zu erlernen anfangen. Wo ist die beste Weise zu beginnen?
Can jemand schicken mir Verbindungen?

Antwort : VB 2010 Tutorium-/Codeproben

dieses versuchen,

Er benutzt Spalte nur A und benutzte Entdeckung, um macthing Reihen (eine oder mehrere) in OpenItaly schnell zu finden und zu löschen

Der schnelle Entdeckungcode basiert auf http://www.experts-exchange.com/A_29119.html

Beifall

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:

Privates VorWorksheet_Change (ByVal Ziel als Strecke)
    Schwaches WS als Arbeitsblatt
    Schwaches rng1 als Strecke
    Schwaches rng2 als Strecke
    Schwaches cel1 als Strecke

    Wenn ist Application.Intersect (Spalten („A“), Ziel) nichts dann, Unterseeboot herausnehmen

    Mit Anwendung
        .ScreenUpdating = falsch
    Ende mit

    Einstellen WS = Blätter („OpenItaly“)
    Einstellen rng1 = WS. Strecke (WS. [a2], WS. Zellen (Rows.Count, „A“). Ende (xlUp))
    Einstellen cel1 = rng1.Find (Target.Value, die xlValues, xlWhole, xlByRows, falsch)
    Wenn nicht cel1 nichts dann ist
        Einstellen rng2 = cel1
        strFirstAddress = cel1.Address
        Tun
            Einstellen cel1 = rng1.FindNext (cel1)
            Einstellen rng2 = Anschluss (rng2.EntireRow, cel1)
        Schlingen während strFirstAddress <> cel1.Address
    Beenden wenn

    Wenn nicht rng2 nichts dann rng2.EntireRow.Delete ist
    Application.ScreenUpdating = ausrichten en
 
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us