Cần giúp đỡ tạo nút bấm hoặc marco để chạy code trong thisworkbook (1 người xem)

[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 ạ

 

[DeTong]

có thể sửa luôn vào code

Không nên merge vì rất khó copy và định dạng.
Nghiên cứu đoạn code cơ bản này:
Hộp thoại 1 --> Chọn cell cần COPY;
Hộp thoaiị 2 --> Chọn cell muốn PASTE;
Paste xong muốn format các kiểu con đà điiểu ...

Sub CopyRange()
  
    'Khoi tao bien
    Dim FromRange As Range
    Dim ToRange As Range

    'Hop thoai chon o nguon dich
    Set FromRange = Application.InputBox("Nhap dia chi COPY : ", Type:=8)
    Set ToRange = Application.InputBox("Nhap dia chi PASTE : ", Type:=8)

    'Cau lenh Copy paste
    FromRange.Copy ToRange
  
    'Dinh dang cell dich
    With ToRange
        .Rows.AutoFit
        .Columns.AutoFit
'        .Font.Bold = True
'        .Font.Italic = True
'        .Font.Color = -16776961
    End With

End Sub

 

[HeSanbi]

code tự động căn dòng cho ô merge

Dùng hàm giãn dòng này cho tiện bạn nhé

HÀM FITROW - Co giãn dòng tự động tối ưu nhất cho Excel v2.43 (*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...

giaiphapexcel.com