Как уточнить количество символов в chr

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как уточнить количество символов в chr (Макросы/Sub)

ant6729

Дата: Вторник, 28.08.2018, 05:24 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Я знаю, что количество chr в системе 255
Как мне узнать, что их 255 не методом тыка или из интернета, а из системы?

Пишу, что - то

[vba]

Код

Sub test()

On Error GoTo m
For i = 1 To 500

Cells(i, 1) = Chr(i)

Next i

m: MsgBox "This is the end of array, " & vbCrLf & _
"number of chr is " & i - 1

End Sub

[/vba]

Можно ли не таким идиотским способом уточнять, а как - то попроще?
У меня подозрения, что можно как-то или через immediate window или через верхнюю границу массива или через max...
Подскажите, пожалуйста.

Сообщение отредактировал ant6729 - Вторник, 28.08.2018, 05:31

Ответить

sboy

Дата: Вторник, 28.08.2018, 09:27 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
А в чем сакральный смысл сего поиска?
в справке же написано

Цитата

Использование в параметре CharCode значения больше, чем 255, генерирует ошибки стадии выполнения 5: Invalid procedure call or argument или 6: Overflow

Яндекс: 410016850021169

Ответить

ant6729

Дата: Вторник, 28.08.2018, 12:03 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Просто докалупаться до VBA захотел... иногда находит...

Ладно, пусть отдыхает

Ответить

StoTisteg

Дата: Вторник, 28.08.2018, 15:45 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

ant6729, да пожалуйста.
[vba]

Код

Sub NumOfChar

    Dim i As Integer
    Dim s As String

    i=0
    Do  While Err.Number=0
        i=i+1
        Err.Clear
        On Error Resume Next
        s=Chr(i)
    Loop
    MsgBox "Максимальный аргумент функции Chr — " & i

End Sub

[/vba]