Xoá tất cả các ô ngoài in. (1 người xem)

[hianhdung]

Mình có nhu cầu trên sheet hiện tại, sau khi set print area, nhấn nút lệnh vba sẽ xoá tất cả các ô ngoài vùng được chọn in.
Bạn nào giúp giùm. Thanks

 

[Quang_Hải]

Mình có nhu cầu trên sheet hiện tại, sau khi set print area, nhấn nút lệnh vba sẽ xoá tất cả các ô ngoài vùng được chọn in.
Bạn nào giúp giùm. Thanks

Bạn dùng code này

Private Sub CommandButton1_Click()
Dim Data()
With ActiveSheet.Range("Print_Area")
   Data = .Formula
   .Parent.UsedRange.ClearContents
   .Value = Data
End With
End Sub

 

[meoluoihvtc]

Đã hiểu 2 câu lệnh này, cảm ơn bác.

 

[Kiều Mạnh]

Em chưa hiểu 2 câu lệnh này lắm, mong bác chỉ giáo:
Data = .Formula
.Value = Data

Thì bạn thử gõ vài công thức rồi chạy code xem thế nào là biết thôi mà
thử test xem

 

[Hoàng Trọng Nghĩa]

Em chưa hiểu 2 câu lệnh này lắm, mong bác chỉ giáo:
Data = .Formula
.Value = Data

Có nghĩa là có một biến để chứa những gì có trong khu vực in, sau đó cho xóa toàn bộ vùng chứa dữ liệu, rồi gán lại biến đó vào khu vực in.