SIÊU HÀM - Co giãn dòng tự động tối ưu nhất cho Excel v2.31

***** SIÊU CẬP NHẬT - v2.3 *****

1. Đã tạo Add-in cho hàm giãn dòng, thêm phím tắt giãn dòng CTRL+SHIFT+ALT+R.
2. Thay đổi giải thuật giãn dòng chính xác hơn.
3. Cách viết hàm khác hoàn toàn so với trước, đối số nhập vào phải là một hàm.
4. Giãn dòng kể cả ô vượt giới hạn 409.5 đơn vị chiều cao ô Excel.
5. Giãn dòng biên bản tự động dịch chuyển và canh trang để chỉ mục không bị trồi lên hoặc thụt xuống trang khác.
6. Chỉ cần gõ 1 biểu thức FITROW duy nhất cho cả vùng ô cần giãn dòng.
7. Có hai phiên bản ứng dụng của hàm FITROW:

• Mã viết trong 1 module duy nhất (tốn kém bộ nhớ khi ứng dụng hoạt động).
• Sử dụng mã trong Classes (tiết kiệm bộ nhớ).

-------------------------------------------------------------------

Hôm nay tôi lại chia sẻ cho các bạn một Hàm VBA UDF có chức năng tự động co giãn dòng khi giá trị trong bảng tính thay đổi, thì quá trình co giãn dòng cũng tự động thay đổi theo.
Code bên dưới là phiên bản đầu nên có thể gặp một số lỗi nhất định, nên khi tham khảo thì các bạn nên kiểm trước, nếu code hoạt động ổn định thì các bạn có thể sử dụng.

Tôi quyết định viết code này bỡi vì trên diễn đàn có nhiều bài viết hỏi về co giãn dòng tự động, và khi tôi đọc qua các bài viết đó thì không thấy ai có thể xử lý vấn đề triệt để, hoặc là code chưa tối ưu, hoặc code chưa xử lý được nhiều vùng đã gộp cùng dòng.

Và hàm UDF là một cách tối ưu nhất giúp các bạn không phải code lại, mà chỉ cần viết Hàm như một hàm Excel bình thường để thực hiện tác vụ co giãn dòng.


HÀM FITROW - TỰ ĐỘNG GIÃN DÒNG

Chức năng ưu việt:

1. Co giãn dòng hoàn toàn tự động.
2. Co giãn dòng kể cả các ô đã được gộp.
3. Co giãn dòng với các giá trị nhiều ô gộp cùng dòng.
4. Co giãn dòng kể cả chiều cao vượt giới hạn của Excel là 409.5
5. Hoạt động cả ở chế độ Xem In Ấn.
6. Cách gõ hàm cài đặt đối số tùy chỉnh ưu việt:
   • Thêm chiều cao nhất định cho dòng đã giãn.
   • Đặt chiều cao mặc định cho vùng trống.
   • Đặt chiều cao mặc định cho dòng trống.
   • Tự đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn.
   
   
7. Vì dùng hàm UDF nên rất tối ưu, tiết kiệm CPU.
8. Chỉ cần gõ một biểu thức FITROW cho cả vùng cần co giãn.

Hướng dẫn sử dụng hàm:

Hàm FITROW được viết theo phương pháp mới nên cách nhập đối số là gõ hàm như dưới đây:

Hàm cài đặt và bổ trợ	Kiểu	Chức năng
ff_Padding(Height)	Số	Tăng chiều cao thêm một số
ff_defaultHeight(Height)	Số	Chiều cao mặc định nếu giá trị rỗng, dễ hiểu, nếu co giãn vùng ô A1:C20, mà cả vùng đó rỗng, thì chỉnh về chiều cao mặc định.
ff_HeightOfRowNull(Height)	Số	Đặt chiều cao mặc định cho cả dòng rỗng (giãn vùng A1:Z20, dòng A2:Z2 rỗng)
ff_AllSheets()	Có	Giãn dòng kể cả vùng ở trang tính không hiện hành.
ff_AutoFit()	Có	Bật tự động Fit khi ô tham chiếu thay đổi giá trị
ff_Indexes(cell1,cell2,...)	Vùng chứa nhóm văn bản	Căn chỉnh biên bản ở chế độ PrintView, khi giãn dòng, chiều cao trang in có thể cao hơn hoặc thấp hơn, làm cho trang in bị xê dịch, nên cần điều chỉnh để phù hợp.
ff_Scale(scaleWidth,scaleHeight,indentWidth)		Đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn

