Kết quả tìm kiếm

File được lưu lại dưới file mới được định dạng .xlsm luôn ạ wb.SaveAs Replace(filePath, ".xlsx", ".xlsm"), FileFormat:=52 Đúng là thêm câu lệnh trên vào sẽ loại bỏ đi thông báo nếu có. Vấn đề chính ở đây là không hiểu sao ở 1 máy tính khác cùng excel 2016, mà sự kiện BeforeSave không chạy được...

Cần chứ, và áp dụng ngon lành luôn. Người ta không cho thay đổi file của người ta làm (Sếp to). Không lẽ mỗi lần nhận file lại phải làm cái thao tác thêm code rồi chạy file chi cho mất thời gian (nhiều file). nên trong trường hợp này code rất hữu dụng đó thôi 1711943910 Chọn tới 1 file khác để...

Code thì không dùng tới câu lệnh Application.enableEvents = False ạ Sub Fill_data() Dim wb As Workbook Dim vbProj As VBIDE.VBProject Dim vbComp As VBIDE.VBComponent Dim vbMod As VBIDE.CodeModule Dim filePath As String Application.ScreenUpdating = False...

Chào Đại gia đình GPE Cho hỏi sự kiện Beforesave không chạy khi bấm lưu là lỗi gì vậy nhỉ? Sub Fill_data không được gọi khi bấm lưu Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call Fill_data End Sub Trong khi ở máy tính khác cùng phiên bản excel 2016 thì...

Thử: lr = Sheet1.range("BK").end(xlup).row

E rằng dành tí thời gian không giải quyết được vấn đề của bạn. 1. Bạn cho cái hình thôi thì chắc chẳng ai giúp bạn 2. Bài này nó quá khó y như cách bạn đang giải thích cho người khác hiểu... chẳng hiểu cái gì cả!

Bạn nên cho 1, 2 trường hợp cụ thể là dựa vào đâu rồi lấy cái gì. Đoán mò, làm xong bạn lại không vừa ý, mất công

Bác cứ thích làm khó vấn đề, em thích sử dụng mấy hàm đơn giản thôi, dễ hiểu, dễ áp dụng :) =COUNTIF($A$2:$A$68,F2)+SUMPRODUCT(-($A$2:$A$68=F2),--(WEEKDAY($C$2:$C$68)=2)+(WEEKDAY($C$2:$C$68)=7))/2

Nhanh nhất là liên hệ người viết ra file đó nhé. Ở đây không giúp phá pass, hack pass các kiểu, nội quy đã nói đến

Thêm 1 cách khác tìm TÊN =OFFSET($A$1,AGGREGATE(15,6,ROW($H$1:$H$100)/(LEFT($A$2:$A$100)<>"A"),ROW(L1)),) tham khảo file đính kèm

Chỉnh sửa code trên chút xíu, bạn kiểm tra lại xem ok chưa nhé

Trong sheet BQT-VTU thấy có mấy cột đơn giá, không biết lấy cột đơn giá nào luôn, hay là các cột đó cùng 1 đơn giá cho từng dòng? Bạn có thể gộp Mã vật tư và đơn giá làm 1 Key cho dictionary, lúc đó thì có thể lấy danh sách trùng mã vật tư nhưng khác đơn giá

Cái này không phải lỗi bỏ dòng, mà do mình nhầm chút nên dữ liệu file sau chèn lên dòng cuối dữ liệu file trước đó mình điều chỉnh lại code chút xíu (do tiêu đề bạn merge ô), bạn thích sử dụng cái nào thì dùng :)

thử đổi Pro = "Provider=Microsoft.ACE.OLEDB.12.0;" Ext = ";Extended Properties=""Excel 12.0;" thành Pro = "Provider=Microsoft.ACE.OLEDB.12.0;" Ext = ";Extended Properties=""Excel 8.0;" mình không có excel 2003 để test nên ko biết thế nào :)

Sao lại bỏ file nhỉ, cái Getname nó lấy tất tên file trong cùng 1 thư mục mà, bạn up lên mấy file bị bỏ đó xem sao Cái Getname nó lấy tất file .xls, xlsx, xlsm, xlsb... mà bác. kiểm tra xem file đã được bật Microsoft Scripting Runtime trong Reference chưa nhé

Bạn thử cách này xem có nhanh hơn xíu nào không nhé Lưu ý, bỏ chung File "Cập nhật" vào cùng folder chưa các file cần copy dữ liệu Function GetExcelConnection(ByVal Path As String, Optional ByVal Header As Boolean = True) Dim StrConn As String, ObjConn As Object, Pro As String, Ext As...

Có thể đưa tên file tiếng Việt vô code nó không chạy, vậy thì bạn ghi tên tiếng Việt ấy vô 1 cell và tham chiếu tới nó thì code chạy được

Giờ bạn muốn giải quyết bằng công thức hay lập trình?

Đỏ vầy được chưa nhỉ?

Gợi ý cho bạn: Sử dụng FileSystemObject để kiểm tra sự tồn tại của 1 file trong folder nhé