Thursday, March 28, 2019

11. [Word Excel VBA] Change format for a part of text in cell

Cú pháp: Cells(a,b).Characters(Start:=i, Length:=j).Font.Color = Mã màu
Trong đó: Cells(a,b): địa chỉ ô cần đổi font
                               i: Vị trí bắt đầu muốn đổi font
                               j: Số ký tự muốn đổi font bắt đầu từ ký tự thứ i

Ví dụ đổi Font các ký tự của ô B5 theo từng ký tự của ô B4 va C4:
Sub test1()
Sheet2.Range("B5") = Sheet2.Range("B4").Text & Sheet2.Range("C4").Text
a1 = Sheet2.Range("B4").Text
a2 = Sheet2.Range("C4").Text
For i = 1 To Len(a1) '+ Len(Sheet1.Range(a2))
Sheet2.Range("B5").Characters(Start:=i, Length:=1).Font.Color = Sheet2.Range("B4").Characters(Start:=i, Length:=1).Font.Color
Sheet2.Range("B5").Characters(Start:=i, Length:=1).Font.Size = Sheet2.Range("B4").Characters(Start:=i, Length:=1).Font.Size
Sheet2.Range("B5").Characters(Start:=i, Length:=1).Font.Name = Sheet2.Range("B4").Characters(Start:=i, Length:=1).Font.Name
Next
For i = 1 To Len(a2)
Sheet2.Range("B5").Characters(Start:=i + Len(a1), Length:=1).Font.Color = Sheet2.Range("C4").Characters(Start:=i, Length:=1).Font.Color
Sheet2.Range("B5").Characters(Start:=i + Len(a1), Length:=1).Font.Size = Sheet2.Range("C4").Characters(Start:=i, Length:=1).Font.Size
Sheet2.Range("B5").Characters(Start:=i + Len(a1), Length:=1).Font.Name = Sheet2.Range("C4").Characters(Start:=i, Length:=1).Font.Name
Next
End Sub

No comments:

Post a Comment

Over 50 Ebooks Excel and VBA free Download

1. Statistics and Probability for Engineering Applications With Microsoft Excel by W.J. DeCoursey - PDF Free Download Download Siz...