​

Ví dụ: giãn dòng A1 và đối số, gõ =FITROW(A1,ff_Padding(5)) ​

Các hàm với các ký tự đầu là ff_... Chính là các hàm cài đặt và bổ trợ cho hàm chính FITROW​

Ví dụ: gõ =FITROW(A1,B4,C5), sẽ co giãn các ô A1, B4, C5, các cài đặt là mặc định​

CÁC HÀM LỆNH TẠO NÚT VÀ BIỂU THỨC NHANH:

HÀM	Chức năng
=FITROW_AddFX()​	Tạo nhanh biểu thức FITROW vào ô
=FITROW_AddFXPrintArea()​	Tạo nhanh biểu thức FITROW vùng in vào ô
=FITROW_AddButton()​	Tạo nút nhấn để giãn dòng
=FITROW_AddButtonPrintArea()​	Tạo nút nhấn để giãn dòng vùng in
=FitRow_Off()​	Tắt chế độ tự động giãn dòng
=FitRow_On()​	Bật chế độ tự động giãn dòng

Viết hàm nhanh: =FITROW(A2:F1000)
Viết hàm có cài đặt đối số: =FITROW(A2:F1000,ff_defaultHeight(40),ff_Padding(5))
Cách nhập nhiều vùng cần co giãn dòng:

=FITROW(A1:C9,D2:F3,E5:E6)​

​

Phím tắt giãn dòng: CTRL+SHIFT+ALT+R

Các hàm Bổ trợ:

1. Gõ hàm FITROW_OFF: nếu đang chỉnh sửa trang tính hãy tắt chế độ co giãn dòng hoặc bật chế độ Design Mode trong Tab Developer.​

2. Gõ hàm FITROW_ON: Bật chế độ co giãn dòng tự động.​

3. Thủ tục FITROW_Toggle + Check box có tên là chxAutoFitRow dùng để bật tắt chế độ co giãn dòng nếu muốn (Ví dụ nằm ở Sheet1 trong tập tin đính kèm bên dưới).​

Bước 3 này là một thủ thuật để ngăn chặn code tính toán lúc ứng dụng vừa khởi động, vì có thể sẽ gặp phải tình trạng code sẽ làm chậm quá trình khởi động.​

​

Hãy để dòng code sau vào sự kiện Workbook_Open: Call FITROW_Off​

Hãy mở lại bằng bước 2 hoặc bước 3.​

****Lưu ý:

1. Code sẽ tạo trang tính ẩn có tên __CELLFIXING__ để giãn dòng.
2. Khi giãn dòng tự động chế độ Undo và Redo của trang tính sẽ không hoạt động.
3. Nếu trong trang tính có hàm giãn dòng, không nên sử dụng hàm RandBetween, và các hàm random.

***Mã có thể chưa được tối ưu nhất, nên có thể cập nhật lại nhiều lần, nên nếu các bạn có sử dụng code thì nên thường xuyên xem lại bài viết, sẽ có thông báo cập nhật nếu có ở đầu bài viết.
--------------------------------------------------------------------------------------

Liên hệ Facebook Messenger: Vo Truong Anh Tuan
Liên hệ Zalo: 0384170514
Quét QRCode Zalo:

 

Giỏi quá trời. )))

 

Dự án này lâu rồi không thấy tác giả cập nhật gì thêm vậy nhỉ?

 

