Function về điều chỉnh chiều cao hàng theo tham số cho trước

[Mr.hieudoanxd]

Chào cả nhà ạ.
Em có bài toán thế này. Em cần viết hàm Function điều chỉnh chiều cao hàng chỉ định theo tham số cho trước dạng như sau:
Function (rng as range, num as long) as ......
nhưng do kiến thức hạn hẹp nên chưa đủ khả năng làm được, Mong các cao nhân giúp đỡ

 

[vu_tuan_manh_linh]

Chào cả nhà ạ.
Em có bài toán thế này. Em cần viết hàm Function điều chỉnh chiều cao hàng chỉ định theo tham số cho trước dạng như sau:
Function (rng as range, num as long) as ......
nhưng do kiến thức hạn hẹp nên chưa đủ khả năng làm được, Mong các cao nhân giúp đỡ

Giả sử làm được cái Function(), đúng hơn là 1 cái Sub() như ý của bạn thì chiều cao hàng này không cố định được, nó vẫn sẽ nhảy tưng tưng sau khi có tác động của các thao tác trên cell.

 

[Mr.hieudoanxd]

Giả sử làm được cái Function(), đúng hơn là 1 cái Sub() như ý của bạn thì chiều cao hàng này không cố định được, nó vẫn sẽ nhảy tưng tưng sau khi có tác động của các thao tác trên cell.

