Đặt chiều cao mặc định cho Auto fit row

Liên hệ QC

bucminh99

Thành viên mới
Tham gia
7/8/12
Bài viết
27
Được thích
0
Xin chào mọi người. Mình có vấn đề này xin mọi người chỉ giúp.
1. Vấn đề định dạng văn bản:
Mình muốn Autofit tất cả các row ở mức 20.do vậy mình đặt toàn bộ height of row là 20.
Nhưng có 1 số ô cần 2 3 dòng do vậy cần chỉnh lên 30 50.
Nếu autofit thì nó sẽ ko đạt được chiều cao 20, mà chỉ 15 16, sát chữ, khá xấu.
Mình muốn như sau:
OP1 :Mặc định chiều cao là 20, nếu ko đủ cho text thì riêng dòng đó auto fit sao cho đủ
OP2: Mặc định excel font chữ cao 9 thì autofit chiều cao là 12. vậy em muốn font 9 autofit là 18 thì làm ntn

2. Vấn đề copy số liệu transpose dọc <-> ngang
Mình muồn dạng sau
STT
1
2
3
4

Dữ liệu xếp hàng dọc, nhưng ở 1 ô khác = dữ liệu, kéo ngang ra thì nhận được kết quả 1 2 3 4
Kéo dọc thì đơn giản rồi là cứ = rồi kéo, nhưng kéo ngang thì mình chỉ có cách paste value (transpose)
Rất mong mọi người giúp đỡ
 
Xin chào mọi người. Mình có vấn đề này xin mọi người chỉ giúp.
1. Vấn đề định dạng văn bản:
Mình muốn Autofit tất cả các row ở mức 20.do vậy mình đặt toàn bộ height of row là 20.
Nhưng có 1 số ô cần 2 3 dòng do vậy cần chỉnh lên 30 50.
Nếu autofit thì nó sẽ ko đạt được chiều cao 20, mà chỉ 15 16, sát chữ, khá xấu.
Mình muốn như sau:
OP1 :Mặc định chiều cao là 20, nếu ko đủ cho text thì riêng dòng đó auto fit sao cho đủ
OP2: Mặc định excel font chữ cao 9 thì autofit chiều cao là 12. vậy em muốn font 9 autofit là 18 thì làm ntn

2. Vấn đề copy số liệu transpose dọc <-> ngang
Mình muồn dạng sau
STT
1
2
3
4

Dữ liệu xếp hàng dọc, nhưng ở 1 ô khác = dữ liệu, kéo ngang ra thì nhận được kết quả 1 2 3 4
Kéo dọc thì đơn giản rồi là cứ = rồi kéo, nhưng kéo ngang thì mình chỉ có cách paste value (transpose)
Rất mong mọi người giúp đỡ
Cái này tôi có kinh nghiệm nè,(chỉ áp dụng được trên 1 cột thôi nha) đầu tiên cho các ô autofil hết, sau đó duyệt từ đầu đến cuối rồi công thêm số đơn vị tuỳ thích, thì sẽ các ô sẽ được rộng rãi như nhau
 
Bước làm xong, để auto fit thì mình hiểu, nhưng đoạn duyệt rồi công thêm số đơn vị thì mình ko rõ làm như nào.
Theo mình hiểu thì là autofit sát hết, rồi từ sát hết + thêm độ giãn. Nhưng khoản cộng thêm độ giãn mong bạn hướng dẫn rõ hơn
 
Vấn đề này ko ai giải quyết được ạ.........
 
Vấn đề này, tôi giải quyết được dễ dàng, nhanh chóng khi tôi làm việc trong công ty của tôi (vấn đề số 1 thôi). Tôi có mẹo để giải quyết vấn đề này, không cần dùng VBA hoặc dùng VBA cũng được. Cách này phải có thêm một cột ẩn. Bạn phải tạo một trước 1 cột, để dữ liệu vào đó từ đầu danh sách đến cuối danh sách, dữ liệu là một ký tự thôi cũng được ví dụ chữ A chẵn hạn, hay dữ liệu tùy thích nhưng đừng quá dài, dữ liệu nên giống nhau hết trong cột. Sau đó thiết lập thuộc tính auto fit row cho tất cả các hàng trong danh sách và thay đổi size font của cột này nên tăng dần hay giảm dần size font của cột, toàn bộ dữ liệu sẽ được tự động căng chỉnh đẹp hơn chiều cao sẽ như ý bạn, sau đó là ẩn cột này đi hoặc xóa cột đó đi nhớ tắt thuộc tính auto fit row, nếu quên tắt thì có thể phải làm lại từ đầu.
 
