Miten pystyn poistamaan suuresta Excel-luettelosta heittomerkit? Heittomerkki löytyy jokaisesta solusta kirjain/numerosarjan ensimmäisenä merkkinä.
Taulukko on minulle tällaisenaan käyttökelvoton, enkä ole löytänyt sopivaa toimintoa, jonka perusteella voisi luoda toimivan makron.
Ensimmäisen merkin (heittomerkki) poistaminen kaikista soluista
Pena696
8
6641
Vastaukset
- Pena696
Ne heittomerkit näkyy vasta siellä funktiokentässä tai kaksoisklikkaamalla solua. Eli siis heittomerkkejä ei näy "ei aktiivisesta" solusta ennen kuin sitä kaksoisklikkaa tai klikkaa niin, että solun teksti tulee näkyviin funktiokentässä.
- tätä
kirjoita soluun 1,copy->paste special->multiply
- Pena 696
tunnu toimivan, ei. Tiedä sitten ymmärsinkö oikein mitä tarkoitit...
- Excelisti
Ehdotettu kertosysteemi ei ehkä toimi vanhoilla Excel-versioilla. Se myös laittaa tyhjiin soluihin nollan.
Se helkkarin heittomerkki kummittelee joissakin työkirjoissa jos ne on siirretty Lotus123-työkirjasta Exceliin. Muistaakseni heittomerkki on vanha Lotuksen muotoilumerkki (viimeksi käytin Lotusta viisitoista vuotta sitten).
Oheinen makro toimii ainakin nopeasti tutkittaessa. Kunde varmasti osaisi tehdä paremman mutta kun se on nyt lomalla ;)
Sub StrToDbl()
Dim Solu As Range
For Each Solu In Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlCellTypeLastCell))
On Error Resume Next
If Solu Empty Then Solu.Value = CDbl(Solu.Value)
Next Solu
End Sub- Excelisti
Tämä on edellistä parempi. Se ottaa myös tyhjissä soluissa olevat heittomerkit jos on.
Sub StrToDbl()
Dim Solu As Range
For Each Solu In Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlCellTypeLastCell))
Solu.Value = CVar(Solu.Value)
Next Solu
End Sub - Pena696
Excelisti kirjoitti:
Tämä on edellistä parempi. Se ottaa myös tyhjissä soluissa olevat heittomerkit jos on.
Sub StrToDbl()
Dim Solu As Range
For Each Solu In Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlCellTypeLastCell))
Solu.Value = CVar(Solu.Value)
Next Solu
End SubSuurkiitokset!
Tästä oli suuri apu. Hienoa, että jollain on homma hallussa! - Anonyymi
Excelisti kirjoitti:
Tämä on edellistä parempi. Se ottaa myös tyhjissä soluissa olevat heittomerkit jos on.
Sub StrToDbl()
Dim Solu As Range
For Each Solu In Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlCellTypeLastCell))
Solu.Value = CVar(Solu.Value)
Next Solu
End SubOsaako joku kertoa mistä löydän yllä olevaan esimerkin tekoon todella simppelit suomenkieliset ohjeet tuon makron tekemiseen. En ole ikinä itse makroa tehnyt, töissä olen toki valmista käyttänyt. Ymmärrän ettei tätä voi oppia yhdessä yössä. Kysyn siis vain mistä kannattaa lähteä liikkeelle. Haluan tämän oppia ja olen sen eteen valmis näkemään reilusti vaivaakin.
-Kiitos ja kumarrus pienistäkin vihjeistä. - Anonyymi
Anonyymi kirjoitti:
Osaako joku kertoa mistä löydän yllä olevaan esimerkin tekoon todella simppelit suomenkieliset ohjeet tuon makron tekemiseen. En ole ikinä itse makroa tehnyt, töissä olen toki valmista käyttänyt. Ymmärrän ettei tätä voi oppia yhdessä yössä. Kysyn siis vain mistä kannattaa lähteä liikkeelle. Haluan tämän oppia ja olen sen eteen valmis näkemään reilusti vaivaakin.
-Kiitos ja kumarrus pienistäkin vihjeistä.Paina Alt f11
Yläpalkista Insert-Module
Kopioi yllä oleva makro äsken ilmestyneeseen ikkunaan.
Makron saa ajettua, kun kursori on jollain sen rivillä ja painaa f5. Se tekee nuo muutokset ko. työkirjan aktiivisena olevalla välilhdellä.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Onnea Riikka! Työttömyys aste on nyt täysi kymppi!
🎯 💪 Kiitoksia Riikalle ansiokkaasta työstä Suomen kansantalouden tuhoamisessa. V.Putin suljetun rajan tuolla puolen1015068Hyvällä tuurilla Suomen väkiluku nousee 7 miljoonaan
Vuoteen 2050 mennessä, mikäli onnistumme maahanmuuttopolitiikassa hyvin. Näin analysoi väestötieteen tohori Hiilamo. ht1774388Riikka jytkytti työttömyyden uuteen ennätykseen!
Erinomaista työtä jälleen kerran irvistelevältä saksiniekalta. ”Yhtä korkeaa työttömyysastetta ei löydy työvoimatutkimu1664294Päivän Riikka: Valmet Automotive aloittaa jättimäiset muutosneuvottelut
😭😭😭😭😭😭😭 Tämäkin vielä, Brutukseni. Että ei olisi Suomen historian pahimmat työttömyysluvut riittäneet, niin Riik893495Mercedes-Benzille riitti Suomen äärioikeistohallitus
Tästä jo pari vuotta sitten varoiteltiin, että kaikki ulkomaalaiset investoijat poistuvat fasistipersujen myötä tukemast163234Sebu Tynkkynen vaatii Ulkopoliittisen instituutin rahoituksen leikkaamista
kun UPI:n tutkija kritisoi Tynkkystä, Mikä Trump tuo Tynkkynen oikein luulee olevansa? https://www.iltalehti.fi/politi142942Keskisarja kiihotti persuja kansanryhmää vastaan
Rikoksen vakavuutta lisää se, että Keskisarja toimii eduskuntapuolueen puheenjohtajana, jonka puheilla on enemmän painoa372933Kolmepäiväinen työviikko on kulman takana
Zoomin toimitusjohtajan mukaan tekoäly alkaa olla monissa työtehtävissä niin tehokas, että ihmiset voivat pudottaa työpä32796Aamun Riikka: sakset tiputtavat 31 000 lasta köyhyysrajan alle
✂️ STM:n tuoreen arvion mukaan Riikan leikkaukset pudottavat peräti 31 000 lasta köyhyysrajan alle, kun aikaisempi THL542668Nuoret pois politiikasta!
Näillä 30-kymppisillä ei ole juuri mitään elämänkokemusta. Ja tällaiset raakileet saavat huseerata ja pilata Suomen!291864