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
2930
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
Poliisi: Kymmenhenkinen pohjalaisperhe ollut vuoden kateissa kansainvälinen etsintäkuulutus Poliis
Poliisi: Kymmenhenkinen pohjalaisperhe ollut vuoden kateissa – kansainvälinen etsintäkuulutus Poliisi pyytää yleisön apu2692262En kadu sitä, että kohtasin hänet
mutta kadun sitä, että aloin kirjoittamaan tänne palstalle. Jollain tasolla se saa vain asiat enemmän solmuun ja tekee n831001Oisko mitenkään mahdollisesti ihan pikkuisen ikävä..
...edes ihan pikkuisen pikkuisen ikävä sulla mua??.. Että miettisit vaikka vähän missähän se nyt on ja oiskohan hauska n53964- 107944
Noniin rakas
Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi81911- 42854
Au pair -työ Thaimaassa herättää kiivasta keskustelua somessa: "4cm torakoita, huumeita, tauteja..."
Au pairit -sarjan uusi kausi herättää keskustelua Suomi24 Keskustelupalvelussa. Mielipiteitä ladataan puolesta ja vastaa21838Helena Koivu : Ja kohta mennään taas
Kohta kohtalon päivä lähestyy kuinka käy Helena Koivulle ? Kenen puolella olet? Jos vastauksesi on Helenan niin voisi67736Tässä totuus jälleensyntymisestä - voit yllättyä
Jumalasta syntyminen Raamatussa ei tässä Joh. 3:3. ole alkukielen mukaan ollenkaan sanaa uudestisyntyminen, vaan pelkä299684- 33677