Macro's gebruiken om gegevens in meerdere kolommen sorteren als één kolom in Excel

Artikel ID: 247311 - Bekijk de producten waarop dit artikel van toepassing is.
Automatische vertalingLET OP: Dit artikel is automatisch vertaald. Meer informatie treft u aan de onderzijde van dit artikel.
Alles uitklappen | Alles samenvouwen

Op deze pagina

Samenvatting

Microsoft Excel beschikt niet over een ingebouwde methode om te sorteren een kranten (kranten) kolom met gegevens. Dit artikel bevat een voorbeeld macro gegevens sorteren in een kranten kolom indeling.
Naar boven | Geef ons feedback

Meer informatie

Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeer taal worden opgespoord en met de hulp programma's die worden gebruikt bent voor het maken en waarmee fouten in procedures. Ondersteuningstechnici van Microsoft kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar zij zal deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke vereisten niet wijzigen.

Ingebouwde sorteren

In Microsoft Excel kunt u doorgaans gebruikt de sorteerfunctie voor sorteren een lijst. Een lijst in Excel is een reeks werk blad rijen die gerelateerde gegevens bevatten zoals een facturen data base of een set van client namen en telefoon nummers. U kunt een lijst gebruiken als een data base, waarin elke rij wordt een record en de kolommen velden. De eerste rij van de lijst is meestal labels voor de kolommen voor in het volgende voorbeeld:
   A1: Q1   B1: Q2   C1: Q3
   A2: 10   B2: 2    C2: 4
   A3: 14   B3: 18   C3: 9
   A4: 7    B4: 17   C4: 12
   A5: 1    B5: 13   C5: 5
   A6: 11   B6: 8    C6: 16
   A7: 3    B7: 6    C7: 15
Als u deze lijst in oplopende volg orde op het veld Q1 gesorteerd (kolom A), de resultaten zijn als volgt:
   A1: Q1   B1: Q2   C1: Q3
   A2: 1    B2: 13   C2: 5
   A3: 3    B3: 6    C3: 15
   A4: 7    B4: 17   C4: 12
   A5: 10   B5: 2    C5: 4
   A6: 11   B6: 8    C6: 16
   A7: 14   B7: 18   C7: 9

Een kranten stijl kolom sorteren

Kranten kolommen en vloeiende kolommen zijn verschillende voorwaarden voor de hetzelfde soort gegevensindeling. Kranten kolommen in de gegevens in een kolom vol en nog steeds aan de bovenkant van de volgende kolom. In dit geval de gegevens waarschijnlijk worden geen labels voor elke kolom, bijvoorbeeld:
   A1: 10   B1: 2    C1: 4
   A2: 14   B2: 18   C2: 9
   A3: 7    B3: 17   C3: 12
   A4: 1    B4: 13   C4: 5
   A5: 11   B5: 8    C5: 16
   A6: 3    B6: 6    C6: 15
U kunt de voorbeeld macro in dit artikel kranten sorteren kolommen in oplopende volg orde. Als u de voorbeeld macro voor de bovenstaande gegevens, de resultaten zijn als volgt:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
Ga als volgt te werk voor de sorterings macro werkt zoals beschreven:
  1. Open een nieuwe werkmap.
  2. Typ de volgende voorbeeldgegevens in het werk blad:
       A1: 10   B1: 2    C1: 4
   A2: 14   B2: 18   C2: 9
   A3: 7    B3: 17   C3: 12
   A4: 1    B4: 13   C4: 5
   A5: 11   B5: 8    C5: 16
   A6: 3    B6: 6    C6: 15
  3. Op deHulp programma'shet menuMacro, en klik vervolgens opVisual Basic-Editor.
  4. Op deInvoegenmenu, klikt u opModule.
  5. Typ de volgende code in de module:

    OpmerkingIn het volgende voorbeeld ziet u hoe u wilt sorteren in oplopende volg orde. U kunt dit wijzigen door de waarde van de "Order1: =" argumentxlDescending.
       Sub SortAllRangeData()
   ' Place column header for temporary sort area.
   Range("IV1").Value = "Numbers"
   
   ' Move numbers to temporary sort location.
   For Each cell In Selection
      Range("iv65536").End(xlUp).Offset(1, 0) = cell.Value
   Next cell
   
   ' Sort numbers in ascending order.
   Range("IV1", Range("IV1").End(xlDown)).Sort Key1:=Range("IV2"),  _
   Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        
   ' Move sorted data back to original sheet location.

   Selection(1, 1).Activate ' Make sure the ActiveCell is the
                            ' top left of Selection first.
   CCnt = Selection.Columns.Count
   RCnt = Selection.Rows.Count
   CellCnt = Selection.Cells.Count
   Tcell = 2
   For c = 1 To CCnt
     For r = 1 To RCnt
        Range(ActiveCell.Address).Offset(r - 1, c - 1).Value =  _
        Range("iv" & Tcell).Value
        Tcell = Tcell + 1
     Next r
   Next c
   
   ' Clean up temporary sort location.
   Range("IV1", Range("IV1").End(xlDown)).Clear
End Sub
  6. Op deExcelmenu in Microsoft Excel X voor Mac en in latere versies van Excel voor Mac of in het menu bestand in alle versies van Excel, klikt u opSluiten en terugkeren naar Microsoft Excel.
  7. Selecteer A1:C6.
  8. Op deHulp programma'shet menuMacro, en klik vervolgens opMacro's. Selecteer deSortAllRangeDatamacro en klik vervolgens opUitvoeren.
Alle gegevens in het geselecteerde bereik is gesorteerd, en er als volgt uitziet:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
Naar boven | Geef ons feedback

Referenties

Excel x voor Mac en latere versies

Klik voor meer informatie over sorterenExcel Helpop deHelpin het menu typesorteren, klik opZoeken, en klik vervolgens op een onderwerp te bekijken.

Klik voor meer informatie over het gebruik van de methode Sort vanuit de Visual Basic EditorVisual Basic Helpop deHelpin het menu typeSort, methode, klik opZoeken, en klik vervolgens op weer gevenSort, methode.

Excel 2001 voor Mac

Voor meer informatie over hoe u wilt sorteren, klikt u op deOffice-assistent, typeeen lijst sorteren, klik opZoeken, en klik vervolgens op een onderwerp te bekijken.

OpmerkingAls de assistent verborgen is, klikt u op deOffice-assistentknop op deStandaardde werkbalk.

Voor meer informatie over het gebruik van de methode Sort vanuit de Visual Basic Editor, klikt u op deOffice-assistent, typeSort, methode, klik opZoeken, en klik vervolgens op weer gevenSort, methode.
Naar boven | Geef ons feedback

Eigenschappen

Artikel ID: 247311 - Laatste beoordeling: vrijdag 23 september 2011 - Wijziging: 4.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X voor Mac
  • Microsoft Excel 2001 voor Mac
  • Microsoft Excel 98 voor Macintosh
Trefwoorden: 
dftsdahomeportal kbautomation kbprogramming kbhowto kbmt KB247311 KbMtnl
Automatische vertaling
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:247311
(http://support.microsoft.com/kb/247311/en-us/ )
Naar boven | Geef ons feedback

Geef ons feedback

 
Naar bovenNaar boven