Lỗi không chạy được VBA (1 người xem)

[Đinh Duy Hòa]

Anh em cho mình hỏi, khi mình cài VBA vào file đính kèm thì vẫn được nhưng lệnh lại không chạy được, cho hỏi bị lỗi gì và cách khắc phục. Lưu ý đoạn code không có vấn đề gì đã thử nhiều file khác vẫn OK, chỉ riêng file đính kèm dưới đây là không chạy được. Tks mọi người nhiều

 

[FatBear]

định dạng file là xlsx thì làm sao có macro để chạy được VBA ?

 

[Đinh Duy Hòa]

định dạng file là xlsx thì làm sao có macro để chạy được VBA ?

Chào bạn, thì bạn thử chèn 1 đoạn VBA nào thử xem rồi lưu dưới dạng Macro xem nó có chạy không. Mình chèn vào được rồi mà không chạy, nên mình đính kèm file gốc để mọi người chèn thử và tìm lỗi để khắc phục.

 

[Hong.Van]

Anh em cho mình hỏi, khi mình cài VBA vào file đính kèm thì vẫn được nhưng lệnh lại không chạy được, cho hỏi bị lỗi gì và cách khắc phục. Lưu ý đoạn code không có vấn đề gì đã thử nhiều file khác vẫn OK, chỉ riêng file đính kèm dưới đây là không chạy được. Tks mọi người nhiều

File quá nhiều name rác và 1 ít style rác, bạn xóa nó đi rồi chạy code thử

 

[snow25]

Anh em cho mình hỏi, khi mình cài VBA vào file đính kèm thì vẫn được nhưng lệnh lại không chạy được, cho hỏi bị lỗi gì và cách khắc phục. Lưu ý đoạn code không có vấn đề gì đã thử nhiều file khác vẫn OK, chỉ riêng file đính kèm dưới đây là không chạy được. Tks mọi người nhiều

Mình thử test vẫn ổn mà.Bạn xem.

 

[Đinh Duy Hòa]

Mình thử test vẫn ổn mà.Bạn xem.

Bạn thử chèn đoạn code sau thử mình làm ko dc.
Đoạn code sau dùng để tính kết quả của các phép tính.

Function tt(Mystr As String, Optional Dautp As String) As Double
Dim i As Integer
Dim s As String
i = InStr(1, Mystr, ":")
s = Right(Mystr, Len(Mystr) - i)
tt = Evaluate("=" & s)
End Function

VD: ở ô nội dung công viêc mình gõ phép tính còn ở hàng khối lượng mình nhập lệnh tt để tính ra kết quả của phép tính như hình đính kèm mà ở file này nó bị lỗi. bạn xem giúp nhé

 

[snow25]

Bạn thử chèn đoạn code sau thử mình làm ko dc.
Đoạn code sau dùng để tính kết quả của các phép tính.

Function tt(Mystr As String, Optional Dautp As String) As Double
Dim i As Integer
Dim s As String
i = InStr(1, Mystr, ":")
s = Right(Mystr, Len(Mystr) - i)
tt = Evaluate("=" & s)
End Function

VD: ở ô nội dung công viêc mình gõ phép tính còn ở hàng khối lượng mình nhập lệnh tt để tính ra kết quả của phép tính như hình đính kèm mà ở file này nó bị lỗi. bạn xem giúp nhé
View attachment 220909

Bạn thử cái hàm này.thay cái ở trên nhé.

Public Function tinhtoan(ByVal Mystr As Range) As Double
Dim i As Integer
Dim s As String
i = InStr(1, Mystr.Value, ":")
s = Right(Mystr.Value, Len(Mystr) - i)
tinhtoan = Evaluate(s)
End Function

 

[Đinh Duy Hòa]

Bạn thử cái hàm này.thay cái ở trên nhé.

Public Function tinhtoan(ByVal Mystr As Range) As Double
Dim i As Integer
Dim s As String
i = InStr(1, Mystr.Value, ":")
s = Right(Mystr.Value, Len(Mystr) - i)
tinhtoan = Evaluate(s)
End Function

Ồ được rồi nè, cảm ơn bạn nhiều nhé