Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Mình có file gốc đính kèm, trong sheet 'DON DAT THUNG mình muốn:

DangHoa

Mình có file gốc đính kèm, trong sheet 'DON DAT THUNG mình muốn:
Khi giá trị tại ô F1 thay đổi thì cột D sẽ tự động lọc và ẩn đi các dòng có giá trị trống. Bạn nào giỏi về code giúp mình với.
https://facebook.com/569100319856001_863675417065155

SonDoan

Cái này bạn phải viết code bắt event worksheet change rồi so sánh target.address với $F$ 1 nhé. Còn filter cột D thì bạn mở macro lên rồi filter thử để lấy code ghép vào. Mấy dạng kiểu này có nhiều ví dụ trên page này rồi nhé. Tra cứu và tự làm thử. Vướng mắc mọi người sẽ hỗ trợ tiếp.

DangHoa

thanks bác, cũng trong file này, em muốn khi click vào button 'Xuất file thì nó tự động tạo ra 1 file mới bao gồm 2 sheet 'DON DAT THUNG và SHEET HD, tên file mới là giá trị tại ô F1, bác giúp em với

SonDoan

Mai nhé giờ tắt máy rồi Code này ít xài thôi chứ không khó

SonDoan

Sub xuatfile()
Set wb = ActiveWorkbook
duongdan = wb.Path
tenfile = wb.Sheets("DON DAT THUNG").[F1].Value
wb.Sheets("DON DAT THUNG").Copy
Set wb1 = ActiveWorkbook
wb1.SaveAs Filename:=duongdan & "\" & tenfile, FileFormat:=52, CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges
wb.Sheets("HD").Copy After:=wb1.Sheets(1)
wb1.Save
wb1.Close
End Sub

SonDoan

Do phải làm việc với 2 workbook nên mình sử dụng set wb và set wb1 để tránh nhầm lẫn giữa 2 workbook. File định dạng xlsm thì fileformat là 52, nếu muốn save dưới dạng xlsx thì đổi thành 51 nhé

SonDoan

Cái khác so với thông thường ở đây nằm ở câu lệnh:
wb.Sheets("DON DAT THUNG").Copy
Bình thường chúng ta có câu lệnh Copy After:=worksheets(...). Trong trường hợp này nếu không có thông số theo sau thì lệnh copy thì nó tự copy sang workbook mới và active workbook đó.

DangHoa

Cảm ơn bác Son Nhat Doan, code này sẽ tạo ra file lưu tại địa chỉ cùng với file gốc, em muốn khi code chạy sẽ tạo ra một hộp thoại để lựa chọn nơi lưu file tạo ra thì làm thế nào bác ơi

SonDoan

Thay lenh gan duong dan bang: duongdan=inputbox(...)

DangHoa

thay bằng inputbox thì em cũng đã nghĩ tới, nhưng có cách nào lựa chọn đường dẫn như khi ta chon tính năng save as

SonDoan

Muốn như vậy thì đổi code 1 chút:
Sub xuatfile()
Set wb = ActiveWorkbook
wb.Sheets("DON DAT THUNG").Copy
Set wb1 = ActiveWorkbook
SelectedFile = Application.GetSaveAsFilename(filefilter:="Excel Files (.xlsm),.xlsx")
wb1.SaveAs Filename:=SelectedFile & ".xlsm", FileFormat:=52, CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges
wb.Sheets("HD").Copy After:=wb1.Sheets(1)
wb1.Save
wb1.Close
End Sub

SonDoan

Ở đây ta bỏ thiết lập tên file và đường dẫn. Thay vào đó có câu lệnh:
SelectedFile = Application.GetSaveAsFilename(filefilter:="Excel Files (.xlsm),.xlsx")
Câu lệnh này cho phép ta mở form save as. Khi điền tên vào và bấm nút save thì nó chạy tiếp. Tự gán đường dẫn và tên file vào SelectedFile. Sau đó thay tên trong lệnh save là xong

DangHoa

52 là file .xlsm, vậy nếu .pdf thì phải đổi là bao nhiêu vậy bác

SonDoan

tham khảo xlfileformat của microsofr nhé: https://msdn.microsoft.com/en-us/library/office/ff198017.aspx

SonDoan

Mà hình như nó không có pdf @@

SonDoan

Có vẻ nó chỉ cho xuất PDF theo sheet Ghi macro lại nó cho câu lệnh sau:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Users\sondo\Desktop\HANG GAP.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
Bạn theo đó mà tùy biến nhé

Mn ơi, có nhóm nào về kế toán ở zalo thì add e vs ạ các anh chị cho em hỏi Cách replace xuống dòng zxczxczxczxc § Nội Quy § § Nội Quy § --- §0 - Trước khi đọc nội quy: quy định đưa ra là Có hàm nào làm cho chữ đậm hoặc nghiêng không nhi? Cách để tính nhanh khi nhảy lung tung tính tiền ăn mỗi bữa lỗi hàm trong wps excel giúp em giải câu excel ạ - Ở đây có ai nhận làm thuê bài tập excel ở trường không ạ, giúp mình vs ?? Xem thêm