Haluan vaihtaa solujen tietyt merkit toisiin. Esim, jos solussa on abc, niin haluan vaihtaa a-kirjaimet kirjaimeen z, b-kirjaimet kirjaimeen x ja c-kirjaimet kirjaimeen y.
Eli abc näkyisi uudessa solussa muodossa xyz. Löysin KORVAA toiminnon, mutta sillä saa vaihdettua vain yhden merkin kerrallaan.
Merkkien vaihtaminen solussa?
Anonyymi
4
144
Vastaukset
- Anonyymi
Melkein tuohon kannattaa oma funktio kirjoittaa.
- Anonyymi
Sub vaihda()
' Vaihtaa valitulla alueella vanhat merkit vastaaviin uusiin.
vanha = Split("a b c", " ")
uusi = Split("x y z", " ")
Dim solu As Range
For Each solu In Selection
For i = 0 To UBound(vanha)
Debug.Print vanha(i) & " " & uusi(i)
solu.Value = WorksheetFunction.Substitute(solu, vanha(i), uusi(i))
Next i
Next
End Sub
- Anonyymi
Jos ei tiedä etukäteen kuinka monta eri korvattavaa merkkiä tarvitaan, niin voidaan käyttää VBA:n ParamArrayta parametrinä. Sitten vaan loopissa käy ne läpi jo vaihtaa alkuperäiseen.
http://www.tushar-mehta.com/publish_train/xl_vba_cases/1005 ParamArray.shtml ilman turhia luuppauksia
Sub Korvaa()
Dim originaalit As Variant
Dim korvaavat As Variant
Dim x As Long
originaalit = Array("A", "B", "C", "a", "b", "c")
korvaavat = Array("X", "Y", "Z", "x", "y", "z")
For x = LBound(originaalit) To UBound(originaalit)
Selection.Replace What:=originaalit(x), Replacement:=korvaavat(x), _
LookAt:=xlPart, MatchCase:=True
Next
End Sub
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Ässät feikki ero
Stefanhan se siellä Sonjan ja Sofian juhannus kuvien taustalla. Kaksi tyhmää naista ja vielä tyhmempi mies. Oliko tämä ero vain epätoivoinen yritys sa1042337Miksi vanhat äijät
Luulee, että nuori nainen haluaisi niiden homeista munaa? Saati että joku nuori nainen pitäisi heistä muuten? Voi reppanat. Jos sulla on paljon rahaa,1331286En haluaisi uskoa että miehet ajattelee vain munallaan,
mutta taas sain olla väärässä. Eli.. törmäsin männäviikolla puolituttuun mieheen työmatkalla. Hän kertoi, että viettäisi juhannusta minun kotikaupun3061263Ärsyttävimpiä ihmistyyppejä
Itselleni yksi ärsyttävimmistä ihmistyypeistä on takertujat. Sellaiset, joille on kohtelias, ei tuomitse heitä niin kuin monet muut tuomitsee jne. Ärs1751097Somalisulhanen syö Sara Siepin suosiota
Ei kelvannut Sara Sieppi enää kummankaan iltapäivälehden juhannustytöksi. muutenkin tykkäysmäärät näyttävät laskeneen ja ilmeisesti myös Saran seuraa641015Nyt päästän sinusta irti nainen. Minun olisi pitänyt tajuta tämä jo paljon aikaisemmin.
Et ole kenenkään oma. Hyvästi jää.58913Kuulispas se oikea
henkilö mun anteeksipyynnön tään. Tajuis, että tämä aloitus oli just multa, pystyis ymmärtää mua edes jollainlailla. Turhaa sanojen helinää tääkin, lu33851Juhannuksen pilaaminen ruohonleikkurilla
Vois naapuriki ajatella onko pakko juhannusaattona leikata nurmikkoa samaan aikaan kun muut naapurit köllöttelee pihalla ja pelaavat krokettia ja naut77801Eri ikäiset parit
Tämän ajankohtaisen lapsia ahdisteleva setä-keskustelun innoittamana aloitan vähän laajemman ikäkeskustelun. Oma kantani on, että kunhan kumpikin on111784Yhden viestin päässä
Voisit juuri tälläkin hetkellä olla tässä vieressäni. Silittelisin ja paijaisin sinut puhki.41766