Đúng rồi bạn, mình đang muốn nó nhảy theo ý đó mà. Mình có lý do để cần làm việc đó chứ ko phải cho vui đâu ạ
Không biết bạn đã gặp trường hợp này chưa? Khi bạn ở màn hình thao tác excel thì các chữ nó vừa văn trang in.... nhưng khi bạn chuyển sang chế độ in ấn thì nó bị thừa ra bạn theo dõi ví dụ mình gửi nhé.
Nếu sub() mình không bàn, nhưng khi phải sử dụng 1 số lượng lớn các ô thì code sẽ rất giật mình muốn có hàm dạng UDF sẽ nhanh hơn rất nhiều
Mở rộng ra nữa mình muốn viết UDF cho trường hợp tô mầu, căn lề, tạo style riêng...... nhưng do trình độ hạn hẹp ko nghĩ được.
Diễn đàn không bác nào giúp ạ. (

 

[Mr.hieudoanxd]

Bài viết em chỉm hẳn rồi ạ, không ai giúp em ạ. huhuhuhuhuhu

 

[Maika8008]

Bài viết em chỉm hẳn rồi ạ, không ai giúp em ạ. huhuhuhuhuhu

Tôi nghĩ không làm được Function như bạn muốn vì Function chỉ trả về giá trị chứ không tác động được đến thuộc tính của Range (ngoại trừ dùng ClassModule có được không thì tôi mù tịt)

 

[Mr.hieudoanxd]

Tôi nghĩ không làm được Function như bạn muốn vì Function chỉ trả về giá trị chứ không tác động được đến thuộc tính của Range (ngoại trừ dùng ClassModule có được không thì tôi mù tịt)

Mình thấy có anh hesanbi trước có viết hàm UDF cho việc Tự động co giãn dòng, nên em nghĩ khả năng vẫn được đó ạ.

 

[Maika8008]

Mình thấy có anh hesanbi trước có viết hàm UDF cho việc Tự động co giãn dòng, nên em nghĩ khả năng vẫn được đó ạ.

Bạn tìm lại bài ấy chép cái link gửi vào đây cho tôi tham khảo tí. Cảm ơn trước!

 

[Mr.hieudoanxd]

Bạn tìm lại bài ấy chép cái link gửi vào đây cho tôi tham khảo tí. Cảm ơn trước!

SIÊU HÀM - Co giãn dòng tự động tối ưu nhất cho Excel v2.42 (*14/10/2024)

***** CẬP NHẬT - v2.42 ***** Cập nhật 2.42 sửa một số lỗi trong mã và tăng tốc giãn dòng bằng cách giãn đồng thời các ô giá trị cùng cột Và thêm các hàm bổ trợ giãn dòng cho Bảng để tiết kiệm hơn trong quá trình giãn dòng, với hàm bổ trợ fit_Tables() Dự kiến bản cập nhật tiếp theo Thêm hàm...

www.giaiphapexcel.com

đây bạn

 

[Maika8008]

SIÊU HÀM - Co giãn dòng tự động tối ưu nhất cho Excel v2.42 (*14/10/2024)

***** CẬP NHẬT - v2.42 ***** Cập nhật 2.42 sửa một số lỗi trong mã và tăng tốc giãn dòng bằng cách giãn đồng thời các ô giá trị cùng cột Và thêm các hàm bổ trợ giãn dòng cho Bảng để tiết kiệm hơn trong quá trình giãn dòng, với hàm bổ trợ fit_Tables() Dự kiến bản cập nhật tiếp theo Thêm hàm...

www.giaiphapexcel.com

đây bạn

Hic! Chắc phải ngắm thôi chứ cỡ VBA tôi thì không chạm tới được.

 

[vu_tuan_manh_linh]

SIÊU HÀM - Co giãn dòng tự động tối ưu nhất cho Excel v2.42 (*14/10/2024)

***** CẬP NHẬT - v2.42 ***** Cập nhật 2.42 sửa một số lỗi trong mã và tăng tốc giãn dòng bằng cách giãn đồng thời các ô giá trị cùng cột Và thêm các hàm bổ trợ giãn dòng cho Bảng để tiết kiệm hơn trong quá trình giãn dòng, với hàm bổ trợ fit_Tables() Dự kiến bản cập nhật tiếp theo Thêm hàm...

www.giaiphapexcel.com

đây bạn

Bê nguyên code sang xài thôi bạn!!

 

[qtm1987]

Đúng rồi bạn, mình đang muốn nó nhảy theo ý đó mà. Mình có lý do để cần làm việc đó chứ ko phải cho vui đâu ạ
Không biết bạn đã gặp trường hợp này chưa? Khi bạn ở màn hình thao tác excel thì các chữ nó vừa văn trang in.... nhưng khi bạn chuyển sang chế độ in ấn thì nó bị thừa ra bạn theo dõi ví dụ mình gửi nhé.
Nếu sub() mình không bàn, nhưng khi phải sử dụng 1 số lượng lớn các ô thì code sẽ rất giật mình muốn có hàm dạng UDF sẽ nhanh hơn rất nhiều
Mở rộng ra nữa mình muốn viết UDF cho trường hợp tô mầu, căn lề, tạo style riêng...... nhưng do trình độ hạn hẹp ko nghĩ được.
Diễn đàn không bác nào giúp ạ. (

Cách mình làm thủ công cho trường hợp này là các văn bản chuyển qua Excel thì nội dung mình luôn để riêng 1 cột phụ (cột này không Merge để chiều cao ô co dãn theo Wrap Text và độ rộng cột bằng trang in), hàng tại vùng dữ liệu in sẽ đặt công thức = hàng tại cột phụ này. Và khi bạn có Merge các ô trong vùng in thì độ cao của ô sẽ luôn khớp với ô tại cột phụ (do các ô khi Merge sẽ không Wrap Text được). Mình hay dùng cách này cho các hợp đồng chuyển qua làm bằng file excel.

 

[Mr.hieudoanxd]

Cách mình làm thủ công cho trường hợp này là các văn bản chuyển qua Excel thì nội dung mình luôn để riêng 1 cột phụ (cột này không Merge để chiều cao ô co dãn theo Wrap Text và độ rộng cột bằng trang in), hàng tại vùng dữ liệu in sẽ đặt công thức = hàng tại cột phụ này. Và khi bạn có Merge các ô trong vùng in thì độ cao của ô sẽ luôn khớp với ô tại cột phụ (do các ô khi Merge sẽ không Wrap Text được). Mình hay dùng cách này cho các hợp đồng chuyển qua làm bằng file excel.

Mình cũng đã áp dụng cách của bạn rồi. Tuy nhiên có vấn đề này, có thể do khả năng diễn đạt mình không được tốt nên các bạn chưa hiểu ý của mình. Khi sử dụng code dãn dòng ô gộp và các của bạn Wrap text trong excel bạn để ở chế độ xem trong excel rất đẹp, vừa nhưng sang in ấn nó lại bị thừa dòng. như ảnh mình gửi ở chế độ xem trên excel
Còn đây là khi in ấn ra

khi mình thực hiện sub() dãn dòng theo số lượng kí tự của ô hàm len() trong vba thì sẽ ntn
kết quả khi in
Sub thì mình làm đc rồi nhưng function thì mình chưa làm đc....

Bài đã được tự động gộp: 12/8/21

Hic! Chắc phải ngắm thôi chứ cỡ VBA tôi thì không chạm tới được.

Bác cứ khiêm tốn.

 

[qtm1987]

Tại mục Styles > chuột phải vào Normal > modify > tab font chọn lại Time New Roman thử được không.
Bạn tham khảo thêm bài này #14 giống trường hợp của bạn do cái Styles mà bác Ndu đã hướng dẫn

Lỗi dùng Wrap text và Format\Autofit Row Hight in vẫn mất chữ

Nhờ các thầy và mọi người test giúp File đính kèm xem không hiểu vì sao: Đã dùng Wrap text và Format\Autofit Row Hight nhưng vẫn bị mất chữ khi in, Xem trước khi in Trong File Giữ nguyên chiều rộng cột thay đổi chiều cao dòng tự động để khi in nhìn thấy tất cả thông tin của cột B (Độ rộng của...

www.giaiphapexcel.com