Pergunta : Amostras do curso/código de VB 2010

Eu gostaria de começar a aprender a versão 2010. Onde está a melhor maneira de começar? o
Can alguém emite-me as ligações? class= do

Resposta : Amostras do curso/código de VB 2010

tentar isto,

Usa a coluna A somente, e o achado usado para encontrar e suprimir rapidamente de fileiras macthing (umas ou várias) em OpenItaly

O código rápido do achado é baseado em http://www.experts-exchange.com/A_29119.html

Elogios

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 secundário confidencial (alvo de ByVal como a escala)
    WS não ofuscante como a folha
    Rng1 não ofuscante como a escala
    Rng2 não ofuscante como a escala
    Cel1 não ofuscante como a escala

    Se Application.Intersect (colunas (“A”), alvo) não é nada então retirar o submarino

    Com aplicação
        .ScreenUpdating = falso
    Extremidade com

    Ajustar WS = folhas (“OpenItaly”)
    Ajustar rng1 = WS. Escala (WS. [a2], WS. Pilhas (Rows.Count, “A”). Extremidade (xlUp))
    Ajustar cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, falsos)
    Se não cel1 não é nada então
        Ajustar rng2 = cel1
        strFirstAddress = cel1.Address
        Fazer
            Ajustar cel1 = rng1.FindNext (cel1)
            Ajustar rng2 = união (rng2.EntireRow, cel1)
        Dar laços quando os strFirstAddress <> cel1.Address
    Terminar se

    Se não rng2 não é nada então rng2.EntireRow.Delete
    Application.ScreenUpdating = retificam
 
Submarino da extremidade
Outras soluções  
 
programming4us programming4us