Frage : Schaffung von Excel-Makro, um Datum usnig VB zu manipulieren

Experten,

I haben einen übertreffenverteilungsbogen mit den folgenden Daten:

eine Notwendigkeit b-C
1 Smith John 5
2 Campbell Sara 4
3 Reese Jim 4
4 Soza Haley 3

I ein Makro zum manipluate die Daten zum folgenden nach dem Makro wird laufen gelassen:

ein B C
1 Smith, John, jsmith, Willkommen, 5,6
2 Campbell, Sara, scampbell, welcome, 4,5
3 Reese, Jim, jreese, willkommen, 4, 5
4 Soza, Haley, hsoza, Willkommen, 3, 4

The Import-Dateiformat für Kursteilnehmer ist:
LastName, FirstName, Username, Password, Grad, GroupID mit jedem Kursteilnehmer auf einem unterschiedlichen line.
Following ist das Diagramm für die Gradniveaugruppen. Ich muss wenn Aussage die passende Gruppennummer einsetzen, die auf dem Gradniveau basiert. Z.B. über Haley ist im 3. Grad und folglich wird der 4. Gruppe gehören. Das Makro muss Einzelteile in Zelle A, B, C ersetzen mit der Komma abgegrenzten Linie in Spalte nur A. Ich möchte wirklich sehen, wie dieses vollendet wird, also ich andere verschiedene Veränderungen an versuchen kann. Art eines Ansturms auf diesem Code, der so PTS 500 anbietet.
Group eins - Kindergarten
Group 2 - 1. grade
Group 3 - 2. grade
Group 4 - 3. grade
Group 5 - 4. grade
Group 6 - 5. grade
Group 7 - 6. grade

Thanks!

Shogun5

Antwort : Schaffung von Excel-Makro, um Datum usnig VB zu manipulieren

Kleine Änderung für korrektes username.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
VorReorganizedata ()
Schwaches mArray als Variante
Schwaches wArray als Variante
Schwache Frau als Arbeitsblatt
Schwaches lRow als lang
Frau = ThisWorkbook.Worksheets („Sheet1“) einstellen
lRow = mS.UsedRange.SpecialCells (xlCellTypeLastCell). Reihe
mArray = mS.Range („A1: C“ u. lRow)
wArray = mS.Range („D1: D“ u. lRow)
Für i = 1 zum lRow
    Wenn mArray (i, 3) = „Kindergarten“ dann
        wArray (i, 1) = mArray (i, 1) u. „,“ u. mArray (i, 2) u. „,“ u. LCase (gelassen (mArray (i, 2), 1)) u. LCase (mArray (i, 1)) u. „,“ u. „Willkommen“ u.“, „u. mArray (i, 3) u.“, „u. 1
    Sonst
        wArray (i, 1) = mArray (i, 1) u. „,“ u. mArray (i, 2) u. „,“ u. LCase (gelassen (mArray (i, 2), 1)) u. LCase (mArray (i, 1)) u. „,“ u. „Willkommen“ u.“, „u. mArray (i, 3) u.“, „u. mArray (i, 3) + 1
    Beenden wenn
Zunächst I
mS.Range („A1: C“ u. lRow) .ClearContents
mS.Range („A1: “ U. lRow) = wArray
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us