...millään tavalla tuo muutama päivä esittämäni kysymyksen mukainen fontin värin- tai vaihtoehtoisesti vaikka koon yms. vaihto tekstissä?
Suuresti kiitollinen ongelman ratkaisseelle!
Suuresti kiitollinen ongelman ratkaisseelle!
Turvaa tilisi vahvistamalla puhelinnumerosi. Voit silloin palauttaa unohtuneen salasanan tekstiviestillä.
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 3
Vanhimmat
>Uusi jäsen sitoutuu maksamaan seuralle "&TEKSTI(A28; "0,00")&" euron jäsenmaksun.... <
Siis mikä osa tästä on solussa?
Maalaa editointirivillä haluamasi kohta ja paina hiiren oikeaa korvaa ja valitse "Muotoile solu...". Valitse väri ja fontti. OK!
Vaikeeta neuvoa kun ei ole Exceliä edessä, vaikkakin on valokuvamuisti (sekin pettää kun ei ole Exceliä nähnyt kahteen kuukauteen).
Koitettu jo... Siis pitäisi saada tuo "X euroa" pitkässä tekstilitaniassa korostettu ajollain tavalla, joko eri värillä tai alleviivattuna tms.
Taulukon moduuliin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Jäsenmaksu
End Sub
Sub Jäsenmaksu()
Dim x As Integer
Dim teksti As String
teksti = "Uusi jäsen sitoutuu maksamaan seuralle " & Range("A28").Text
teksti = teksti & " euron jäsenmaksun.... "
x = Len(Range("A28").Text)
With Range("A1")
.NumberFormat = "@"
.Formula = teksti
.Characters(Start:=1, Length:=28).Font.ColorIndex = 0
.Characters(Start:=40, Length:=x).Font.ColorIndex = 3
.Characters(Start:=40 x, Length:=30).Font.ColorIndex = 0
End With
End Sub
alleviivaus esim.
.Underline = xlUnderlineStyleSingle