Moi, miten saisin riviväliä pienemmäksi Excelin solussa. Olen kirjoittanut listaa jossa soluissa tekstiä astuksella rivitä. Nyt riviväli on turhan suuri ja koko taulukko menisi pienenpään tilaan jos saisi turhan ison rivivälin pienennettyä
Excel Solun sisällä tekstin rivivälin muuttaminen
Apua_tarpeen
4
3152
Vastaukset
- linuxuser
olisikohan ne tekstilistat parempia siellä tekstinkäsittelyssä eikä taulukkolaskennassa...?
- Tämmöinen
Ei taida saada muutettua.
Pinennä fonttia
Käytä rivitetyn tekstin sijaan rivittämätöntä ja muuta rivien korkeutta
Siirrä taulukko tekstinkäsittelyyn ja muuta solujen riviväliä siellä - hankalakylläjoo
Microsoftikin tunnustaa ettei rivivälin säätäminen ole mahdollista suoraan soluun. Mutta jos on aivan pakko nysvätä Exceliin, niin silloin voi käyttää solussa TextBoxeja, ja muotoilee sitten kappale-valikosta riviväliä. Toimii kyllä, kun äsken kokeilin.
En suomenkielistä ohjetta löytänyt tähän, mutta vastaavalla tavalla se toimii.
https://support.office.com/en-us/article/Change-line-spacing-8690fcda-1a4c-41fe-bf43-439f7c5d3c7a - hankalakylläjoo
Tuossa alla on makro, joka muodostaa valittuihin soluihin TextBoxit, ja kopioi jokaisen solun tekstisisällön kyseiseen TextBoxiin. Samalla muutetaan TextBoxien riviväli arvoon 0,8. Oletus taitaa olla 1,0. Vaihtamalla arvoa tuohon koodin muuttujaan rivivali saa kokeiltua eri arvoja.
Muuttujan arvossa desimaalierotin on piste, ei pilkku.
Ja kannattaa tallentaa ennen makron ajamista taulukosta kopio, koska paluuta ei makron jälkeen ole enää vanhaan. Kokeilemalla saattaa löytyä haluttu lopputulos. Omalla vastuulla siis...
Sub solut_tekstiboxeihin()
Dim rivivali As Double
Dim alue As Range
rivivali = 0.8 'Tätä arvoa muutetaan
If TypeName(Selection) = "Range" Then
Set alue = Selection
For Each solu In alue
If Application.WorksheetFunction.IsText(solu) Then
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
solu.Left, solu.Top, solu.Width, solu.Height).Select
Selection.ShapeRange.TextFrame2.TextRange.Characters. _
Text = solu.Value
Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat. _
SpaceWithin = rivivali
End If
Next solu
Else
MsgBox "Valinta ei ole tyyppiä Range, vaan " _
& TypeName(Selection) & "!"
End If
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Valtion alijäämä = yritystukien määrä = 10 mrd. euroa
Mutta persut eivät vaan suostu tasapainottamaan valtion budjettia, vaikka yritystuet on tiedetty haitallisiksi. Miksi p1168355Suomi käyttää sosiaalietuuksiin suhteessa eniten rahaa koko maailmassa
Suomi käyttää sosiaaliturvaetuuksiin enemmän rahaa suhteessa bruttokansantuotteeseen kuin mikään muu maa maailmassa. Su4157568Mitä hyvää rikkaiden hyysääminen Suomelle tuonut?
Minäpä vastaan: ei yhtikäs mitään, vaan pelkkää vahinkoa. Demareiden ansiosta Suomen valtio oli käytännössä vielä 1980-95185Grahn-Laasonen: "Kansalainen joutuu pettymään, jos demareita äänestää"
Ministeri viittaa tuoreeseen Helsingin Sanomien juttuun, jossa demarijohtajan keinoja Suomen suunnan muuttamiseksi esite814836Vähän fiksumpi Nimi kisa ? :=)
Kirjoita teidän etunimet allekkain. Jos nimissä on joku kirjain sama, poista se. Tee sama tarkistus kaikille kirjaimill294609Mikä on suurin luonne- eroavuus sinussa
Ja kaivatussasi? Vaikuttaako se huonoon vai hyvään suuntaan siinä, että teistä voisi tulla jotain?2042959- 1242854
Kenen haluaisit voittavan Amazing Racen: Tuomas ja Esko, Millu ja Karoliina vai Maria ja Vilma?
Amazing Race Suomi huipentuu lauantaina finaaliin. Jäljellä on kolme paria ja tiedossa on tehtäviä, jotka järkyttävät os342752Gallup: Katsotko Salkkareita tai oletko katsonut?
Salatut elämät on suomalaisten suosikkisarja vuosikymmenestä toiseen. Salkkareiden parissa viettää aikaa sukupolvet laps232374Amazing Race Tomas rehellisenä Esko-appiukon, 63, tilasta: "Sairastelut ja..."
Tomas Grekov ja Esko Rotola-Pukkila ovat mukana Amazing Race Suomi -kisassa. Ja nyt vuorossa on finaali. Hankaluuksia m22247