Hôm nay tôi lại chia sẻ cho các bạn một Hàm VBA UDF có chức năng tự động co giãn dòng khi giá trị trong bảng tính thay đổi, thì quá trình co giãn dòng cũng tự động thay đổi theo.
Code bên dưới là phiên bản đầu nên có thể gặp một số lỗi nhất định, nên khi tham khảo thì các bạn nên kiểm trước, nếu code hoạt động ổn định thì các bạn có thể sử dụng.

Tôi quyết định viết code này bỡi vì trên diễn đàn có nhiều bài viết hỏi về co giãn dòng tự động, và khi tôi đọc qua các bài viết đó thì không thấy ai có thể xử lý vấn đề triệt để, hoặc là code chưa tối ưu, hoặc code chưa xử lý được nhiều vùng đã gộp cùng dòng.

Và hàm UDF là một cách tối ưu nhất giúp các bạn không phải code lại, mà chỉ cần viết Hàm như một hàm Excel bình thường để thực hiện tác vụ co giãn dòng.


HÀM UDF TỰ ĐỘNG CO GIÃN DÒNG

với Hàm S_FitRow

Chức năng ưu việt của hàm:

1. Co giãn dòng hoàn toàn tự động.
2. Co giãn dòng kể cả các ô đã được gộp.
3. Co giãn dòng với các giá trị nhiều ô cùng dòng.
4. Hoạt động cả ở chế độ Xem In Ấn
5. Thêm một chiều cao nhất định sau khi giản dòng.
6. Vì dùng hàm UDF nên rất tối ưu, tiết kiệm CPU.

Hướng dẫn sử dụng hàm:

Hàm đầy đủ: S_FitRow(Target, [Margin], [defaultHeight], [HeightOfRowNull], [IncludeNoWrap], [OnlySheetVisible], [Title])

Vị trí	Tham số	Kiểu	Chức năng
1​	Target	Vùng cần giãn dòng	Nhận vùng cần co giãn
2​	Margin	Kiểu số	Tăng chiều cao thêm một số
3​	defaultHeight	Kiểu số	Chiều cao mặc định nếu giá trị rỗng
4​	HeightOfRowNull	Kiểu số	Đặt chiều cao cho cả dòng rỗng
5​	IncludeNoWrap	Có/Không	Co giãn kể cả ô không WapText
6​	OnlySheetVisible	Có/Không	Chỉ giãn dòng khi Vùng tham chiếu nằm tại Trang hiện hành
7​	Title	Chuỗi	Chuỗi bất kì do người dùng đặt (Nếu không thì trả về giá trị là Fit:{vùng})

Cách viết hàm nhanh, gõ vào ô chuỗi =S_FitRow và ấn tổ hợp phím Ctrl+Shift+A. Sẽ tự động nhập hàm và có gợi ý nhập đối số.

Viết hàm nhanh: =S_FitRow(A2)
Viết hàm có cài đặt đối số: =S_FitRow(A2,5,40,15,FALSE,TRUE)

Ví dụ: =S_FitRow(A1:E9,5, 40,15,FALSE,TRUE)

• A1:E9 là vùng cần co giãn
• 5 là tăng thêm chiều cao 5 đơn vị
• 40 là chiều cao mặc định nếu tất cả dòng giá trị rỗng
• 15 là chiều cao mặc định dòng giá trị rỗng
• FALSE thì ô không WapText thì không co giãn
• TRUE thì nếu vùng cần co giãn nằm khác Trang hiện hành thì sẽ chờ thực thi sau.

Cũng có thể gõ nhanh =S_FitRow(A1:E9) bỏ qua các cài đặt


Cách viết hàm như sau sẽ co giãn chính ô viết hàm:

1. Khi nhập chuỗi:​

=S_FitRow("Chuỗi",5)​

2. Khi tham chiếu giá trị thì đóng dấu ngoặc tròn ô tham chiếu:​