Lần chỉnh sửa cuối:
Cũng quan tâm vấn đề này, thấy mặc định của excel là 12.75 pixel thì phải muốn cho nó thành 15 tìm thấy bài này mà ko có giải đáp
 
Không biết có bạn nào dùng VBA giải quyết được vấn đề này không?
VD: tự canh chỉnh chiều cao là 18 khi ô có 01 dòng chữ; 30 khi ô có 02 dòng chữ; 45 khi ô có 03 dòng chữ; 60 khi ô có 04 dòng chữ; 75 khi ô có 05 dòng chữ;....
 
Vấn đề này, tôi giải quyết được dễ dàng, nhanh chóng khi tôi làm việc trong công ty của tôi (vấn đề số 1 thôi). Tôi có mẹo để giải quyết vấn đề này, không cần dùng VBA hoặc dùng VBA cũng được. Cách này phải có thêm một cột ẩn. Bạn phải tạo một trước 1 cột, để dữ liệu vào đó từ đầu danh sách đến cuối danh sách, dữ liệu là một ký tự thôi cũng được ví dụ chữ A chẵn hạn, hay dữ liệu tùy thích nhưng đừng quá dài, dữ liệu nên giống nhau hết trong cột. Sau đó thiết lập thuộc tính auto fit row cho tất cả các hàng trong danh sách và thay đổi size font của cột này nên tăng dần hay giảm dần size font của cột, toàn bộ dữ liệu sẽ được tự động căng chỉnh đẹp hơn chiều cao sẽ như ý bạn, sau đó là ẩn cột này đi hoặc xóa cột đó đi nhớ tắt thuộc tính auto fit row, nếu quên tắt thì có thể phải làm lại từ đầu.
Xin bác cho cái file ví dụ cho em rõ em thấy bác miêu tỏ có vẻ hay mà em chưa hiểu lắm. xin cám ơn
 
Xin chào mọi người. Mình có vấn đề này xin mọi người chỉ giúp.
1. Vấn đề định dạng văn bản:
Mình muốn Autofit tất cả các row ở mức 20.do vậy mình đặt toàn bộ height of row là 20.
Nhưng có 1 số ô cần 2 3 dòng do vậy cần chỉnh lên 30 50.
Nếu autofit thì nó sẽ ko đạt được chiều cao 20, mà chỉ 15 16, sát chữ, khá xấu.
Mình muốn như sau:
OP1 :Mặc định chiều cao là 20, nếu ko đủ cho text thì riêng dòng đó auto fit sao cho đủ
OP2: Mặc định excel font chữ cao 9 thì autofit chiều cao là 12. vậy em muốn font 9 autofit là 18 thì làm ntn

2. Vấn đề copy số liệu transpose dọc <-> ngang
Mình muồn dạng sau
STT
1
2
3
4

Dữ liệu xếp hàng dọc, nhưng ở 1 ô khác = dữ liệu, kéo ngang ra thì nhận được kết quả 1 2 3 4
Kéo dọc thì đơn giản rồi là cứ = rồi kéo, nhưng kéo ngang thì mình chỉ có cách paste value (transpose)
Rất mong mọi người giúp đỡ
Vấn đề 1 bác tham khảo thế này nhé:
- Đầu tiên bác Autofit Row Height toàn bộ cột đó, kết quả sát chữ, khá xấu
- Tiếp theo bác chạy code VBA vòng lặp tất cả các dòng RowHeight + 5 (Con số tùy chỉnh theo thẩm mỹ mỗi người sao cho nhìn đẹp)
Ví dụ:
Mã:
Sub SuaAutofit()
    Dim startR, endR As String
    Dim s, e, i As Long
    startR = InputBox("Input Box", "Chon vi tri bat dau", "")
    endR = InputBox("Input Box", "Chon vi tri ket thuc", "")
    s = ActiveSheet.Range("" & startR & "").Row
    e = ActiveSheet.Range("" & endR & "").Row
    ActiveSheet.Range("" & startR & ":" & endR & "").EntireRow.AutoFit
    For i = s To e
        ActiveSheet.Rows(i).RowHeight = ActiveSheet.Rows(i).RowHeight + 5
    Next i
End Sub
 
Lần chỉnh sửa cuối:
Web KT
Back
Top Bottom