Questione : Campioni di lezione privata/codice di VB 2010

Vorrei cominciare ad imparare la versione 2010. Dove è il migliore senso cominciare? il
Can qualcuno mi trasmette i collegamenti? class= del

Risposta : Campioni di lezione privata/codice di VB 2010

provare questo,

Usa la colonna A soltanto ed il ritrovamento usato per trovare e cancellare rapidamente le file macthing (une o più) in OpenItaly

Il codice veloce del ritrovamento è basato su http://www.experts-exchange.com/A_29119.html

Acclamazioni

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 secondario riservato (obiettivo di ByVal come gamma)
    La WS fioca come manuale
    Rng1 fioco come gamma
    Rng2 fioco come gamma
    Cel1 fioco come gamma

    Se Application.Intersect (colonne (“A„), obiettivo) è niente allora uscire il sommergibile

    Con l'applicazione
        .ScreenUpdating = falso
    Estremità con

    Regolar la WS = strati (“OpenItaly„)
    Regolar rng1 = la WS. Gamma (WS. [a2], la WS. Cellule (Rows.Count, “A„). Estremità (xlUp))
    Regolar cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, falsi)
    Se non cel1 allora è niente
        Regolar rng2 = cel1
        strFirstAddress = cel1.Address
        Fare
            Regolar cel1 = rng1.FindNext (cel1)
            Regolar rng2 = unione (rng2.EntireRow, cel1)
        Collegare mentre strFirstAddress <> cel1.Address
    Concluder se

    Se non rng2 è niente allora rng2.EntireRow.Delete
    Application.ScreenUpdating = allineano
 
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us