=S_FitRow((A2),5)​

Cách viết hàm như sau sẽ co giãn vùng tham chiếu:

=S_FitRow(B26: D35,5)​

Ví dụ: Cần co giãn các ô như sau: B28:C31, D28:E28, D29: D30, E29:E31, D31

Thì viết hàm: =S_FitRow(B28:E31,5)​

Để có thể co giãn các ô cùng dòng và đã gộp ô​

Các phương thức Bổ trợ:
1. Gõ hàm S_FitRow_OFF: nếu đang chỉnh sửa trang tính hãy tắt chế độ co giãn dòng hoặc bật chế độ Design Mode trong Tab Developer.
2. Gõ hàm S_FitRow_ON: Nếu đã tắt chế độ co giãn dòng tự động thì bật lên.
3. Thủ tục S_FitRow_Toggle + Check box có tên là chxAutoFitRow dùng để bật tắt chế độ co giãn dòng nếu muốn (Ví dụ nằm ở Sheet1 trong tập tin đính kèm bên dưới).

Bước 3 này là một thủ thuật để ngăn chặn code tính toán lúc ứng dụng vừa khởi động, vì có thể sẽ gặp phải tình trạng code sẽ làm chậm quá trình khởi động.​

​

Hãy để dòng code sau vào sự kiện Workbook_Open: Call S_FitRow_Off​

Hãy mở lại bằng bước 2 hoặc bước 3.​

​

*** Nếu bạn viết quá nhiều công thức hàm S_FitRow thì không thể thiếu bước 3 này​

Cách nhập nhiều mảng:

Sử dụng hàm S_Cells hàm tự tạo: =S_FitRow(S_Cells(A1:C9,D2: D3,E5:E6), 5, 40)​

Hướng dẫn tận dụng hàm:
Với 2 ví dụ sau:
1. Cách viết hàm tổng quát như sau sẽ gây chậm và tiêu tốn CPU:
=S_FitRow(A1:Z500)

2. Cách viết hàm đơn lẻ cho từng vùng sẽ tiết kiệm, và code sẽ chạy nhanh hơn:
=S_FitRow(A1:Z1)
=S_FitRow(A2:Z2)
=S_FitRow(A3:Z4)

Tức là hãy nhập vùng cho hàm sao cho vùng đó tương ứng với số dòng ô được gộp lớn nhất của dòng tương ứng.
Nếu ta có các vùng được gộp là A1:C9, D2: D3, E5:E6, thì rõ ràng là A1:C9 có các dòng chứa hết các vùng còn lại,
nên ta viết: =S_FitRow(A1:E9)


Những lỗi có thể xảy ra:

1. Vì code sẽ mượn một ô trong trang tính làm ô để giãn dòng, vì vậy nếu hàm có vùng tham chiếu giao với ô được mượn thì xảy ra lỗi.
2. Nếu có hai hàm có tham chiếu là hai vùng giao nhau có thể xảy ra lỗi.
3. Nếu trang tính hoặc ô tham chiếu đang khóa, cũng có thể xảy ra lỗi.
4. Nếu trong trang tính có hàm giãn dòng có sử dụng hàm RandBetween.

*** Các bạn lưu ý code có thể chưa được tối ưu nhất, nên có thể cập nhật lại nhiều lần, nên nếu các bạn có sử dụng code thì nên thường xuyên xem lại bài viết, sẽ có thông báo cập nhật nếu có ở đầu bài viết.

Anh ơi em áp dụng nhưng hàm không hiệu quả với những ô chứa hàm VLookup, Hlookup có cách nào khắc phục không ạ. Em cảm ơn

 

cảm ơn bác rất nhiều, chúc bác mạnh khỏe <3

 

Khi soi kính lúp trang in xong hiện ra viền định dạng in làm code chậm đi nhiều.
em cho thêm đoạn code vào đầu chạy nuột luôn:
ActiveSheet.DisplayPageBreaks = False

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

