Cuestión : crear la macro de Excel para manipular el usnig VB de la fecha

Los expertos,

I tienen una hoja de balance del sobresalir con los datos siguientes: se funciona el

una necesidad de B C
1 Smith Juan 5
2 Campbell Sara 4
3 Reese Jim 4
4 Soza Haley 3

I una macro al manipluate los datos al siguiente después de la macro: el

un B C
1 Smith, Juan, jsmith, recepción, 5,6
2 Campbell, Sara, scampbell, welcome, 4,5
3 Reese, Jim, jreese, agradable, 4, 5
4 Soza, Haley, hsoza, recepción, 3, formato de archivo de la importación de 4

The para los estudiantes es: el
LastName, FirstName, Username, Password, grado, GroupID con cada estudiante en un line.
Following es el trazado para los grupos del nivel de grado. Necesito si declaración insertar la identificación del grupo apropiada basada en el nivel de grado. Por ejemplo, sobre Haley está en el 3ro grado y por lo tanto pertenecerá al 4to grupo. El macro necesita substituir artículos en la célula A, B, C con la línea delimitada coma en la columna A solamente. Quisiera realmente ver cómo se logra esto así que puedo intentar encendido otras diversas variaciones. Clase de una acometida en este código que ofrece tan PTS 500. ¡1r grade
Group 7 del grade
Group 5 del grade
Group 3 del
Group uno - Kindergarten
Group 2 - - 2do grade
Group 4 - 3ro - 4to grade
Group 6 - 5to - 6to grade

Thanks!

Shogun5 class= del

Respuesta : crear la macro de Excel para manipular el usnig VB de la fecha

Pequeña modificación para el username correcto.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Reorganizedata secundario ()
mArray dévil como variante
wArray dévil como variante
Ms dévil como hoja de trabajo
lRow dévil como de largo
Fijar el ms = ThisWorkbook.Worksheets (“Sheet1”)
lRow = mS.UsedRange.SpecialCells (xlCellTypeLastCell). Fila
mArray = mS.Range (“A1: C” y lRow)
wArray = mS.Range (“D1: D” y lRow)
Para i = 1 al lRow
    Si es mArray (i, 3) = “jardín de la infancia” entonces
        wArray (i, 1) = mArray (i, 1) y “,” y mArray (i, 2) y “,” y LCase (dejado (mArray (i, 2), 1)) y LCase (mArray (i, 1)) y “,” y “recepción” y”, “y mArray (i, 3) y”, “y 1
    
        wArray (i, 1) = mArray (i, 1) y “,” y mArray (i, 2) y “,” y LCase (dejado (mArray (i, 2), 1)) y LCase (mArray (i, 1)) y “,” y “recepción” y”, “y mArray (i, 3) y”, “y mArray (i, 3) + 1
    Terminar si
Después i
mS.Range (“A1: C” y lRow) .ClearContents
mS.Range (“A1: ” Y lRow) = wArray
Submarino del extremo
Otras soluciones  
 
programming4us programming4us