Đếm số dòng hiển thị trong 1 ô

[Phuocam]

Chào các bạn.

Mình muốn đếm số dòng hiển thị trong một ô bằng VBA, như đếm số dòng trong ô B2, kết quả là 6. Số dòng trong ô B3, kết quả là 9

Mong các bạn giúp đỡ.

Cám ơn các bạn.

 

[Hai Lúa Miền Tây]

Chào các bạn.

Mình muốn đếm số dòng hiển thị trong một ô bằng VBA, như đếm số dòng trong ô B2, kết quả là 6. Số dòng trong ô B3, kết quả là 9

Mong các bạn giúp đỡ.

Cám ơn các bạn.

Chào các bạn.

Mình muốn đếm số dòng hiển thị trong một ô bằng VBA, như đếm số dòng trong ô B2, kết quả là 6. Số dòng trong ô B3, kết quả là 9

Mong các bạn giúp đỡ.

Cám ơn các bạn.

Nếu dữ liệu với cùng 1 font và size thì nó sẽ ra kết quả chính xác hơn.

 

[Phuocam]

Nếu dữ liệu với cùng 1 font và size thì nó sẽ ra kết quả chính xác hơn.

Dữ liệu trong 1 ô cùng 1 font và 1 size.

Cám ơn bạn.

 

[Hai Lúa Miền Tây]

Dữ liệu trong 1 ô cùng 1 font và 1 size.

Cám ơn bạn.

Dữ liệu giữa các ô trên bảng tính anh à.

 

[Phuocam]

Dữ liệu giữa các ô trên bảng tính anh à.

Chỉ cần giải thuật đếm 2 ô đó thôi, hàm tự tạo cũng được.

Như: = SoDong(B2) -> kết quả bằng 6

 

[befaint]

đếm số dòng hiển thị trong một ô bằng VBA

Oh, lúc sáng là chỉnh để số dòng trong 1 cell bằng số dòng cho trước mà.
Mình định nêu bài này chỉ cần xác định được số dòng trong 1 cell là giải quyết được.
Giải thuật đại khái như này:
- Merge = False -> xác định row height: h1
- Merge = True -> Xác định row height: h2
=> Số dòng hiện tại n_row = h2/ h1
- Chỉnh row.font.size = tăng/ giảm và quay lại xác định h1', h2' và n_row'.
So sánh n_row' với số dòng cần chỉnh --> Thỏa mãn.
Lưu ý: Chỉnh font.size của cả row.

 

[Phuocam]

Oh, lúc sáng là chỉnh để số dòng trong 1 cell bằng số dòng cho trước mà.
Mình định nêu bài này chỉ cần xác định được số dòng trong 1 cell là giải quyết được.
Giải thuật đại khái như này:
- Merge = False -> xác định row height: h1
- Merge = True -> Xác định row height: h2
=> Số dòng hiện tại n_row = h2/ h1
- Chỉnh row.font.size = tăng/ giảm và quay lại xác định h1', h2' và n_row'.
So sánh n_row' với số dòng cần chỉnh --> Thỏa mãn.
Lưu ý: Chỉnh font.size của cả row.

Mình giảm yêu cầu xuống đếm số dòng trong 1 ô. Phần chỉnh dòng mình tự mò tiếp, he he...

Chỉ cần = SoDong(B2) có kết quả bằng 6 là đạt yêu cầu.

 

[VetMini]

Ở diễn đàn này có khoảng 2 hay 3 người chuyên vè mẫu mã phông và kích thước ô.
Bạn cứ tìm theo bài của mấy người ấy sẽ ra.

(nếu tôi dự đoán không lầm thì từ giờ đến tối một trong những người ấy sẽ vào giúp bạn)

 

[HieuCD]

Mình giảm yêu cầu xuống đếm số dòng trong 1 ô. Phần chỉnh dòng mình tự mò tiếp, he he...

Chỉ cần = SoDong(B2) có kết quả bằng 6 là đạt yêu cầu.

"Mình giảm yêu cầu xuống". Hình như khó làm hơn

 

[HeSanbi]

Nếu bác có khả năng tận dụng API thì keyword để giải bài này: WinApi Get Font Size

Cách khác sử dụng AutoFit: Lấy chiều cao của ô chứa chuỗi chia cho chiều cao AutoFit Row 1 ký tự

Cách khác sử dụng AutoSize của Label trong UserForm:

Tạo 2 label: Label1 có caption chứa 1 ký tự , Label2 chứa giá trị ô cần đếm.​

Đặt các thuộc tính Font cho cả hai label là thuộc tính của ô. Đặt độ rộng của Label2 = độ rộng Ô.​

Cuối cùng lấy chiều cao label2 chia cho chiều cao label1. Cần thêm tham số sai lệch để xử lý sai lệch nếu có.​

Để viết thành hàm UDF thì bác có thể tham khảo phần API bài viết Hàm mảng động của tôi.
------------------------------------------

Cái này đếm cho vui thôi. Ứng dụng thực tế cho in ấn là hỏng.

Khi Chỉnh độ rộng cột thì các từ phía sau cũng sẽ dịch chuyển. Vì vậy cần lấy độ rộng của từng từ cộng lại nếu lớn hơn độ rộng cột thì chuyển xuống cộng dồn.
---------------------------------------------



---------------------------------------------
Lỗi sẽ mắc phải:

 

[Hai Lúa Miền Tây]

Mình giảm yêu cầu xuống đếm số dòng trong 1 ô. Phần chỉnh dòng mình tự mò tiếp, he he...

Chỉ cần = SoDong(B2) có kết quả bằng 6 là đạt yêu cầu.

Anh phát triển theo ý tưởng sau thử nhé.

Public Function SoDong(cll As Range, ChieuCao As Integer) As Integer
    Application.Volatile
    SoDong = cll.Height / ChieuCao
End Function

 

[Phuocam]

Cám ơn các bạn đã giúp đỡ.

 

[hunglam123]

Chào các bạn.

Mình muốn đếm số dòng hiển thị trong một ô bằng VBA, như đếm số dòng trong ô B2, kết quả là 6. Số dòng trong ô B3, kết quả là 9

Mong các bạn giúp đỡ.

Cám ơn các bạn.

B2 =INT(LEN(B2)/45)

 

[VetMini]

Công thức đếm dòng bằng cách tính LEN chỉ áp dụng được cho loại phông có độ rộng đồng nhất (monospaced/fixed-pitch/non-proportional)
Điển hình là Courier.
Các loại phông như Arial, Times New Roman chúng đâu có đồng bộ đâu. 100 dấu cách đâu có chiếm chỗ bằng 100 ký tự W.