Юникод текст на арабский Текст в Excel

Question

Я спросил здесь, как поставить %u после каждых четырех цифр, чтобы преобразовать мою длинную строку в правильный текст в Юникоде. Я получил очень хороший ответ с UDF и отлично работает .. теперь от этой строки

002006390632064A0632064A00200627064406390645064A0644003A0020062A0645002006270644 

я в состоянии превратить его в

%u0020%u0639%u0632%u064A%u0632%u064A%u0020%u0627%u0644%u0639%u0645%u064A%u0644%u003A%u0020%u062A%u0645%u0020%u0627%u0644 

Ну строка долго я только что показал вам результат ... Теперь, что я ищу, есть функция excel, которая может преобразовать это в арабский текст. На самом деле это некий код и хотите посмотреть, как он выглядит на арабском языке. В настоящее время я использую сайт

http://unicode.online-toolz.com/tools/text-unicode-entities-convertor.php

преобразовать его вручную. Есть ли какая-либо функция excel, которая может делать это локально.

Answer 1

Вы можете создать массив байтов из кода и присвоить этот массив байтов строке. Затем эту строку можно назначить ячейке.

Пример:

Sub test() 

Dim sCode As String 

sCode = "002006390632064A0632064A00200627064406390645064A0644003A0020062A0645002006270644" 

Dim b() As Byte 
Dim j As Long 
j = 0 

For i = 1 To Len(sCode) Step 4 

    ReDim Preserve b(j + 1) 
    b(j) = Val("&H" & Mid(sCode, i + 2, 2)) 
    b(j + 1) = Val("&H" & Mid(sCode, i, 2)) 
    j = j + 2 

Next 

Dim s As String 
s = b 

Range("A1").Value = s 

End Sub