|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
05.12.2007, 21:42 | #1 |
Пользователь
Регистрация: 05.12.2007
Сообщений: 23
|
Шифратор на VBA
Пожалуйста помогите решить задачу!!!
Задача: Создайте макрос, который будет кодировать текст, заменяя буквы "а" в тексте указанной ячейки на произвольный символ, и выводить закодированный текст в новой ячейке. Для запуска макроса расположить кнопку. |
06.12.2007, 08:09 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Так пойдет?
Sub Shifr() Dim MyString As String, NewString As String Dim i As Integer MyString = Range("A1") 'Пусть это ячейка, содержащая текст NewString = MyString For i = 1 To Len(MyString) If Mid(MyString, i, 1) = "а" Then NewString = Application.Replace(NewString, i, 1, Chr(Rnd * 30 + 225)) Next Range("A2") = NewString 'Пусть это ячейка будет содержать новый текст End Sub Здесь русская "а" заменяется случайным символом из диапазона Chr(Rnd * 30 + 225). Можно установить любой другой.
Чем шире угол зрения, тем он тупее.
|
06.12.2007, 08:14 | #3 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Создай элемент управления "кнопка" на рабочем листе и в его модуле вставь либо код этого макроса, либо команду Run "Shifr" (запуск макроса из программного модуля).
Чем шире угол зрения, тем он тупее.
|
06.12.2007, 15:53 | #4 |
Форумчанин
Регистрация: 21.08.2007
Сообщений: 292
|
Вот ещё предложу вариант. Тут заменяется каждая буква а (А) на произвольную.
Код:
|
06.12.2007, 19:17 | #5 |
Пользователь
Регистрация: 05.12.2007
Сообщений: 23
|
Большое спасибо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
шифратор файлов | Kubus | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 6 | 14.05.2007 23:58 |