VBA для чайников
Шрифт:
Format Percent (число). Умножает число на 100 и добавляет знак процентов (например, 0,05 превращается в 5,00%). Функция Format Percent имеет те же необязательные аргументы, что и функция FormatNumber. Чтобы не выводить знаки дробной части, задайте аргумент ЧислоЗнаковПослеЗапятой равным 0 (например, Format Percent ( .05, 0)).
Как упоминалось в главе 9, VBA автоматически конвертирует данные одних типов в другие "на лету". Такие автоматические преобразования, конечно, удобны, да и получаемые при этом результаты обычно соответствуют желаемым. Правда, при этом нужно обязательно подчеркнуть слово обычно.
Когда автоматическое преобразование вас не устраивает, VBA готов предложить массу функций для явного преобразования данных одних типов в другие. Эти функции можно использовать для того, чтобы
* быть уверенным, что VBA выполняет именно то преобразование, которое нужно;
* выполнить преобразования, которые не выполняются в VBA автоматически;
* сделать свой программный код яснее.
Для конвертирования данных в VBA предусмотрена целая группа функций - CBool, Cbyte, CCur и т.д.
– своих для каждого из встроенных типов данных, за исключением Object. Например, в результате выполнения оператора boolMaybe = CBool (123) переменная bool Maybe
Замечу, однако, что, кроме превращения самой операции конвертирования в явную, эти функции не делают ничего такого, что не может предложить VBA при автоматическом конвертировании. (Об особенностях функции СDec см. в главе 9.)
Функции Fix и intотбрасывают дробную часть любого заданного им числа, возвращая целое число. Но, в отличие от функций CInt и CLng, они не выполняют привычного округления - например, int(4 . 98 9) возвращает 4, а не 5.
Результаты этих двух функций отличаются только при обработке отрицательных чисел.
Тогда intвозвращает ближайшее к значению аргумента меньшее целое число, a Fix просто отбрасывает дробную часть аргумента.
Функции Hex и Oct преобразуют стандартные десятичные целые числа в строки, содержащие соответственно их шестнадцатеричные и восьмеричные эквиваленты.
Возможность явного конвертирования в обратном направлении в VBA не предусмотрена, но зато вы можете напечатать буквальные шестнадцатеричные или восьмеричные значения и позволить редактору Visual Basic превратить их в десятичные автоматически. При этом любой шестнадцатеричный или восьмеричный литерал должен предваряться специальным кодом: шестнадцатеричный – кодом &Н, а восьмеричный - кодом &О (это буква О, а не цифра 0). Например, в результате выполнения оператора intBas es = 10+&О12 + &НА значением переменной intBases будет число 30, как и должно быть (это очевидно).
Некоторые функции VBA конвертируют числа в строки. К таким функциям относятся следующие.
* CStr. Превращает данные любых типов (кроме типа Object ), включая числовые, в соответствующую им строку. Вывод форматируется в соответствии с установками заданными в панели управления Язык и стандарты Windows. Например, во Франции CStr ( 200.02) на выходе выдаст строку "200, 02". Здесь следует заметить, что хотя результирующая строка и соответствует региональным установкам, подаваемые на вход числовые данные должны быть представлены в формате, соответствующем английскому языку США.
* Str. Конвертирует число в строку, но всегда форматирует строку в соответствии со стандартом английского языка США с точкой в качестве десятичного разделителя.
* Функции конвертирования в числовые типы данных. Конвертируют строки в соответствующие числовые значения, но только тогда, когда все символы в строке распознаются как допустимые для чисел. В данном случае тоже все зависит от установок в панели управления. Например, в России CDbl ("200, 02р. ") в результате дает 200, 02; в США тот же оператор порождает ошибку, но CDbl ( "$200 . 02" ) прекрасно работает.
* Val. Конвертирует числа в строках в числовые значения, останавливаясь там, где встречается первый символ, недопустимый для чисел. Независимо от установок панели управления, распознает только цифры и десятичную точку (а не запятую, например). Однако игнорирует пробелы, символы табуляции и переходы на новую строку.
Так, выражение Val ("28 190.43 12 by 14 ") в результате даст 28190,4312.
Chr. Конвертирует числовой ANSI-код в соответствующий символ. Используйте эту функцию, когда в строку нужно поместить символ, который нельзя напечатать.
Asc. Примерно соответствует обратной к функции Chr - возвращает числовой код первого символа в строке.
Работа со строками
В VBA имеется довольно богатая коллекция операторов и функций для форматирования строк и извлечения тех их частей, которые вы сочтете особенно привлекательными. В табл. 11.3 я представил все относящиеся к строкам команды, которые мне удалось обнаружить.
Таблица 11.3. Операторы и функции для обработки строк
Не забывайте, что буквальные строковые значения (в отличие от переменных, содержащих строковые значения) должны заключаться в кавычки.
| Оператор или функция | Тип | Выполняемые действия (для операторов) или возвращаемые значения (для функций) |
| Asc (строка) | Функция | Числовой код первого символа в строке |
| Chr (код_символа) | функция | Символ, соответствующий значению параметра код_символа |
| Filter ( массив_источник, эталон, включает, метод сравнения) | Функция (только в VBA6) | Массив, состоящий только из тех строк из массива источника, которые содержат эталон. Аргумент массив_истчник должен быть массивом строковых значений. Если необязательный аргумент включает равен False, то функция возвратит только строки, которые не включают эталон |
| Format (строка) | Функция | См. выше раздел "Форматирование данных" |
| Hex (число) | Функция | Строка, содержащая шестнадцатеричное представление числа |
| InStr (старт, строка1, строка2) | Функция | Число, соответствующее позиции строки 2 в строке 1; поиск начинается с позиции старт, этот аргумент не обязателен |
| InStrRev (строка 1, строка2, старт) | функция (только в VBA6) | Число, |
| Join (массив_строк, разделитель) | функция (только B VBA6) | Одна строка, комбинирующая все строки из массив_строк, который должен быть массивом строковых данных. По умолчанию Join вставляет пробел между строками, взятыми из массива строк, но можно задать и другой символ разделителя (символ необходимо заключить в кавычки) |
| Left (строка, длина) | Функция | Строка указанной длины из символов, взятых подряд из строки, задаваемой аргументом строка, начиная с левого края последней |
| Len (строка) | Функция | Число символов в строке |
| LCase (строка) | Функция | Копия строки, представленная символами нижнего регистра |
| LSet строковая_ переменная = строка | Оператор | Устанавливает значение строковой переменной, равное заданной строке, без изменения длины этой строковой переменной и с размещением заданной строки начиная с левого края переменной |
| LTrim (строка) | Функция | Новая строка, содержащая копию данной строки без пробелов в начале |
| Mid(строка, старт, длина) | Функция | Новая строка заданной длины из символов данной строки, взятых подряд, начиная с позиции старт |
| Mid(строковая переменная, старт, длина) = строка | Оператор | Начиная с позиции старт заменяет символами данной строки заданное аргументом длина число символов в строковой переменной |
| Oct(число) | Функция | Строка, содержащая восьмеричное представление числа |
| Replace(строка, найти, заменить, старт, число_замен, метод_сравнения) | Функция (только в VBA6) | Новая строка, получаемая в результате замены в заданной строке текста найти текстом заменить. Аргументы старт, число_замен и метод_сравнения не обязательны. Используйте число_замен, чтобы указать, сколько замен следует сделать, если текст найти встречается несколько раз (по умолчанию заменяются все случаи появления текста найти в строке) |
| Right (строка, длина) | Функция | Строка указанной длины из символов, взятых подряд из строки, задаваемой аргументом строка, начиная с правого края последней |
| RSet строковая_ переменсная = строка | Оператор | Устанавливает значение строковой переменной, равное заданной строке, без изменения длины этой строковой переменной и с размещением заданной строки с правого края переменной |
| RTrim (строка) | Функция | Новая строка, содержащая копию данной строки без пробелов в конце |
| Space (число) | Функция | Строка, состоящая из указанного числа пробелов |
| Split(строка, разделитель, предел, метод сравнения) | Функция (только B VBA6) | Массив строк, полученный в результате разделения в заданной строки. По умолчанию оригинальная строка разделяется по пробелам, но можно задать разделитель, отличный от пробела (для задания разделителя используйте символ, заключенный в кавычки). Необязательный аргумент предел задает максимальное число строк в возвращаемом массиве |
| StrComp(строка1, строка2) | Функция | О, если две строки равны; -1,если строка 1 меньше, чем строка 2; 1, если строка! больше, чем строка 2 (о сравнении строк говорилось в главе 9) |
| StrConv(строка, метод перевода) | Функция | Новая строка, созданная на основе заданной указанным методом перевода |
| String(число, символ) | Функция | Строка, состоящая из заданного числа повторяющихся символов |
| StrReverse (строка) | Функция(только VBA 6) | Строка, содержащая символы заданной строки в обратном порядке |
| Trim(строка) | Функция | Новая строка, содержащая копию данной строки без пробелов в начале и конце |
| UCase(строка) | Функция | Копия строки, представленная символами верхнего регистра |
Не расстраивайтесь, если не обнаружите строковую функцию, которая делает в точности то, что вам нужно. Воспринимайте эти функции как строительные блоки - часто для достижения нужного результата эти функции приходится вкладывать одну в другую.
Представим, например, что у вас есть список полных имен в виде следующих строк:
"Самодур, Иван Акакиевич, акад."
"Невеселый, Степан Федорович, проф."
"Шутник, Василий Степанович, канд."