Xin hỏi cách tự động định dạng text có xuống dòng trong cùng 1 cell (5 người xem)

[hainet]

aaa

Xin chào các anh chị trong diễn đàn .
Xin chân thành cảm ơn các anh chị .

 

[hainet]

anh chị nào biết xin vào giúp đỡ cho em . Chân thành cảm ơn .

 

[mhung12005]

anh chị nào biết xin vào giúp đỡ cho em . Chân thành cảm ơn .

Yêu cầu của bạn chắc phải làm bằng VBA. Bạn đưa file thật lên để mọi người giúp chứ file có 2 dòng dữ liệu thì khó test tổng quát lắm.

 

[hainet]

Yêu cầu của bạn chắc phải làm bằng VBA. Bạn đưa file thật lên để mọi người giúp chứ file có 2 dòng dữ liệu thì khó test tổng quát lắm.

Cảm on anh đã góp ý , file thật có thông tin rất nhiều người trong công ty nên em mạn phép không đưa lên đây, em đưa 2 file mà em làm bằng tay từng dòng để làm mẫu , file của công ty em cũng muốn định dạng tương tự như vậy . Mong anh giúp đỡ . Chân thành cảm ơn .

 

[mhung12005]

Cảm on anh đã góp ý , file thật có thông tin rất nhiều người trong công ty nên em mạn phép không đưa lên đây, em đưa 2 file mà em làm bằng tay từng dòng để làm mẫu , file của công ty em cũng muốn định dạng tương tự như vậy . Mong anh giúp đỡ . Chân thành cảm ơn .

Bạn xem file đính kèm nhé. Nhấn vào nút đổi phông để xem kết quả.

 

[hainet]

Bạn xem file đính kèm nhé. Nhấn vào nút đổi phông để xem kết quả.

Cảm ơn anh , file chạy đúng như mong muốn của em. Xin cho em hỏi thêm một vài ý :
- Nếu áp dụng vào file dữ liệu thật của em thì làm thế nào ?
- Nếu muốn xử lý định dạng dòng trên hoặc dòng dưới (đậm, nghiêng, gạch dưới, thay đổi font, cỡ font) thì phải làm như thế nào ?
Thân chào .

 

[mhung12005]

- Nếu áp dụng vào file dữ liệu thật của em thì làm thế nào ?

Mình đã biết file thật của bạn thế nào đâu mà biết cách áp dụng chứ.

- Nếu muốn xử lý định dạng dòng trên hoặc dòng dưới (đậm, nghiêng, gạch dưới, thay đổi font, cỡ font) thì phải làm như thế nào ?

Nếu bạn muốn thay đổi font của dòng trên hoặc dòng dưới thì bạn thay đổi hoặc thêm dòng này:

Dòng trên = .Characters(1, lPos)
Dòng dưới = .Characters(lPos + 1, Len(rCll) - lPos)

Định cỡ chữ là 13 cho dòng trên = .Characters(1, lPos).Font.Size = 13
Định cỡ chữ là 9 cho dòng dưới = .Characters(lPos + 1, Len(rCll) - lPos).Font.Size = 9

Tương tự Font. FontStyle như Font.Size thôi.

Font. FontStyle = "Bold" hoặc Font.Bold = 1 --> đậm
Font. FontStyle = "Italic" hoặc Font.Italic = 1 --> nghiêng
Font. .Underline = xlUnderlineStyleSingle hoặc Font.Underline = 2 --> có gạch chân
...

Hy vọng bạn hiểu đc phần nào.

 

[hainet]

Mình đã biết file thật của bạn thế nào đâu mà biết cách áp dụng chứ.



Nếu bạn muốn thay đổi font của dòng trên hoặc dòng dưới thì bạn thay đổi hoặc thêm dòng này:

Dòng trên = .Characters(1, lPos)
Dòng dưới = .Characters(lPos + 1, Len(rCll) - lPos)

Định cỡ chữ là 13 cho dòng trên = .Characters(1, lPos).Font.Size = 13
Định cỡ chữ là 9 cho dòng dưới = .Characters(lPos + 1, Len(rCll) - lPos).Font.Size = 9

Tương tự Font. FontStyle như Font.Size thôi.

Font. FontStyle = "Bold" hoặc Font.Bold = 1 --> đậm
Font. FontStyle = "Italic" hoặc Font.Italic = 1 --> nghiêng
Font. .Underline = xlUnderlineStyleSingle hoặc Font.Underline = 2 --> có gạch chân
...

Hy vọng bạn hiểu đc phần nào.

Bữa giờ em bận quá nên chưa xem qua, hôm nay vào thấy hướng dẫn của anh làm theo đã được như ý muốn trên file của anh làm (file goc.xls)). Cảm ơn anh đã hướng dẫn tận tình . Có một điều em muốn hỏi là làm như thế nào để áp dụng đoạn code của anh vào một file khác mà em đã định dạng chứ không phải trên file goc . Mong anh hướng dẫn em .