askan
Destek Ekibi
- Katılım
- 7 Mar 2021
- Mesajlar
- 1,926
- Çözümler
- 471
- Aldığı beğeni
- 2,530
- Excel V
- Office 365 TR
Konu Sahibi
Aşağıda kodları yazılı işlem ile birleştirme ve birleştirilen her kelimenin farklı renkte görünmesi sağlanmıştır. Bunu KTF haline dönüştürmemiz mümkün mü acaba ? Örnek 4 kelime için bunu arttırarak çoğaltmak mümkün mü?
Sub Macro2()
Dim T1 As String, T2 As String, T3 As String, T4 As String
With Worksheets("Sayfa1").Range("F11")
T1 = Range("F1").Text
T2 = Range("F2").Text
T3 = Range("F3").Text
T4 = Range("F4").Text
.Value = T1 & " " & T2 & " " & T3 & " " & T4
.Characters(1, Len(T1)).Font.Color = 16776961
.Characters(Len(T1) + 2, Len(T2)).Font.Color = -16776961
.Characters(Len(T1) + Len(T2) + 2, Len(T3) + 1).Font.Color = 16711680
.Characters(Len(T1) + Len(T2) + Len(T3) + 3, Len(T4) + 2).Font.Color = 16711935
End With
End Sub
Sub Macro2()
Dim T1 As String, T2 As String, T3 As String, T4 As String
With Worksheets("Sayfa1").Range("F11")
T1 = Range("F1").Text
T2 = Range("F2").Text
T3 = Range("F3").Text
T4 = Range("F4").Text
.Value = T1 & " " & T2 & " " & T3 & " " & T4
.Characters(1, Len(T1)).Font.Color = 16776961
.Characters(Len(T1) + 2, Len(T2)).Font.Color = -16776961
.Characters(Len(T1) + Len(T2) + 2, Len(T3) + 1).Font.Color = 16711680
.Characters(Len(T1) + Len(T2) + Len(T3) + 3, Len(T4) + 2).Font.Color = 16711935
End With
End Sub
