Select Case можно заменить на формулу.
И не надо в цикле каждый раз теребить поле. Это сильно замедляет работу. Вычисляй массив, а потом пиши в поле:
И не надо в цикле каждый раз теребить поле. Это сильно замедляет работу. Вычисляй массив, а потом пиши в поле:
Код:
a = Split("", "")
Do While
...
a = ArrayAppend(a, v_quart)
...
Loop
Call doc.ReplaceItemValue("QuarterActual", FullTrim(a))