Генерация случайных букв - Пользовательские функции - VBA - Готовые решения$ - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Готовые решения

Главная » Готовые решения » VBA » Пользовательские функции

Генерация случайных букв

	24.07.2013, 14:16


Функция RandLetterRUS() возвращает случайные буквы русского алфавита Function RandLettersRUS(LenLetter As Integer) Randomize RandLettersRUS = Space(LenLetter) For iCount = 1 To LenLetter Mid(RandLettersRUS, iCount, 1) = Chr((Int(192 + (Rnd() * 64)))) Next End Function Функция RandUpperLetterENG() возвращает случайные прописные буквы английского алфавита Function RandUpperLettersENG(LenLetter As Integer) Randomize RandUpperLettersENG = Space(LenLetter) For iCount% = 1 To LenLetter Mid(RandUpperLettersENG, iCount%, 1) = Chr((Int(65 + (Rnd() * 26)))) Next End Function
1 2 3 4 5 Добавил: Serge_007 \| \| Теги: ВБА, случайные буквы, генерация случайных букв, vba, random_letter
Просмотров: 19876 \| Рейтинг: 2.0/4

Всего комментариев: 5

Порядок вывода комментариев:

+1

1 MCH (20.09.2013 11:08) [ Материал]

Первая функция не возвращяет буквы "я", "ё", "Ё", вторая - "Z"

0

2 Serge_007 (20.09.2013 11:26) [ Материал]

"ё" и "Ё" возвращать не будет, остальное поправил, спасибо

+1

3 alex53 (18.11.2013 14:36) [ Материал]

Добрый день.
Можно добиться такого же результата, если в надстройках Excel актировать "пакет анализа", после этого написать формулу
для русских букв (и больших и маленьких, но можно по отдельности) буквы "ё" и "Ё" также нет
=СИМВОЛ(СЛУЧМЕЖДУ(192;256))

для английских букв (больших)
=СИМВОЛ(СЛУЧМЕЖДУ(65;90))

для английских букв (маленьких)
=СИМВОЛ(СЛУЧМЕЖДУ(97;122))

и т.д.
P.S. таким образом я себе сделал генератор паролей.

0

4 AsprOn (14.04.2015 17:45) [ Материал]

Всем добрый день! Подскажите, а как сделать чтобы эта фугкция выбирала между конкретными буквами, скажем "а,б,в" с эксемем у меня слабовато сам никак не могу додуматься.

0

5 Serge_007 (19.06.2015 12:24) [ Материал]

Для этого в Chr надо подставить соответствующие коды символов

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!