Подскажите как создать счётчик не числовой а буквенный

[igor74]

Подскажите пожалуйста как создать счётчик не числовой типа 1,,,,2,,,,3,,,, а буквенный типа а,,,,,б,,,,,в,,,,,г,,,,

[ger_kar]

Из вопроса я например не очень уяснил многие моменты, например диапазон, разрядность и пр. Почему а,,,,, т.е. что имелось ввиду по пятью идущими подряд запятыми? Разрядность?
Именно в том варианте как понял для себя я, а именно счетчик, в качестве которого используются одиночные кириллические прописные символы с диапазоном а-я (1-31) можно сделать так:

Код: Выделить всё

Dim lngASCII as long
Dim sCount  as String
For lngASCII=224 To 255
     sCount = chr$( lngASCII)
Next

Или другой вариант:

Код: Выделить всё

sCount = "а"
sCount = Chr$(Asc(sCount)+1)
'Это просто пример счетчика, что бы это работало, необходимо сделать проверку на достижение конечного значения 255

Ну и куча других вариантов если хорошо подумать.