Chắc dính trường hợp giống bài #18

bác ơi em hỏi chút. em cũng bị chạy chậm khi chọn vùng in. đoạn code bác chỉ cho thêm đặt vào đoạn nào vậy ạ

 

bác ơi em hỏi chút. em cũng bị chạy chậm khi chọn vùng in. đoạn code bác chỉ cho thêm đặt vào đoạn nào vậy ạ

đặt luôn sau mấy cái thủ tục khai báo là được bạn ạ

 

đặt luôn sau mấy cái thủ tục khai báo là được bạn ạ

em cũng không dành lắm. bác chỉ cụ thể giúp em được không ạ

 

em cũng không dành lắm. bác chỉ cụ thể giúp em được không ạ

không có cái gì chỉ làm sao được?
Ít nhất gửi ảnh, hoặc gửi file lên mới chỉ được bạn ạ

 

Quá chuyên nghiệp, để nghiên cứu coi sao, cám ơn chủ thớt nhiều nhé.

 

Anh ơi em áp dụng nhưng hàm không hiệu quả với những ô chứa hàm VLookup, Hlookup có cách nào khắc phục không ạ. Em cảm ơn

không phải không dùng được đâu mà n sẽ không tự động giãn khi thay đổi tham số bác chọn vd bác bấm nâng +1 số n sẽ không hiểu. nhưng bác ghi trực tiếp lên tham số tiếp theo hàm sẽ hiểu và tự động giãn dòng

 

Anh ơi em áp dụng nhưng hàm không hiệu quả với những ô chứa hàm VLookup, Hlookup có cách nào khắc phục không ạ. Em cảm ơn

không phải không dùng được đâu mà n sẽ không tự động giãn khi thay đổi tham số bác chọn vd bác bấm nâng +1 số n sẽ không hiểu. nhưng bác ghi trực tiếp lên tham số tiếp theo hàm sẽ hiểu và tự động giãn dòng

Không phải lỗi nha các bạn.
Các ô WrapText tắt, nếu các bạn đặt đối số IncludeNoWrap là true thì chạy bình thường.
Tôi đã xóa bỏ đối số này để thuận tiện, các bạn có thể tải lại tạm thời bản ở trên.

Bản sắp tới sẽ đổi giải thuật Giãn dòng và tận dụng Classes để tiết kiệm bộ nhớ.
Đồng thời thêm nút nhấn để thuận tiện hơn.

 

Không phải lỗi nha các bạn.
Các ô WrapText tắt, nếu các bạn đặt đối số IncludeNoWrap là true thì chạy bình thường.
Tôi đã xóa bỏ đối số này để thuận tiện, các bạn có thể tải lại tạm thời bản ở trên.

Bản sắp tới sẽ đổi giải thuật Giãn dòng và tận dụng Classes để tiết kiệm bộ nhớ.
Đồng thời thêm nút nhấn để thuận tiện hơn.

e dùng thì nó bị ntn e đã gộp B8:L11,B14:L17 nhưng khi giãn n lại chỉ giãn thằng 1 dòng đầu là thằng B8 và thằng B14 có cách nào để cho mấy thằng gộp kia n cũng giãn đều không ạ?? e cảm ơn trên là giải pháp tạm thời của e nhưng khi tới dòng rỗng thì nó sẽ thừa ra mấy đoạn rất chướng mắt

 

@jerryhg Bạn gộp đến dòng 12 hoặc chỉnh chiều cao dòng 12.
Chia đều chiều cao có ở phiên bản cũ, phiên bản mới tôi đã đổi giải thuật giãn dòng. Có thời gian tôi sẽ cập nhật lại

 

Thêm tính năng ẩn dòng tự động kèm giãn dòng khi in ấn quá tuyệt vời tác giả ah.

 

Nếu làm theo tất cả các ý kiến thì na ná câu chuyện đẽo cày giữa đường mất thôi.

 

