Tự động xuống dòng khi hết chiều rộng của cột?

[langtuchungtinh360]

Theo mình thì có thể phát triển code của Langtuchungtinh360 ở bài #14 là được muốn Autofit thì nhấn đúp vào ô bị gộp rồi Enter cho nhanh; còn có nhiều ô thì cứ Ctrl+H thay thế dấu = lại là dấu =
Mình muốn thêm dòng lệnh
Cells.Replace What:="=", Replacement:="=", LookAt:=xlPart, SearchOrder _
:=xlByRows
vào code của Langtuchungtinh360 ở bài #14 nhưng chưa biết bổ sung vào đoạn nào
Đọc bài theo Link bạn chỉ Code dài và khó áp dụng
Mỗi lần lại phải chạy code thì không ổn, mình muốn nó tự động chạy
Tạm thời mình đang dùng thêm một Module nữa để chạy
Sub ThayThe()
Cells.Replace What:="=", Replacement:="=", LookAt:=xlPart, SearchOrder _
:=xlByRows

End Sub

Xem trên cuối TabHome có 2 nút lệnh On/Off với Setting ấy
+ On/Off để bật tắt chức năng sự kiện thao tác trên Sheet ( ở đây là sự kiện Click chuột vào ô với Chỉnh sửa nội dung ô)
+Setting để chuyển qua lại 2 chế độ:
Off :Chỉnh sửa nội dung ô
On :Click chuột vào ô (lưu ý: cái này nhiều công thức là cực chậm nhé)

 

[hieuxd]

Xem trên cuối TabHome có 2 nút lệnh On/Off với Setting ấy
+ On/Off để bật tắt chức năng sự kiện thao tác trên Sheet ( ở đây là sự kiện Click chuột vào ô với Chỉnh sửa nội dung ô)
+Setting để chuyển qua lại 2 chế độ:
Off :Chỉnh sửa nội dung ô
On :Click chuột vào ô (lưu ý: cái này nhiều công thức là cực chậm nhé)

Mình test vẫn chưa chuẩn bạn à
Test thấy chức năng kích chuột vào ô thì đươc; Chức năng chỉnh sửa nội dung ô khác thì chưa được
Dữ liệu ô A5:E5=B4
Mình muốn khi sửa dữ liệu của B4 thì chiều cao dòng 5 tự động thay đổi
Có trường hợp nữa là A5:E5=Vlookup(A1;G5:K10;5;0)
Kể có thời gian anh em gặp nhau nhỉ, Mình đang ở Hà Nội, rất mong có cơ hội gặp bạn

 

[langtuchungtinh360]

Mình test vẫn chưa chuẩn bạn à
Test thấy chức năng kích chuột vào ô thì đươc; Chức năng chỉnh sửa nội dung ô khác thì chưa được
Dữ liệu ô A5:E5=B4
Mình muốn khi sửa dữ liệu của B4 thì chiều cao dòng 5 tự động thay đổi
Có trường hợp nữa là A5:E5=Vlookup(A1;G5:K10;5;0)
Kể có thời gian anh em gặp nhau nhỉ, Mình đang ở Hà Nội, rất mong có cơ hội gặp bạn

bạn thử như thế thì không được đúng rồi, code chỉ tác dụng khi thao tác trên chính ô cần chỉnh thôi mà.
Đầu tiên bạn bật On/Off (màu tối đi là bật)
Setting: màu sáng là khi chỉnh sửa nội dung trong ô rồi enter => sẽ chỉnh lại chiều cao
Setting: màu tối là khi click chuột chọn ô cần chỉnh => sẽ chỉnh lại chiều cao
còn bạn muốn chỉnh qua trung gian là những ô có công thức liên quan đến ô vừa chỉnh thì có thể chạy lâu nhé bạn
Thử với code sau nhé

 

[hieuxd]

bạn thử như thế thì không được đúng rồi, code chỉ tác dụng khi thao tác trên chính ô cần chỉnh thôi mà.
Đầu tiên bạn bật On/Off (màu tối đi là bật)
Setting: màu sáng là khi chỉnh sửa nội dung trong ô rồi enter => sẽ chỉnh lại chiều cao
Setting: màu tối là khi click chuột chọn ô cần chỉnh => sẽ chỉnh lại chiều cao
còn bạn muốn chỉnh qua trung gian là những ô có công thức liên quan đến ô vừa chỉnh thì có thể chạy lâu nhé bạn
Thử với code sau nhé

Test vẫn chưa được như ý, Chẳng hiểu tại sao chắc tại test lúc say
Mình vẫn sử dụng Code bài #14 hiệu quả
Có điều mình cho thêm modul thay thế dấu = thành dấu = vào một modul trước khi in, vì mình in tự động
Test 4 trường hợp
Vấn đề này mình rất quan tâm, mình nghĩ mọi người cũng rất quan tâm, từ 2010 minh đã nguôi ngoai bảo thôi chác tại ông bin không cho như thầy PTM nói nên dị ứng với ông excel khi làm văn bản

 

[langtuchungtinh360]

Test vẫn chưa được như ý, Chẳng hiểu tại sao chắc tại test lúc say
Mình vẫn sử dụng Code bài #14 hiệu quả
Có điều mình cho thêm modul thay thế dấu = thành dấu = vào một modul trước khi in, vì mình in tự động
Test 4 trường hợp
Vấn đề này mình rất quan tâm, mình nghĩ mọi người cũng rất quan tâm, từ 2010 minh đã nguôi ngoai bảo thôi chác tại ông bin không cho như thầy PTM nói nên dị ứng với ông excel khi làm văn bản

rốt cuộc bạn muốn gì mình vẫn chưa hiểu. bạn muốn khi chỉnh sửa B4 thì các công thức có liên quan đến B4 sẽ tự chỉnh, thì nó đã tự chỉnh đấy thôi.
còn tại sao bạn muốn thay dấu bằng "=" thành dấu bằng "=" <= để làm gì vậy? có tác dụng gì không?
bạn cần nêu rõ yêu cầu kèm theo file kèm theo, từng bước thực hiện và kết quả mong muốn.
bạn gửi file word qua thì làm được gì.

 

[thanhken553]

e ko biết VBA các bác xem giúp e cái file BBNT dưới với . e muốn cái dòng tiêu chuẩn màu đỏ kia tự động giãn dòng khi dữ liệu dài và mất đi khi ko có dữ liệu gì . và cho e xin cái in tự động cho nó nhanh ạ, e cam ơn

 

[sonctkhoabinh]

Các bác cho em hỏi với ạ:
Em chọn Chế độ xuống dòng tự động bằng wrap text trong Format cell nhưng khi xuống dòng lại ngắt vào giữa 1 chữ.
Vd: Trường trung học phổ thông
kết quả là: Trường trung h
ọc phổ thông
Bác nào biết chỉ giúp em với.
Cảm ơn các bác nhiều!

 

[befaint]

Em chọn Chế độ xuống dòng tự động bằng wrap text trong Format cell nhưng khi xuống dòng lại ngắt vào giữa 1 chữ.
Vd: Trường trung học phổ thông
kết quả là: Trường trung h
ọc phổ thông

Gửi file đang làm lên coi...

 

[vanle33]

@sonctkhoabinh : Có thể sau khi đánh đến chữ h bạn nhấn nhầm Alt+Enter chăng? Mặc dù cell vẫn được định dạng là Wrap Text?