Tekstin 'siivous' VBA:ssa

erne31-

Joo elikkä ongelma on se että tieto eli teksti haetaan ulkoisesta tietolähteestä, jossa se on kirjoitettu. Siellä kirjoitettaessa on tullut ylimääräisiä merkkejä( esim. enter) tai sitten ylimääräisiä välilyöntejä. Kuinka nämä saa pois koodilla. Excelissä kyllä onnistuu trim ja clean funktioilla, mutta en ole koodissa saanut toimiin.

Esim.
(alkuperäinen teksti)
Hyvä suoritus.
Jatka samaan malliin.

(toivottu muoto)
Hyvä suoritus. Jatka samaan malliin.


Sitten toinen ongelma liittyen kans tekstin muotoiluun. Eli miten voin koodissa muuttaa tekstin, joka on kokonaan isolla kirjoitettu, siten että jokainen sana alkais isolla kirjaimella ja muut pienellä. (esim. nimet). Tähän on myös excelissä toimiva funktio, mutta miten koodilla.

Esim.
MATTI MATINPOIKA MALLINEN
Matti Matinpoika Mallinen

2

284

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kunde

      1. Application.WorksheetFunction.Trim(Application.WorksheetFunction.Clean(Range("B9")))
      2, StrConv("MATTI MATINPOIKA MALLINEN", vbProperCase)

    • zjei

      tStr = Replace(tStr, vbCrLf, " ")
      do
      tStrTmp = tStr
      tstr= Replace(tStr, " ", " ") 'kaksi tyhjää yhdeksi.
      Until tStrTmp = tStr

      'Muuten tuo StrConv on samanlainen.....

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kelekkakisat

      Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.
      Nivala
      21
      10865

    2. Aivan kauheaa

      Veikö koskiuoma taas ihmishengen? Se pitää kieltää!
      Imatra
      40
      8117

    3. Onko kaivattusi

      …mielestäsi älykäs, tai kenties tyhmä? Oma mielipide.
      Ikävä
      123
      5211

    4. Kuinka pitkä välimatka

      on teidän kotien välillä?
      Ikävä
      131
      3593

    5. Epäilen ettet edes

      Kehtaisi liikkua kanssani.
      Ikävä
      69
      3548

    6. Virkamiehille tarvitaan tuntuvat palkankorotukset

      Naistenpäivänä on syytä muistuttaa, että virkamiehen euro on vain 80 senttiä. Palkat tulee saattaa samalle tasolle yksi
      Maailman menoa
      35
      3504

    7. Oletko huomannut

      Yhden muutoksen?
      Ikävä
      33
      3147

    8. Jäikö meidän välit

      Mielestäsi Kesken?
      Ikävä
      55
      2489

    9. Olisipa saanut sinuun

      Tutustua paremmin. Harmi että aloin lopulta jännittämään kun näytit tunteesi niin voimakkaasti ja lähestyit niin voimaak
      Ikävä
      35
      1981

    10. Miltä mahtaa tuntua

      Sitten kun näet hänet pitkästä aikaa?
      Tunteet
      28
      1766
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt