Преобразование нескольких значений Unicode в соответствующий текст в электронной таблице Excel

Question

Если мой символ Unicode содержит более одного шестнадцатеричного значения в ячейке Excel, как мне написать функцию в Excel для преобразования ее в соответствующий символ?

Например: шестнадцатеричные значения Unicode в ячейке Excel: 0B15 0B4D 0B37 . Характер, который будет сформирован из вышеуказанных значений: କ୍ଷ (Одиа / Индийский язык)

Answer 1

С такими данными, как:

Установите следующее U сер D efined F помазание (UDF):

Public Function qwerty(r As Range) As Variant
   Dim L As Long, CH As String, CH2 As String
   arr = Split(ActiveCell.Text, " ")
   For Each a In arr
      L = Application.WorksheetFunction.Hex2Dec(a)
      CH = ChrW(L)
      CH2 = CH2 & CH
   Next a
   qwerty = CH2
End Function

Затем выберите ячейку, скажем ячейку B1, отформатируйте ее в Arial Unicode MS и введите:

=qwerty(A1)

Пользовательские функции (UDF) очень просты в установке и использовании:

1. ALT-F11 открывает окно VBE
2. ALT-I ALT-M открывает новый модуль
3. вставьте материал и закройте окно VBE

Если вы сохраните книгу, UDF будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить UDF:

1. откройте окно VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы использовать UDF из Excel:

= QWERTY (А1)

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

а подробности о UDF смотрите в:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

Макросы должны быть включены, чтобы это работало!