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 ?
Aakkosjärjestys
v/w
3
631
Vastaukset
- 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
Kuolemanrangaistus
Mielestäni kuolemanrangaistus on väärin kaikissa tilanteissa. Vaikka joku olisi murhannut 10 ihmistä, hänen surmaaminen866005Muistakaa persut, että TE petitte, ei kokoomus
Miksikö kukaan ei arvostele kokoomusta? No sen vuoksi, että kokoomus noudattaa vaalilupauksiaan. Sen sijaan TE persut,3015322Riikka Purra ei estä tehomaksun käyttöönottoa
Sähkön hinnoittelua koskevan määräyksen on määrä astua voimaan vuoden 2029 alusta, Energiavirastosta kerrotaan. Määräyk503345Lopetan ikävöinnin
Ei meistä enää koskaan tule mitään. Olen ikävöinyt ja kaivannut enkä saa mitään vastakaikua ja lämpöä. Parempi erillään102916Outo ilmiö - vasemmistolaiset eivät kirjoita mitään kokoomuksesta
joka sentään johtaa hallitusta, ja jonka talouspolitiikkaa noudatetaan. Nämä muutamat vasemmistolaiset jotka täällä aina1062729Jos kaikki lopulta kuolevat, onko edes pahimmillakaan rikoksilla mitään väliä?
Kaikki kuolevat lopulta. Siksi ihmisten tekemillä rikoksillakaan ei lopulta ole mitään merkitystä. Joidenkin mielestä t41675Väestöstä vain vassarit vaihtuvat nopeammin kuin persut
Kevääseen 2023 verrattuna vassareita 50 prosenttia enemmän, ja persuja 25 prosenttia vähemmän.171598Sinä olet minun forEver
Sinä olet minun sielussain, sydämessäin, huulillain, sinä olet ain, Sinä olet vieressäin, kainalossain, sylissäin, ain,211520Vihervassarit
Vihervassarit sitä, vihervassarit tätä. Minulla on paha mt-ongelma. Se tuli lobotomian jälkioireina. Vihervassarit tät321459Mies joka vetäytyy osoittaa teoillaan
Ettei halua olla tekemisissä. Mies joka ei vastaa viesteihin, ei halua sua. Mies joka jättää sut epätietoisuuteen, ei1781094