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
102
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
Persut romahti Haapaveellä, kiitos Ilkka!
Persut saivat historiallisen tappion haapaveellä! Kiitos Ilkka!851838- 821680
- 501339
Nyt tiedän
Että joku on lahjonut jonkun tai olemme idiootteja. Nuo kokkareiden päsmärit tuli valituksi valtuustoon. Onnea vaan kai471275Sanna Ukkolan kolumni: Rautarouva, joka unohti joukkonsa - Riikka Purran pitäisi katsoa peiliin
"Historialliset tappiot eivät synny vahingossa. Ne syntyvät, kun johtaja unohtaa, ketä hänen piti palvella, kirjoittaa I481172- 1161150
Kepun hegemonia jatkumassa vankkana Puolangalla
Tuuliviirien vallankumous jäi pahasti piippuun!23952- 39935
Tiedän kyllä sen
Että käyt täällä. En kuvittelisi sellaista asiaa. Tiedän kyllä senkin, että olet ainakin ollut minusta kiinnostunut. Sen59922Paraneeko ilmapiiri nyt?
Paraneeko kunnallispolitiikan ilmapiiri nyt kun persuilla meni vaalit päin pers3ttä ja änkyräpersut tipahtivat vilttiket23903