Использование текстовых функций

Написать шифратор.

3.1. Перейти на другой лист.

3.2. Создайте макрос, который будет кодировать текст, заменяя буквы «а» в тексте указанной ячейки на произвольный символ, и выводить закодированный текст в новой ячейке.

Примеры использования некоторых функцийПример 1 Dim MyTime, MyDate, MyStrMyTime = #17:04:23#MyDate = #January 27, 1993# MyStr = Format( Time, "Long Time" ) MyStr = Format( Date, "Long Date" ) MyStr = Format( MyTime, "h:m:s" ) ' Возвращает "17:4:23".MyStr = Format( MyTime, "hh:mm:ss AMPM" ) ' Возвращает "05:04:23 PM".MyStr = Format( MyDate, "dddd, mmm d yyyy" ) ' Возвращает "Wednesday, ' Jan 27 1993".MyStr = Format( 23 ) ' Возвращает "23".MyStr = Format( 5459.4, "##,##0.00" ) ' Возвращает "5,459.40".MyStr = Format( 334.9, "###0.00" ) ' Возвращает "334.90".MyStr = Format( 5, "0.00%" ) ' Возвращает "500.00%".MyStr = Format( "HELLO", "<" ) ' Возвращает "hello".MyStr = Format( "This is it", ">" ) ' Возвращает "THIS IS IT". Пример 2

Пример демонстрирует вывод количества дней между сегодняшенй датой и вводимой с клавиатуры.

Dim TheDate As Date Dim MsgTheDate = InputBox("Enter a date")Msg = "Days from today: " & DateDiff( "d", Now, TheDate ) MsgBox Msg Пример 3

Пример демонстрирует отсечение крайних пробелов с указанной стороны.

Dim MyString, TrimString

MyString = " <-Trim-> " ' объявление строки.

TrimString = LTrim( MyString ) ' TrimString = "<-Trim-> ".

TrimString = RTrim( MyString ) ' TrimString = " <-Trim->".

TrimString = LTrim(RTrim( MyString )) ' TrimString = "<-Trim->".

TrimString = Trim( MyString ) ' TrimString = "<-Trim->".

Пример 4

Пример демонстрирует перевод строкового значения в текст. Пробелы игнорируются, но символы, не являющиеся цифрами – сигнал для обрывания числа.