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
4
2161
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
- 271398
Minun oma kaivattuni
Ei ole mikään ilkeä kiusaajatyyppi, vaan sivistynyt ja fiksu sekä ystävällinen ihminen, ja arvostan häntä suuresti. Raka611261Miksi ihmeessä nainen seurustelit kanssani joskus
Olin ruma silloin ja nykyisin vielä rumempi En voi kuin miettiä että miksi Olitko vain rikki edellisestä suhteesta ja ha91195Persut nimittivät kummeli-hahmon valtiosihteeriksi!
Persujen riveistä löytyi taas uusi törkyturpa valtiosihteeriksi! Jutun perusteella järjenjuoksu on kuin sketsihahmolla.291145Onko ministeri Juuso epäkelpo ministerin tehtäviensä hoitamiseen?
Eikö hänellä ole kompetenttia hoitaa sosiaali- ja terveysministetin toimialalle kuuluvia ministerin tehtäviä?261137Tervehdys!
Sä voit poistaa nää kaikki, mut mä kysyn silti A:lta sen kokemuksia sun käytöksestä eron jälkeen. Btw, miks haluut sabot641067Elia tulee vielä
Johannes Kastaja oli Elia, mutta Jeesus sanoi, että Elia tulee vielä. Malakian kirjan profetia Eliasta toteutuu kokonaan331038Sakarjan kirjan 6. luku
Jolla korva on, se kuulkoon. Sain profetian 22.4.2023. Sen sisältö oli seuraava: Suomeen tulee nälänhätä niin, että se71033Pelastakaa Lapset: Netti ei ole turvallinen paikka lapsille - Erätauko-tilaisuus to 25.4.2024
Netti ei ole turvallinen paikka lapsille, mutta mitä asialle voi vanhempana tehdä? Torstaina 25.4.2024 keskustellaan ne131033Nellietä Emmaa ja Amandaa stressaa
Ukkii minnuu Emmaa ja Amandaa stressaa ihan sikana joten voidaanko me koko kolmikko hypätä ukin kainaloon ja syleilyyn k61032