Aakkosjärjestys

v/w

Tein tossa levylistaa vanhoista vinyyleistä. Aakkosjärjestely toimii muuten hyvin, mutta miten saan V:llä ja W:llä alkavat järjestetyksi niin että ensin tulis 'yksöis-veet' ja sit tupla-weet?
Nyt järjestyy näin:

Vai Steve
Waits Tom
Wang Chung
Watson Helen
Vaughan Brothers

... Olisko jollain kikka 6 tähän ?

3

645

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kysymys marraskuussa 2007

      eikä silloinkaan kukaan antanut vastausta. Olen itsekin törmännyt monasti samaan "ongelmaan", enkä ole ratkaisua löytänyt.

    • Openoffice Calcilla tuon saa tehtyä vaihtamalla lajittelun kieltä miltei mihin tahansa eurooppalaiseen kieleen.
      Ongelmia tulee vasta kun pitäis saada sekä Aalto Aimo että Älämölö aakkostettua oikein em. lisäksi.
      Näyttäisi onnistuvan joillakin kielillä, kuten bokmålilla.
      Excelilläkin luulisin, että vastaavan saa tehtyä.

    • normaali array-lajittelulla onnistuu
      nimet A-sarakkeessa ja aakkostaa B-sarakkeeseen

      Sub Aakkosta()
      Dim rarray As Variant
      Dim Vika As Double
      Dim lkm As Long
      Dim lkm2 As Long
      Dim Nimi1 As String
      Dim Nimi2 As String

      On Error Resume Next

      Application.ScreenUpdating = False
      Range("B:B")= ""

      Vika = Range("A65536").End(xlUp).Row
      rarray = WorksheetFunction.Transpose(Range("A1:A" & Vika).Value)

      For lkm = 1 To UBound(rarray)
      For lkm2 = lkm To UBound(rarray)
      If UCase(rarray(lkm2)) < UCase(rarray(lkm)) Then
      Nimi1 = rarray(lkm)
      Nimi2 = rarray(lkm2)
      rarray(lkm) = Nimi2
      rarray(lkm2) = Nimi1
      End If
      Next lkm2
      Next lkm

      Range("B1:B" & UBound(rarray)) _
      = WorksheetFunction.Transpose(rarray)
      Application.ScreenUpdating = True
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Kuka oli töllöntyön tekijä?

      Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt
      Pieksämäki
      50
      5267
    2. Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja

      Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.
      Pieksämäki
      81
      3064
    3. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      309
      1634
    4. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      75
      1234
    5. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      80
      1167
    6. Jenkkilahkojen kastekaava

      Jenkkilahkojen yhteinen kastekaava on kirjoitettuna Mormonin Kirjaan, Moroni, luku-8 Pienten lapsien vanhempia uhataan
      Kaste
      139
      1124
    7. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      132
      1102
    8. Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!

      Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin
      Kaste
      161
      1095
    9. Mitä ajatuksia miehet, jos..?

      Nainen on 40v eikä ole omia lapsia?
      Ikävä
      171
      1074
    10. Se mies rakastaa minua

      Ja minä rakastan häntä. 😌
      Ikävä
      49
      944
    Aihe