Cần giúp đỡ tạo nút bấm hoặc marco để chạy code trong thisworkbook

[Leeminhtus]

Chào anh em. Em là thành viên mới ạ, cũng không biết gì nhiều về VBA. Đang học lỏm của anh em.
Em có 1 file đã thêm code tự động căn dòng cho ô merge (Đính kèm bên dưới).
Em có 2 vấn đề:
1. Ở đây dụng Workbook_Sheetchange nên khi thay đổi nội dung dòng nào thì mới tự động căn dòng đấy.
Giờ em muốn tạo 1 button để khi bấm thì sẽ căn tất cả các dòng merge hoặc là tự động căn khi mở. Em làm theo hướng dẫn ae trên diễn đàn nhưng nó lại không chạy ạ.
Anh em giúp em với ạ.
2. Thêm 1 vấn để nhỏ nữa em đã làm thủ công tính chiều rộng của 1 ô gộp là 85,33 giờ em muốn tự động luôn để sau áp dụng cho bảng tính khác cũng ok. Cái này em đã nghiên cứu vì độ rộng ô excel tính theo số lượng số 0 nên không có sự tuyến tính. Nếu có cao nhân nào giúp được thì tốt ạ, còn không em sẽ tự tính thủ công cũng được. Móng các bro giúp em mục 1.
Em xin chân thành cảm ơn ạ.

 

[DeTong]

Chào anh em. Em là thành viên mới ạ, cũng không biết gì nhiều về VBA. Đang học lỏm của anh em.
Em có 1 file đã thêm code tự động căn dòng cho ô merge (Đính kèm bên dưới).
Em có 2 vấn đề:
1. Ở đây dụng Workbook_Sheetchange nên khi thay đổi nội dung dòng nào thì mới tự động căn dòng đấy.
Giờ em muốn tạo 1 button để khi bấm thì sẽ căn tất cả các dòng merge hoặc là tự động căn khi mở. Em làm theo hướng dẫn ae trên diễn đàn nhưng nó lại không chạy ạ.
Anh em giúp em với ạ.
2. Thêm 1 vấn để nhỏ nữa em đã làm thủ công tính chiều rộng của 1 ô gộp là 85,33 giờ em muốn tự động luôn để sau áp dụng cho bảng tính khác cũng ok. Cái này em đã nghiên cứu vì độ rộng ô excel tính theo số lượng số 0 nên không có sự tuyến tính. Nếu có cao nhân nào giúp được thì tốt ạ, còn không em sẽ tự tính thủ công cũng được. Móng các bro giúp em mục 1.
Em xin chân thành cảm ơn ạ.

1. Code đặt sai chỗ... Select Change phải đặt trong sheet
2. Chưa có điều kiện chạy:
If Not Intersect(Target, Range("b5:c6")) Is Nothing Then
...
End If

 

[Leeminhtus]

1. Code đặt sai chỗ... Select Change phải đặt trong sheet
2. Chưa có điều kiện chạy:
If Not Intersect(Target, Range("b5:c6")) Is Nothing Then
...
End If

Như trình bày ở trên em không thạo VBA lắm ạ, học từ trên ngọn học xuống Nên bro có thể sửa luôn vào code giúp em không ạ. Em đội ơn bro nhiều ạ