masagrator
New Member
- Joined
- Jan 30, 2019
- Messages
- 6
Hello.
I want to add a script for Excel to convert text like in title.
I found something like this
But is working only for one letter and doesn't add 0 at the beginning before converting to Little Endian.
Can someone helpto edit this?
I want to add a script for Excel to convert text like in title.
I found something like this
Code:
Function CODEW(Character As String, Optional Unicode_value As Boolean = True, _ Optional Exact_functionality As Boolean = False) As Variant
' Exact Functionality returns exact Unicode for characters as AscW() does
' rather than Windows characters as Asc() does
Dim Characters As String
Dim i As Long
If Exact_functionality Then
CODEW = AscW(Character)
If Unicode_value Then CODEW = “U” & Hex(CODEW)
Exit Function
End If
For i = 128 To 159 'where non-compliant
Characters = Characters & Chr(i)
Next i
If InStr(1, Characters, Left$(Character, 1), vbBinaryCompare) Then
CODEW = Asc(Character)
Else
CODEW = AscW(Character)
End If
If Unicode_value Then CODEW = “U” & Hex(CODEW)
End Function
Can someone helpto edit this?