Vraag : het creëren van de macro van Excel om datum usnig VB te manipuleren

De deskundigen,

I hebben spreadsheet met de volgende gegevens uitblinken:

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

I vergt een macro aan manipluate de gegevens aan het volgende nadat de macro in werking wordt gesteld:

B C
1 Smith, John, jsmith, onthaal, 5,6
2 Campbell, Sara, scampbell, welcome, 4,5
3 Reese, welkome Jim, jreese, 4, 5
4 Soza, Haley, hsoza, onthaal, 3, 4
The- invoerdossier voor studenten is:
LastName, FirstName, Username, Password, Rang, GroupID met elke student op een afzonderlijke line.
Following is de afbeelding voor de groepen van het rangniveau. Ik moet als verklaring aangewezen groepsidentiteitskaart opnemen die op het rangniveau wordt gebaseerd. Bijvoorbeeld, boven Haley is in de 3de rang en zal vandaar behoren tot de 4de groep. De macro moet punten in cel A, B, C met de komma afgebakende lijn in kolom slechts A vervangen. Ik zou werkelijk willen zien hoe dit wordt verwezenlijkt zodat kan ik op andere verschillende variaties proberen. Soort een stormloop op deze code die zo 500 delen aanbiedt.
Group één - Kindergarten
Group 2 - 1st grade
Group 3 - 2de grade
Group 4 - 3de grade
Group 5 - 4de grade
Group 6 - 5de grade
Group 7 - 6de grade

Thanks!

Shogun5

Antwoord : het creëren van de macro van Excel om datum usnig VB te manipuleren

Kleine wijziging voor correcte gebruikersbenaming.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Sub Reorganizedata ()
Schemerige mArray als Variant
Schemerige wArray als Variant
Schemerig Mej. als Aantekenvel
Schemerige lRow zoals lang
Vastgesteld Mej. = ThisWorkbook.Worksheets („Sheet1“)
lRow = mS.UsedRange.SpecialCells (xlCellTypeLastCell). Rij
mArray = mS.Range („A1: C“ & lRow)
wArray = mS.Range („D1: D“ & lRow)
Voor I = 1 aan lRow
    Als mArray (I, 3) = „Kleuterschool“ toen
        wArray (I, 1) = mArray (I, 1) & „,“ & mArray (I, 2) & „,“ & Verlaten LCase ((mArray (I, 2), 1)) & mArray LCase ((I, 1)) & „,“ & „onthaal“ &“, „& mArray (I, 3) &“, „& 1
    Anders
        wArray (I, 1) = mArray (I, 1) & „,“ & mArray (I, 2) & „,“ & Verlaten LCase ((mArray (I, 2), 1)) & mArray LCase ((I, 1)) & „,“ & „onthaal“ &“, „& mArray (I, 3) &“, „& mArray (I, 3) + 1
    Eind als
Volgende I
mS.Range („A1: C“ & lRow) .ClearContents
mS.Range („A1: “ & lRow) = wArray
Sub van het eind
Andere oplossingen  
 
programming4us programming4us