Onnistuuko tekstin yhdistäminen niin että molempien solujen muotoilu säilyisi? Esim. tämä ei pelitä vaikka D1 on kursivoitu =D1&" "&E1.
Eli pitäisi saada d1 kursiivilla ja E1 ilman muotoiluja soluun C1.
Kiitos!
Eli pitäisi saada d1 kursiivilla ja E1 ilman muotoiluja soluun C1.
Kiitos!
Vastaukset 1
Vanhimmat
taulukon moduuliin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Range("C1").FormulaR1C1 = Range("D1") & " " & Range("E1")
Range("C1").Characters(Start:=1, Length:=Len(Trim(Range("D1")))).Font.FontStyle = "Kursivoitu"
Range("C1").Characters(Start:=Len(Trim(Range("D1"))) 1, Length:=Len(Trim(Range("E1"))) 1).Font.FontStyle = "Normaali"
Application.ScreenUpdating = True
End Sub