Как передать элемент массива вариантов в ChrW () в VBA? - PullRequest
Новая
       10

Как передать элемент массива вариантов в ChrW () в VBA?

0 голосов
/ 02 апреля 2019

Я пытаюсь передать элемент массива вариантов (содержит длинное значение) в функцию ChrW (), которая принимает аргумент типа Long (код символа), но функция ChrW () возвращает «?».

Я пытался создать длинные переменные, присвоить элемент массива длинной переменной и передать его в ChrW (), но я получил тот же результат. 

Sub test()
    Dim i As Long
    Dim m As Long
    Dim n As Long

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Emojis")
    Dim a As Variant
    ' Load the values from the sheet into the array
    a = ws.Range("A1:B65").Value

    For i = 1 To 5
        m = a(i, 1)
        n = a(i, 2)
        Debug.Print m; n; ChrW(m) & ChrW(n)
    Next I    
End Sub

Лист, с которого загружается массив, содержит следующие значения ячеек (тип - число) -10179 -9148

-10179 -9140

-10179 -9139

-10179 -9137

и т.д.

Вывод Debug.Print:

-10179 -9148 ??

-10179 -9140 ??

-10179 -9139 ??

-10179 -9137 ??

и т.д.

...