Zorrofantasy
Thành viên mới
- Tham gia
- 19/10/11
- Bài viết
- 18
- Được thích
- 0
Chào mọi người trong box VBA,
Mình có 1 function này , nhưng khi test thì bị lỗi , nhờ mọi người xem giúp mình thử bị gì mà cứ bị lỗi này ( theo hình đính kèm )
Cám ơn đã xem tin,
Mình có 1 function này , nhưng khi test thì bị lỗi , nhờ mọi người xem giúp mình thử bị gì mà cứ bị lỗi này ( theo hình đính kèm )
Cám ơn đã xem tin,
Mã:
Function GetNameValue(NameTitle As String) As String
Dim UnCleanValue As Variant, TargetName As Variant
Dim CleanValue As Variant
Dim Wksht As Worksheet
Set Wksht = ActiveSheet
On Error Resume Next
TargetName = Wksht.Names(NameTitle) 'lỗi dòng này khi debug
If Err.Number > 0 Then Exit Function
CleanValue = Replace(TargetName, Chr(34), "")
CleanValue = Replace(CleanValue, "=", "")
GetNameValue = CleanValue
End Function