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

Liên hệ QC

quocphi126

Thành viên mới
Tham gia
29/10/09
Bài viết
3
Được thích
0
Nghề nghiệp
Kỹ sư kinh tế xấy dựng
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 đính kèm

  • Form KL ME.xls
    245.5 KB · Đọc: 44
ACE nào vào xem giúp em với nhé!. Thân!
 
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
 
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
 

File đính kèm

  • Capture.PNG
    Capture.PNG
    32.8 KB · Đọc: 37
kl.pngkl.png
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)
 
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

Untitled6.jpg


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?
 
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
 
Web KT
Back
Top Bottom