***** SIÊU CẬP NHẬT - v2.2 *****

1. Đã tạo Add-in cho hàm giãn dòng, thêm phím tắt giãn dòng CTRL+SHIFT+ALT+R.
2. Thay đổi giải thuật giãn dòng chính xác hơn.
3. Cách viết hàm khác hoàn toàn so với trước, đối số nhập vào phải là một hàm.
4. Giãn dòng kể cả ô vượt giới hạn 409.5 đơn vị chiều cao ô Excel.
5. Giãn dòng biên bản tự động dịch chuyển và canh trang để chỉ mục không bị trồi lên hoặc thụt xuống trang khác.
6. Chỉ cần gõ 1 biểu thức FITROW duy nhất cho cả vùng ô cần giãn dòng.
7. Có hai phiên bản ứng dụng của hàm FITROW:

• Mã viết trong 1 module duy nhất (tốn kém bộ nhớ khi ứng dụng hoạt động).
• Sử dụng mã trong Classes (tiết kiệm bộ nhớ).

-------------------------------------------------------------------

Hôm nay tôi lại chia sẻ cho các bạn một Hàm VBA UDF có chức năng tự động co giãn dòng khi giá trị trong bảng tính thay đổi, thì quá trình co giãn dòng cũng tự động thay đổi theo.
Code bên dưới là phiên bản đầu nên có thể gặp một số lỗi nhất định, nên khi tham khảo thì các bạn nên kiểm trước, nếu code hoạt động ổn định thì các bạn có thể sử dụng.

Tôi quyết định viết code này bỡi vì trên diễn đàn có nhiều bài viết hỏi về co giãn dòng tự động, và khi tôi đọc qua các bài viết đó thì không thấy ai có thể xử lý vấn đề triệt để, hoặc là code chưa tối ưu, hoặc code chưa xử lý được nhiều vùng đã gộp cùng dòng.

Và hàm UDF là một cách tối ưu nhất giúp các bạn không phải code lại, mà chỉ cần viết Hàm như một hàm Excel bình thường để thực hiện tác vụ co giãn dòng.


HÀM FITROW - TỰ ĐỘNG GIÃN DÒNG

Chức năng ưu việt:

1. Co giãn dòng hoàn toàn tự động.
2. Co giãn dòng kể cả các ô đã được gộp.
3. Co giãn dòng với các giá trị nhiều ô gộp cùng dòng.
4. Co giãn dòng kể cả chiều cao vượt giới hạn của Excel là 409.5
5. Hoạt động cả ở chế độ Xem In Ấn.
6. Cách gõ hàm cài đặt đối số tùy chỉnh ưu việt:
   • Thêm chiều cao nhất định cho dòng đã giãn.
   • Đặt chiều cao mặc định cho vùng trống.
   • Đặt chiều cao mặc định cho dòng trống.
   • Tự đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn.
   
   
7. Vì dùng hàm UDF nên rất tối ưu, tiết kiệm CPU.
8. Chỉ cần gõ một biểu thức FITROW cho cả vùng cần co giãn.

Hướng dẫn sử dụng hàm:

Hàm FITROW được viết theo phương pháp mới nên cách nhập đối số là gõ hàm như dưới đây:

Hàm cài đặt và bổ trợ	Kiểu	Chức năng
ff_Padding(Height)	Số	Tăng chiều cao thêm một số
ff_defaultHeight(Height)	Số	Chiều cao mặc định nếu giá trị rỗng, dễ hiểu, nếu co giãn vùng ô A1:C20, mà cả vùng đó rỗng, thì chỉnh về chiều cao mặc định.
ff_HeightOfRowNull(Height)	Số	Đặt chiều cao mặc định cho cả dòng rỗng (giãn vùng A1:Z20, dòng A2:Z2 rỗng)
ff_AllSheets()	Có	Giãn dòng kể cả vùng ở trang tính không hiện hành.
ff_AutoFit()	Có	Bật tự động Fit khi ô tham chiếu thay đổi giá trị
ff_Indexes(cell1,cell2,...)	Vùng chứa nhóm văn bản	Căn chỉnh biên bản ở chế độ PrintView, khi giãn dòng, chiều cao trang in có thể cao hơn hoặc thấp hơn, làm cho trang in bị xê dịch, nên cần điều chỉnh để phù hợp.
ff_Scale(scaleWidth,scaleHeight,indentWidth)		Đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn

