엑셀 VBA FUNCTION으로 함수 만들기

Function namecut(str, n)
    strs = Split(str, " ")
    
    For i = 0 To UBound(strs)
        If i = n - 1 Then
        Else
            result = result & " " & strs(i)
        End If
    Next i
    
    
    namecut = Trim(result)
    


End Function
Function lencut(str, n, num)

    pname = namecut(str, n)
    For i = 1 To 10
        
        If LenB(pname) < num Then
            Exit For
        Else
            pname = namecut(pname, n)
        End If
            
    Next i
    
lencut = Trim(pname)

End Function
Function aksjdnksand(str)
   aksjdnksand = LenB(str)
End Function

 

 

이런식으로 FUNCTION을 활용해서, 내가 원하는 함수 구현 가능.

 

맨 마지막은, 

 

1. 실제 엑셀에서 활용되는 LENB 함수와

2. VBA에서 구현되는 LENB 기능이 달라서, 그걸 확인하기 위해 소스를 테스트로 넣은것.