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
2588
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
Kiitos nainen
Kuitenkin. Olet sitten ajanmerkkinä. Tuskin enää sinua näen ja huomasitko, että olit siinä viimeisen kerran samassa paik124090MTV: Kirkossa saarnan pitänyt Jyrki 69 koki yllätyksen - Paljastaa: "Se mikä oli hyvin erikoista..."
Jyrki Linnankivi alias Jyrki 69 on rokkari ja kirkonmies. Teologiaa opiskeleva Linnankivi piti elämänsä ensimmäisen saar822101Hyväksytkö sinä sen että päättäjämme ei rakenna rauhaa Venäjän kanssa?
Vielä kun sota ehkäpä voitaisiin välttää rauhanponnisteluilla niin millä verukkeella voidaan sanoa että on hyvä asia kun5501658Kirjoita yhdellä sanalla
Joku meihin liittyvä asia, mitä muut ei tiedä. Sen jälkeen laitan sulle wappiviestin991405Olet hyvin erilainen
Herkempi, ajattelevaisempi. Toisaalta taas hyvin varma siitä mitä haluat. Et anna yhtään periksi. Osaat myös ilkeillä ja671127Yksi syy nainen miksi sinusta pidän
on se, että tykkään luomusta. Olet luonnollinen, ihana ja kaunis. Ja luonne, no, en ole tavannut vielä sellaista, joka s331048Hyödyt Suomelle???
Haluaisin asettaa teille palstalla kirjoittelevat Venäjää puolustelevat ja muut "asiantuntijat" yhden kysymyksen pohditt216943Hyvää Joulua mies!
Toivottavasti kaikki on hyvin siellä. Anteeksi että olen hieman lisännyt taakkaasi ymmärtämättä kunnolla tilannettasi, o60893- 171864
Paljastavat kuvat Selviytyjät Suomi kulisseista - 1 päivä vs 36 päivää viidakossa - Katso tästä!
Ohhoh! Yli kuukausi viidakossa voi muuttaa ulkonäköä perusarkeen aika rajusti. Kuka mielestäsi muuttui eniten: Mia Mill3838