File Excel báo lỗi công thức sau khi mở Excel 2010

[Tuyet_roi_mua_he]

Em có 1 file excel về bảng chấm công. Lúc trước máy dùng WinXP thì không có vấn đề gì. Từ khi máy em cài Win 7 và dùng bộ office 2010 thì file chấm công đó mở ra có hàm phức tạp nên báo lỗi như sau ạ

This workbook has lost its VBA project, ActiveX controls and any other programmability-related features.

Em không rành về vấn đề này. Các anh/ chị có thể hướng dẫn em cách khắc phục để file chạy như bình thường với ạ. Giờ em gỏ tiếng Việt mà nó tùm lum như vậy nữa ạ

 

[Lê Duy Thương]

Em có 1 file excel về bảng chấm công. Lúc trước máy dùng WinXP thì không có vấn đề gì. Từ khi máy em cài Win 7 và dùng bộ office 2010 thì file chấm công đó mở ra có hàm phức tạp nên báo lỗi như sau ạ



Em không rành về vấn đề này. Các anh/ chị có thể hướng dẫn em cách khắc phục để file chạy như bình thường với ạ. Giờ em gỏ tiếng Việt mà nó tùm lum như vậy nữa ạ

bạn lưu file ở định dạng xlsm hoặc xlsb thì vba mới có tác dụng

 

[Tuyet_roi_mua_he]

bạn lưu file ở định dạng xlsm hoặc xlsb thì vba mới có tác dụng

Chỉ em cách lưu file theo định dạng đó với ạ. Có phải em Save as thì được đúng không ạ?
Em thấy file em tạo trong Excel 2010 là đôi .xlsx. Còn xlsm và xlsb thì là sạo ạ?
Em cám ơn ^,^

 

[leonguyenz]

Bạn mở file Excel, nhấn F12, ở ô Save as type bạn chọn Excel Marco-Enabled Workbook (save đuôi .xlsm) hoặc Excel Binary Workbook (save file .xlsb).

 

[Lê Duy Thương]

Chỉ em cách lưu file theo định dạng đó với ạ. Có phải em Save as thì được đúng không ạ?
Em thấy file em tạo trong Excel 2010 là đôi .xlsx. Còn xlsm và xlsb thì là sạo ạ?
Em cám ơn ^,^

bấm f12 rồi chọn mục save as type và làm theo hình

 

[Tuyet_roi_mua_he]

bấm f12 rồi chọn mục save as type và làm theo hình

Em đã làm theo hướng dẫn của 2 anh thì khi mở file copy lên nó không còn báo

This workbook has lost its VBA project, ActiveX controls and any other programmability-related features

. nhưng sao cột công thức nó vẫn không hiển thị ạ. Nó lại là

#NAME?

Một lần nữa em mong được giúp đỡ ạ ^.^

 

[Tuyet_roi_mua_he]

Công thức Excel báo lỗi #NAME? là bị sao vậy ạ
Mong được anh/ chị giúp đỡ

 

[ThuNghi]

Công thức Excel báo lỗi #NAME? là bị sao vậy ạ
Mong được anh/ chị giúp đỡ

Nhiều công thức bị #NAME lắm, em có đưa cái công thức đó lên thì mới biết lỗi, có thể 2007 dùng ct đó nhưng 2010 thì kg phù hợp.
Nếu kg tiện thì cắt file ra chỉ đưa demo.

 

[Tuyet_roi_mua_he]

Nhiều công thức bị #NAME lắm, em có đưa cái công thức đó lên thì mới biết lỗi, có thể 2007 dùng ct đó nhưng 2010 thì kg phù hợp. Nếu kg tiện thì cắt file ra chỉ đưa demo.

Dạ, em cám ơn Thầy ThuNghi, file này cuãng là em tải trên Web mình về dùng đây ạ. Em gửi file, thầy xem giùm em với ạ!

 

[ThuNghi]

Dạ, em cám ơn Thầy ThuNghi, file này cuãng là em tải trên Web mình về dùng đây ạ. Em gửi file, thầy xem giùm em với ạ!

Lỗi #NAME là do Excel không nhận diện được công thức hay cú pháp hàm sai.
Cụ thể là
AN17=IF(AI7+AJ7+AK7>$AV$5,IF(AI7>=$AW$5,IF(AK7>=0,$AV$5,AI7+AK7),AI7+AK7),AI7+AJ7+AK7)
Và
AI7=tinhcong(D7:AH7,$AI$5)
Hàm tinhcong này là UDF tự viết = VBA, nhưng file trên không có code nào hết.
Vậy em có thể cụ thể hàm trên tại cột AI là gì.
Sẽ viết lại UDF hay công thức khác.
Hình như file tại link này
http://www.giaiphapexcel.com/forum/showthread.php?29363-Bảng-chấm-công/page2
Và UDF tinhcong là

Option Explicit
Function TinhCong(LookUpRange As Range, Loai As String)
 Dim Clls As Range, Rng As Range, Col As Byte
 
 For Each Clls In LookUpRange
   Col = Clls.Column:                     Set Rng = Cells(6, Col)
   With Clls
      Select Case Loai
      Case "LT_T7"
         If Rng.Value = "T7" And IsNumeric(.Value) Then
            TinhCong = TinhCong + .Value / 8 - 0.5
         ElseIf Rng.Value = "T7" And (.Value = "" Or .Value = "K") Then
            TinhCong = TinhCong - 0.5
         End If
      Case "LT_CN"
         If Rng.Value = "CN" And IsNumeric(.Value) Then _
            TinhCong = TinhCong + .Value / 8
      Case "NC"
         If IsNumeric(.Value) And (Rng.Value < "T7" And Rng.Value > "CN") Then
15          TinhCong = TinhCong + .Value / 8
         End If
      End Select
   End With
 Next Clls
End Function

Đính kèm lại file