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 ?
Nyt järjestyy näin:
Vai Steve
Waits Tom
Wang Chung
Watson Helen
Vaughan Brothers
... Olisko jollain kikka 6 tähän ?
Vastaukset 3
Vanhimmat
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