Hỏi code trả về số đầu dòng trong 1 cell trong excel

[Trojan]

Tôi đang gặp vấn đề với 1 cell trong excel là trong 1 ô dữ liệu sau khi textwrap thì có xuống thành nhiều dòng. Xin hỏi các mem thủ tục sao để trả về giá trị là số dòng hoặc đầu dòng trong 1 cell đó. Chân thành cảm ơn mọi hướng dẫn.
P/S: Xin ghi chú là không phải thủ tục để biết vị trí dòng của ô (activecell.row)

 

[ndu96081631]

Tôi đang gặp vấn đề với 1 cell trong excel là trong 1 ô dữ liệu sau khi textwrap thì có xuống thành nhiều dòng. Xin hỏi các mem thủ tục sao để trả về giá trị là số dòng hoặc đầu dòng trong 1 cell đó. Chân thành cảm ơn mọi hướng dẫn.
P/S: Xin ghi chú là không phải thủ tục để biết vị trí dòng của ô (activecell.row)

Nếu bạn cố ý xuống dòng bằng cách dùng Alt + Enter thì còn xác định được, chứ còn Wraptext bình thường thì tôi nghĩ hổng trời nào biết được cell ấy có bao nhiêu lines cũng như line đầu tiên chứa chuổi gì đâu

 

[Trojan]

Cảm ơn anh ndu96081631, nếu xuống dòng bằng alt+enter thì đếm nó như thế nào anh?

 

[huuthang_bd]

Cảm ơn anh ndu96081631, nếu xuống dòng bằng alt+enter thì đếm nó như thế nào anh?

Alt + Enter cũng là một ký tự. Vì vậy nếu xuống dòng bằng Alt + Enter thì bạn căn cứ vào ký tự này mà tìm thôi:
Số dòng:

Len(Selection.Value) - Len(Replace(Selection.Value, Chr(10), "")) + 1

Dòng đầu:

Left(Selection.Value, InStr(Selection.Value, Chr(10)) - 1)

 

[ndu96081631]

Alt + Enter cũng là một ký tự. Vì vậy nếu xuống dòng bằng Alt + Enter thì bạn căn cứ vào ký tự này mà tìm thôi:
Số dòng:

Len(Selection.Value) - Len(Replace(Selection.Value, Chr(10), "")) + 1

Dòng đầu:

Left(Selection.Value, InStr(Selection.Value, Chr(10)) - 1)

Là ActiveCell chứ sao lại Selection nhỉ? (Selection có thể là Range, cũng có thể là Object còn ActiveCell thì luôn là Range... Selection có thể chứa nhiều cell nhưng ActiveCell luôn chỉ 1)
Có thể thay bằng:

UBound(Split(ActiveCell.Value, vbLf)) + 1

Và

Split(ActiveCell.Value, vbLf)(0)

Chú ý bẫy lỗi những cell = ""

 

[Trojan]

Tôi chưa thử các hướng dẫn trên của các anh nhưng cũng xin cảm ơn vì những giúp đỡ này.