​

Ví dụ: giãn dòng A1 và đối số, gõ =FITROW(A1,ff_Padding(5)) ​

Các hàm với các ký tự đầu là ff_... Chính là các hàm cài đặt và bổ trợ cho hàm chính FITROW​

Ví dụ: gõ =FITROW(A1,B4,C5), sẽ co giãn các ô A1, B4, C5, các cài đặt là mặc định​

CÁC HÀM LỆNH TẠO NÚT VÀ BIỂU THỨC NHANH:

HÀM	Chức năng
=FITROW_AddFX()​	Tạo nhanh biểu thức FITROW vào ô
=FITROW_AddFXPrintArea()​	Tạo nhanh biểu thức FITROW vùng in vào ô
=FITROW_AddButton()​	Tạo nút nhấn để giãn dòng
=FITROW_AddButtonPrintArea()​	Tạo nút nhấn để giãn dòng vùng in
=FitRow_Off()​	Tắt chế độ tự động giãn dòng
=FitRow_On()​	Bật chế độ tự động giãn dòng

Viết hàm nhanh: =FITROW(A2:F1000)
Viết hàm có cài đặt đối số: =FITROW(A2:F1000,ff_defaultHeight(40),ff_Padding(5))
Cách nhập nhiều vùng cần co giãn dòng:

=FITROW(A1:C9,D2:F3,E5:E6)​

​

Phím tắt giãn dòng: CTRL+SHIFT+ALT+R

Các hàm Bổ trợ:

1. Gõ hàm FITROW_OFF: nếu đang chỉnh sửa trang tính hãy tắt chế độ co giãn dòng hoặc bật chế độ Design Mode trong Tab Developer.​

2. Gõ hàm FITROW_ON: Bật chế độ co giãn dòng tự động.​

3. Thủ tục FITROW_Toggle + Check box có tên là chxAutoFitRow dùng để bật tắt chế độ co giãn dòng nếu muốn (Ví dụ nằm ở Sheet1 trong tập tin đính kèm bên dưới).​

Bước 3 này là một thủ thuật để ngăn chặn code tính toán lúc ứng dụng vừa khởi động, vì có thể sẽ gặp phải tình trạng code sẽ làm chậm quá trình khởi động.​

​

Hãy để dòng code sau vào sự kiện Workbook_Open: Call FITROW_Off​

Hãy mở lại bằng bước 2 hoặc bước 3.​

****Lưu ý:

1. Code sẽ tạo trang tính ẩn có tên __CELLFIXING__ để giãn dòng.
2. Khi giãn dòng tự động chế độ Undo và Redo của trang tính sẽ không hoạt động.
3. Nếu trong trang tính có hàm giãn dòng, không nên sử dụng hàm RandBetween, và các hàm random.

***Mã có thể chưa được tối ưu nhất, nên có thể cập nhật lại nhiều lần, nên nếu các bạn có sử dụng code thì nên thường xuyên xem lại bài viết, sẽ có thông báo cập nhật nếu có ở đầu bài viết.

e cảm ơn bác nhé

 

Bác cho e hỏi chút với, e đang dùng bản V1 của bác, có cách nào để khi mở file hàm S_FitRow không tự động chạy không vậy, mỗi lần mở file ngồi đợi hơi sốt ruột vì file của e có nhiều sheet

 

***** CẬP NHẬT - v2.31 *****
Sửa lỗi khi ô cần giản dòng được đặt cho Name