Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35672
Главная » Готовые решения » 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
Добавил: Serge_007 | | Теги: ВБА, случайные буквы, генерация случайных букв, VBA, random_letter
Просмотров: 10330 | Рейтинг: 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. таким образом я себе сделал генератор паролей. :D

0   Спам
4    AsprOn   (14.04.2015 17:45)
   Всем добрый день! Подскажите, а как сделать чтобы эта фугкция выбирала между конкретными буквами, скажем "а,б,в" с эксемем у меня слабовато сам никак не могу додуматься.

0  
5    Serge_007   (19.06.2015 12:24)
   Для этого в Chr надо подставить соответствующие коды символов

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!