Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Символы-заполнители для создания пользовательских форматов
|
Символ-заполнитель |
Действие (в качестве примера используется число 1234.45) |
|
0 |
Цифровой символ, отображает цифру, если таковая находится в этой позиции, или 0, если - нет. Можно использовать символ 0 для отображения начальных нулей для целых чисел и конечных нулей в десятичных дробях: 00000.000 отображает 01234.450 |
|
# |
Цифровой символ, отображает цифру, если таковая находится в этой позиции, иначе - не отображает ничего. Символ-заполнитель # эквивалентен 0, кроме того, что начальные и конечные нули не отображаются: #####.### отображает 1234.45 |
|
$ |
Отображает знак доллара: $###,###.00 отображает $1 234,45 |
|
. |
Десятичный символ-заполнитель, отображает десятичную точку в обозначенной позиции в строке символов-заполнителей 0: #.##.## отображает 1234.45 |
|
% |
Символ процента, умножает значение на 100 и добавляет знак процента в позицию, указанную символами-заполнителями 0:#.#0.00% отображает число 0.12345 как 12.35% (происходит округление) |
|
, |
Разделитель тысяч, добавляет запятые как разделители тысяч в строках символов-заполнителей 0 и #: ###,###,###.00 отображает 1 234,45 |
|
E- e- |
Отображает значение в экспоненциальном формате со знаком порядка только для отрицательных значений: #.####E-00 отображает 1.23445Е03 |
|
E+ e+ |
Отображает значение в экспоненциальном формате со знаком порядка как для отрицательных, так и для положительных значений: #.####E+00 отображает 1.23445Е+03 |
|
/ |
Отделяет день, месяц и год для форматирования значений дат. |
|
m |
Указывает, как отображать месяцы в датах: m отображает 1, mm - 01, mmm - янв, mmmm - Январь |
|
d |
Указывает, как отображать дни в датах: d отображает 1, dd - 01, ddd - Вс, dddd - воскресенье |
|
y |
Отображает день года как число от 1 до 366 |
|
yy |
Указывает, как отображать годы в датах: yy - 66, yyyy - 1966 |
|
q |
Отображает квартал года как число от 1 до 4 |
|
w |
Отображает день недели как число (1 - воскресенье) |
|
ww |
Отображает неделю года как число от 1 до 54 |
|
: |
Отделяет часы, минуты и секунды в значениях формата времени: hh:mm:ss - 01:01:01, h:m:s - 1:1:1 |
|
h |
Указывает, как отображать часы: hh - 01, h - 1 |
|
m |
Указывает, как отображать минуты: mm - 01, m - 1 |
|
s |
Указывает, как отображать секунды: ss - 01, s - 1 |
|
AM/PM |
Отображает время в 12-часовом формате времени с добавленными АМ или РМ |
|
@ |
Символьный заполнитель, отображает пробел, если не имеется соответствующего символа в форматируемой строке. |
|
< |
Отображает все символы в верхнем регистре. |
|
> |
Отображает все символы в нижнем регистре. |
Функция Chr
Возвращает значение типа String, которое содержит знак, соответствующий указанному коду знака.
Синтаксис
Chr(код_знака)
Обязательный аргумент код_знака — это значение типа Long, по которому определяется знак.
Замечания
Числа 0 — 31 соответствуют стандартным, непечатаемым знакам в кодировке ASCII. Например, Chr(10)возвращает знак переноса строки. Обычный диапазон для аргумента код_знака — от 0 до 255. Однако для систем, использующих кодировку DBCS, фактический диапазон аргумента код_знака составляет от -32768 до 65535.
ПРИМЕЧАНИЕ. Функция ChrB используется с байтовыми данными, содержащимися в переменной String. Вместо знака, который может состоять из одного или двух байт, ChrB всегда возвращает один байт. Функция ChrW возвращает переменную String, которая содержит знак Юникода. Исключение составляют платформы, не поддерживающие кодировку Юникод; в этом случае функция работает так же, как функцияChr.
ПРИМЕЧАНИЕ. Visual Basic для компьютеров Макинтош не поддерживает строки Юникода. Поэтому функция ChrW(n) не может возвращать знаки Юникода для значений n в диапазоне от 128 до 65535, что возможно в среде Windows. Вместо этого ChrW(n) использует «наилучшую замену» для значений Юникода n больше 127. В связи с этим не следует использовать ChrW для компьютеров Макинтош.
Пример
ПРИМЕЧАНИЕ. Приведенные ниже примеры иллюстрируют использование возможностей модуля Visual Basic for Applications (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите пунктСправочник разработчика в раскрывающемся списке рядом с кнопкой Поиск, а затем введите один или несколько ключевых слов в поле поиска.
В данном примере функция Chr возвращает знак, соответствующий указанному коду знака.
Dim MyChar
MyChar = Chr(65) ' Returns A.
MyChar = Chr(97) ' Returns a.
MyChar = Chr(62) ' Returns >.
MyChar = Chr(37) ' Returns %.
Функция MsgBox
Выводит сообщение в диалоговом окне, ожидает нажатия кнопки пользователем и возвращает значение типа Integer, которое указывает, какая кнопка использовалась.
Синтаксис
MsgBox(Сообщение [, Кнопки ] [, Заголовок ] [, ФайлСправки ] [, Контекст ] )
Функция MsgBox имеет следующие аргументы:
|
АРГУМЕНТ |
ОПИСАНИЕ |
|
Сообщение |
Обязательный аргумент. Строковое выражение, отображаемое как сообщение в диалоговом окне. Максимальная длина строки аргумента Сообщение составляет приблизительно 1024 знаков и зависит от их ширины. Если аргумент Сообщениесодержит несколько строк, их можно разделить с помощью знака возврата каретки (Chr(13)), знака перевода строки (Chr(10)) или сочетания этих знаков (Chr(13) &Chr(10)). |
|
Кнопки |
Необязательный аргумент. Числовое выражение, которое представляет собой сумму значений, указывающих число и тип отображаемых кнопок, стиль значка, активную кнопку по умолчанию, а также, является ли окно сообщения модальным. Если аргументКнопки пропущен, по умолчанию используется значение 0. |
|
Заголовок |
Необязательный аргумент. Строковое выражение, отображаемое в строке заголовка диалогового окна. Если аргумент Заголовок опущен, в строке заголовка выводится имя приложения. |
|
ФайлСправки |
Необязательный аргумент. Строковое выражение, определяющее файл справки, в котором содержится контекстная справка данного диалогового окна. Если задан аргумент ФайлСправки, необходимо также указать аргумент Контекст. |
|
Контекст |
Необязательный аргумент. Числовое выражение, представляющее собой номер контекста, присвоенный автором справки соответствующему разделу. Если задан аргумент Контекст, необходимо также указать аргумент ФайлСправки. |
Параметры
Аргумент Кнопки имеет следующие параметры:
|
КОНСТАНТА |
ЗНАЧЕНИЕ |
ОПИСАНИЕ |
|
vbOKOnly |
0 |
Отображается только кнопка ОК. |
|
vbOKCancel |
1 |
Отображаются кнопки ОК и Отмена. |
|
vbAbortRetryIgnore |
2 |
Отображаются кнопки Прервать, Повторить иПропустить. |
|
vbYesNoCancel |
3 |
Отображаются кнопки Да, Нет и Отмена. |
|
vbYesNo |
4 |
Отображаются кнопки Да и Нет. |
|
vbRetryCancel |
5 |
Отображаются кнопки Повторить и Отмена. |
|
vbCritical |
16 |
Отображается значок важного сообщения. |
|
vbQuestion |
32 |
Отображается значок сообщения с предостережением. |
|
vbExclamation |
48 |
Отображается значок предупреждающего сообщения. |
|
vbInformation |
64 |
Отображается значок информационного сообщения. |
|
vbDefaultButton1 |
0 |
По умолчанию активна первая кнопка. |
|
vbDefaultButton2 |
256 |
По умолчанию активна вторая кнопка. |
|
vbDefaultButton3 |
512 |
По умолчанию активна третья кнопка. |
|
vbDefaultButton4 |
768 |
По умолчанию активна четвертая кнопка. |
|
vbApplicationModal |
0 |
Модальность на уровне приложения. Пользователь должен ответить на сообщение, чтобы продолжить работу в текущем приложении. |
|
vbSystemModal |
4096 |
Модальность на уровне системы. В ожидании ответа пользователя на сообщение приостанавливается работа всех приложений. |
|
vbMsgBoxHelpButton |
16384 |
В диалоговое окно сообщения добавляется кнопка «Справка». |
|
VbMsgBoxSetForeground |
65536 |
Окно сообщения выводится на переднем плане. |
|
vbMsgBoxRight |
524288 |
Текст сообщения выравнивается по правому краю. |
|
vbMsgBoxRtlReading |
1048576 |
Текст сообщения выводится справа налево. Эта возможность предназначена для систем, в которых используется арабский язык или иврит. |
Первая группа значений (0–5) отражает число и тип кнопок в диалоговом окне. Вторая группа (16, 32, 48, 64) описывает стиль значка сообщения. Третья группа (0, 256, 512) определяет активную по умолчанию кнопку. Наконец, четвертая группа (0, 4096) устанавливает модальность сообщения. При добавлении чисел в итоговое значение аргумента Кнопки следует использовать только один аргумент из группы.
ПРИМЕЧАНИЕ. Приведенные здесь константы определены в Visual Basic для приложений, что позволяет заменить ими числовые значения в любом месте программы.
Возвращаемые значения
|
КОНСТАНТА |
ЗНАЧЕНИЕ |
ОПИСАНИЕ |
|
vbOK |
1 |
ОК |
|
vbCancel |
2 |
Отмена |
|
vbAbort |
3 |
Прервать |
|
vbRetry |
4 |
Повторить |
|
vbIgnore |
5 |
Пропустить |
|
vbYes |
6 |
Да |
|
vbNo |
7 |
Нет |
Замечания
Если указаны аргументы ФайлСправки и Контекст, пользователь может, нажав клавишу F1 (Windows) или HELP (Макинтош), открыть раздел справки, заданный аргументом Контекст. Некоторые хост-приложения, например Microsoft Office Excel 2007, автоматически добавляют кнопку Справка в диалоговое окно.
Если в диалоговом окне отображается кнопка Отмена, нажатие кнопки Отмена равносильно нажатию клавиши ESC. Если в диалоговом окне выводится кнопка Справка, для данного окна доступна контекстная справка. Однако до нажатия какой-либо другой кнопки никакое значение не возвращается.
ПРИМЕЧАНИЕ. Чтобы указать несколько аргументов, а не только первый из названных, используйте функцию MsgBox в выражении. Чтобы не включать некоторые аргументы, замените их разделителем в виде запятой.
Пример
ПРИМЕЧАНИЕ. Приведенные ниже примеры иллюстрируют использование возможностей модуля Visual Basic for Applications (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите пунктСправочник разработчика в раскрывающемся списке рядом с кнопкой Поиск, а затем введите один или несколько ключевых слов в поле поиска.
В этом примере функция MsgBox используется для вывода сообщения о критической ошибке в диалоговом окне с кнопками «Да» и «Нет». Кнопка «Нет» активна по умолчанию. Значение, возвращаемое функцией MsgBox, зависит от нажатой пользователем кнопки. Предполагается, что файл DEMO.HLP является файлом справки и содержит раздел под номером 1000.
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "MsgBox Demonstration"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If