Tự động đổi màu ký tự bắt đầu từ vị trí cố định trong chuỗi 32 ký tự (1 người xem)

[hhduc]

Hi các anh chị,

Em có 1 đoạn chuỗi, nay muốn khi nhập vào excel thì

Tự động đổi màu:

Bắt đầu từ ký tự thứ 2 - tô 2 ký tự và từ vị trí thứ 6 - tô 3 ký tự và vi trí 14 - tô 7 ký tự. Như đoạn chuỗi bên dưới.

GV602L2710903400219908D10330Q0003
GV702A0132238200024108D10330Q0003


Mục đích để để dễ phân biệt
Xin cám ơn

 

[chucuoi92]

Hi các anh chị,

Em có 1 đoạn chuỗi, nay muốn khi nhập vào excel thì

Tự động đổi màu:

Bắt đầu từ ký tự thứ 2 - tô 2 ký tự và từ vị trí thứ 6 - tô 3 ký tự và vi trí 14 - tô 7 ký tự. Như đoạn chuỗi bên dưới.

GV602L2710903400219908D10330Q0003
GV702A0132238200024108D10330Q0003


Mục đích để để dễ phân biệt
Xin cám ơn

Ghi lại một macro:
ví dụ vùng A1:A100 là vùng dữ liệu cần tô màu
sau khi nhập liệu thì chạy macro này:
Sub Macro1()
Dim cll As Range
For Each cll In Range("A1:A100")
With cll
.Characters(Start:=2, Length:=2).Font.Color = -16776961
.Characters(Start:=6, Length:=3).Font.Color = -16776961
.Characters(Start:=14, Length:=7).Font.Color = -16776961
End With
Next
End Sub

 

[hhduc]

Thank anh, em có thêm 2 cột nữa cần tô màu như vậy, thay vì tạo thêm 2 macro cho 2 cột đó, có thể làm chung 1 macro không anh?

Thêm 1 CỘT vào For Each cll In Range("A1:A100", "C1:C100") thì chạy được.

Em thêm 2 cột vào For Each cll In Range("A1:A100", "C1:C100", "E1:E100") thì lỗi bị lỗi

 

[chucuoi92]

Thank anh, em có thêm 2 cột nữa cần tô màu như vậy, thay vì tạo thêm 2 macro cho 2 cột đó, có thể làm chung 1 macro không anh?

Thêm 1 CỘT vào For Each cll In Range("A1:A100", "C1:C100") thì chạy được.

Em thêm 2 cột vào For Each cll In Range("A1:A100", "C1:C100", "E1:E100") thì lỗi bị lỗi

Bỏ bớt dấu nháy kép đi :For Each cll In Range("A1:A100, C1:C100, E1:E100")