Questione : generazione della macro di Excel per maneggiare il usnig VB della data

Gli esperti,

I hanno un foglio elettronico di supremazia con i seguenti dati: il

un bisogno di B C
1 Smith John 5
2 Campbell Sara 4
3 Reese Jim 4
4 Soza Haley 3

I una macro a manipluate i dati a quanto segue dopo la macro è funzionato: il

una B C
1 Smith, John, jsmith, benvenuto, 5,6
2 Campbell, Sara, scampbell, welcome, 4,5
3 Reese, Jim, jreese, benvenuto, 4, 5
4 Soza, Haley, hsoza, benvenuto, 3, formato di file dell'importazione di 4

The per gli allievi è: il
LastName, FirstName, Username, Password, grado, GroupID con ogni allievo su un line.
Following è il tracciato per i gruppi del livello di grado. Devo se dichiarazione inserire l'identificazione del gruppo adatta basata al livello del grado. Per esempio, sopra Haley è nel terzo grado e quindi apparterrà al quarto gruppo. L'a macroistruzione deve sostituire gli articoli in cellula A, la B, C con la linea delimitata virgola in colonna A soltanto. Realmente vorrei vedere come questo è compiuto in modo da posso provare sopra altre variazioni differenti. Genere di sbalzo su questo codice così che offre I.T. 500. grade
Group 7 del grade
Group 5 del grade
Group 3 del
Group uno - Kindergarten
Group 2 - primo - secondo grade
Group 4 - terzo - quarto grade
Group 6 - quinto - sesto grade

Thanks!

Shogun5 class= del

Risposta : generazione della macro di Excel per maneggiare il usnig VB della data

Piccola modifica per il username corretto.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Reorganizedata secondario ()
mArray fioco come variante
wArray fioco come variante
Spettrografia di massa fioca come manuale
lRow fioco come lungamente
Regolare la spettrografia di massa = ThisWorkbook.Worksheets (“Sheet1„)
lRow = mS.UsedRange.SpecialCells (xlCellTypeLastCell). Fila
mArray = mS.Range (“A1: C„ & lRow)
wArray = mS.Range (“D1: D„ & lRow)
Per i = 1 a lRow
    Se mArray (i, 3) = “asilo„ allora
        wArray (i, 1) = mArray (i, 1) & “,„ & mArray (i, 2) & “,„ & LCase (lasciato (mArray (i, 2), 1)) & LCase (mArray (i, 1)) & “,„ & “benvenuto„ &„, “& mArray (i, 3) &„, “& 1
    Altrimenti
        wArray (i, 1) = mArray (i, 1) & “,„ & mArray (i, 2) & “,„ & LCase (lasciato (mArray (i, 2), 1)) & LCase (mArray (i, 1)) & “,„ & “benvenuto„ &„, “& mArray (i, 3) &„, “& mArray (i, 3) + 1
    Concluder se
Dopo i
mS.Range (“A1: C„ & lRow) .ClearContents
mS.Range (“A1: „ & lRow) = wArray
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us