Xin hỗ trợ code - mở rộng dòng theo tùy biến

[le_vis]

Tôi có sử dụng code AutoFit dòng (Có trộn dòng).
Khi cho chạy code thì :
- Dòng chỉ mở tối đa được Row Hei ght = 45 mà thôi.
Ví dụ như File đính kèm chạy thử dòng 48 thì thấy rõ
Xin các bạn hỗ trợ biện pháp xử lý cho code chạy tùy biến khi dữ liệu trong vùng đó tăng giảm tùy chọn
- Xin trân trọng cảm ơn

 

[befaint]

Giải thuật:
- Xác định kích thước chuỗi theo một cell chuẩn, đã tính tới font style và font size.
- Xác định kích thước vùng cần thiết lập kích thước chiều cao dòng (vùng đó có thể có gộp ô theo dòng/ và hoặc cột) - kích thước ứng với trường hợp chỉ có 1 dòng chuỗi.
- Từ hai mục trên tính toán được chiều cao dòng cho vùng cần thiết lập.

 

[le_vis]

Giải thuật:
- Xác định kích thước chuỗi theo một cell chuẩn, đã tính tới font style và font size.
- Xác định kích thước vùng cần thiết lập kích thước chiều cao dòng (vùng đó có thể có gộp ô theo dòng/ và hoặc cột) - kích thước ứng với trường hợp chỉ có 1 dòng chuỗi.
- Từ hai mục trên tính toán được chiều cao dòng cho vùng cần thiết lập.

Xin thầy xử lý cụ thể giúp. Tôi xoay mãi không được - Cảm ơn thầy

 

[Nhattanktnn]

Xin thấy xử lý cụ thể giúp. Tôi xoay mãi không được - Cảm ơn thầy

Tôi nghĩ cụ thể hóa nó thế này (ví dụ với một ô C48):
1/ C48 đang trộn thì :

a=Range("C48").MergeArea.Width

2/ Tính độ rộng cột C (b)
3/ Bỏ trộn đi (lúc đó dữ liệu sẽ chỉ nằm cột C), mở rộng cột C đúng bằng độ rộng vùng trộn (a), dùng autofit
4/ dữ liệu vừa dòng rồi thì trộn lại như ban đầu và đưa cột C về độ rộng ban đầu của nó
Nghĩ vậy, chưa làm

 

[le_vis]

Tôi nghĩ cụ thể hóa nó thế này (ví dụ với một ô C48):
1/ C48 đang trộn thì :

a=Range("C48").MergeArea.Width

2/ Tính độ rộng cột C (b)
3/ Bỏ trộn đi (lúc đó dữ liệu sẽ chỉ nằm cột C), mở rộng cột C đúng bằng độ rộng vùng trộn (a), dùng autofit
4/ dữ liệu vừa dòng rồi thì trộn lại như ban đầu và đưa cột C về độ rộng ban đầu của nó
Nghĩ vậy, chưa làm

Rất cảm ơn bạn đã quan tâm giúp :
Tôi muốn thực hiện như mục 1 bạn đã nêu nhưng đưa câu lệnh đó vào báo lỗi luôn.
Với cách 3 và 4 thì phải thao tác thủ công sau đó thì thà ta để dùng chuột kéo dãn có khi nhanh hơn phải không bạn

 

[befaint]

Với cách

Ợ. Đấy không phải là cách, các cách... mà là giải thuật của người ta. Từ giải thuật đó để viết code.

 

[le_vis]

Ợ. Đấy không phải là cách, các cách... mà là giải thuật của người ta. Từ giải thuật đó để viết code.

Xin thầy giúp cho được không ạ.