Trích xuất đoạn VBA trong file Excel trong thành addin để sử dụng cho các file khác (2 người xem)

[quocphi126]

Chào toàn thể ace trong diễn đàn.
Em có một file Excel trong file có sẵn các đoạn VBA để tính toán khối lượng với hàm " KL". Nó cho phép dọc các text trong ô excel và cộng chúng lại với nhau:
VD: "Chiều dài: 3+4+3"=10
Cụ thể trong file đính kèm.
ACE giúp em trích xuất đoạn VBA với hàm "KL" đó ra thành add để có thể dùng cho các file Excel khác với ạ.
Em cảm ơn.
Thân!
Ps: E mới đăng bài, nếu có gì sai sót addmin nhắc em nhé!

 

[quocphi126]

ACE nào vào xem giúp em với nhé!. Thân!

 

[tech456]

ACE nào vào xem giúp em với nhé!. Thân!

code vba:
Public Function kl(strText As String)
If Right(strText, 1) = " " Then
kl = "0"
Else
strText = Replace(strText, "m2", "")
strText = Replace(strText, "m3", "")
strText = Replace(strText, "M2", "")
strText = Replace(strText, "M3", "")
strText = Replace(strText, ",", ".")

If vitri(" ", strText) < Len(strText) And vitri(" ", strText) > 1 Then
strText = Right(strText, Len(strText) - vitri(" ", strText))
'Else
End If

kl = ""
For i = 1 To Len(strText)
kytu = Mid(strText, i, 1)
ktdb = Mid(strText, i, 4)
If kytu = "0" Or kytu = "1" Or kytu = "2" Or kytu = "3" Or kytu = "4" Or kytu = "5" Or kytu = "6" Or kytu = "7" _
Or kytu = "8" Or kytu = "9" Or kytu = "+" Or kytu = "-" Or kytu = "*" Or kytu = "/" Or kytu = "^" Or kytu = "." _
Or kytu = "," Or kytu = "(" Or kytu = ")" Or kytu = "%" Or kytu = "x" Or kytu = "X" Or ktdb = "sqrt" Or ktdb = "Sqrt" Or ktdb = "SQRT" Then
If ktdb = "sqrt" Or ktdb = "Sqrt" Or ktdb = "SQRT" Then
kytu = "sqrt"
End If
If kytu = "x" Or kytu = "X" Then
kytu = "*"
End If
kl = kl & kytu
End If
Next
If kl = "" Then
kl = 0
End If
End If
If IsError(Evaluate(kl)) Then
kl = ""
Else
kl = Round(Evaluate(kl), 3)
If kl = 0 Then
kl = ""
End If
End If
End Function


Function vitri(kytu As String, chuoidc As String)
sodaucach = 0
For i = 1 To Len(chuoidc)
kytuchuoi = Mid(chuoidc, i, 1)
If kytuchuoi = kytu Then
vitri = i
End If
Next
End Function

 

[hackVBA]

Chào toàn thể ace trong diễn đàn.
Em có một file Excel trong file có sẵn các đoạn VBA để tính toán khối lượng với hàm " KL". Nó cho phép dọc các text trong ô excel và cộng chúng lại với nhau:
VD: "Chiều dài: 3+4+3"=10
Cụ thể trong file đính kèm.
ACE giúp em trích xuất đoạn VBA với hàm "KL" đó ra thành add để có thể dùng cho các file Excel khác với ạ.
Em cảm ơn.
Thân!
Ps: E mới đăng bài, nếu có gì sai sót addmin nhắc em nhé!

file ít virut ghê ta

 

[tech456]

copy đoạn code vào module, lưu lại Save Type as: Excel Add in (*.xlam) hoặc Excel 97-2003 Add-In(*.xla)

 

[ndu96081631]

file ít virut ghê ta

Cái tên"foxz" thì đúng là virus nhưng module đó chỉ còn mỗi cái tên mà không có tí code nào bên trong. Có nghĩa là con virus đó chỉ là con hổ giấy, hoàn toàn vô hại




Có vẻ như bạn quá tin tưởng vào chương trình anti virus của mình nên chưa mở file xem thì phải?

 

[hackVBA]

Cái tên"foxz" thì đúng là virus nhưng module đó chỉ còn mỗi cái tên mà không có tí code nào bên trong. Có nghĩa là con virus đó chỉ là con hổ giấy, hoàn toàn vô hại

View attachment 207519


Có vẻ như bạn quá tin tưởng vào chương trình anti virus của mình nên chưa mở file xem thì phải?

Chưa bác phải kiểm tra virut mới dám xem heeeee