Строковые функции Chr(код сивола)Chr Asc(строка)Asc Len(строка) Mid(Строка, начало [,длина]) Left(строка, длина) Right(строка, длина) Ltrim(строка) Rtrim(строка) - презентация

1 Строковые функции Chr(код_символа)Chr Asc(строка)Asc Len(строка) Mid(Строка, начало [,длина]) Left(строка, длина) Right(строка, длина) Ltrim(строка) Rtrim(строка) Trim(строка)

2 Именованные константы VBA ConstantValueDescription vbKeyLButton0x1Left mouse button vbKeyRButton0x2Right mouse button vbKeyCancel0x3CANCEL key vbKeyMButton0x4Middle mouse button vbKeyBack0x8BACKSPACE key vbKeyTab0x9TAB key

3 Строковые функции STRING(число,символ) Space(число) InStr([старт, ]строка 1, строка 2[, режим]) InStrRev(строка 1,строка 2[, старт[, режим]]) StrComp (строка 1, строка 2[, режим]) vbUseCompareOption -1 vbBinaryCompare 0 vbTextCompare 1 vbDatabaseCompare 2

4 Строковые функции STR(выражение) Val(строка) Lcase(строка) Ucase(строка) Format(выражение[, формат[, fпервый день недели[, первая неделя года]]])

5 Примеры форматирования MyTime = #17:04:23# MyDate = # # MyStr = Format(MyTime, "h:m:s") ' Returns "17:4:23". MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Returns "05:04:23 PM". MyStr = Format(MyDate, "dddd, mmmm d yyyy") ' Returns «среда, март ". MyStr = Format(23) ' Returns "23". MyStr = Format(5459.4, "##,##0.00") ' Returns "5,459.40". MyStr = Format(334.9, "###0.00") ' Returns "334.90". MyStr = Format(5, "0.00%") ' Returns "500.00%". MyStr = Format(«ПРИВЕТ", "<") ' Returns «привет». MyStr = Format(«Пришла весна", ">") ' Returns «ПРИШЛА ВЕСНА». ") ' Returns «ПРИШЛА ВЕСНА».">

6 Функции проверки типа TypeName(varname) VarType(varname)

7 String returnedVariable ByteByte value Integer LongLong integer SingleSingle-precision floating-point number DoubleDouble-precision floating-point number CurrencyCurrency value DecimalDecimal value DateDate value String BooleanBoolean value ErrorAn error value EmptyUninitialized NullNo valid data ObjectAn object UnknownAn object whose type is unknown NothingObject variable that doesn't refer to an object

8 ConstantValueDescription vbEmpty0EmptyEmpty (uninitialized) vbNull1NullNull (no valid data) vbInteger2Integer vbLong3Long integer vbSingle4Single-precision floating-point number vbDouble5Double-precision floating-point number vbCurrency6Currency value vbDate7Date value vbString8String vbObject9Object vbError10Error value vbBoolean11Boolean value vbVariant12Variant (used only with arrays of variants)arrays vbDataObject13A data access object vbDecimal14Decimal value vbByte17Byte value vbArray8192Array

9 Функции преобразования CBool(выражение) CByte(выражение) CCur(выражение) CDate(выражение) CDbl(выражение) CDec(выражение) CInt(выражение) CLng(выражение) CSng(выражение) CStr(выражение) CVar(выражение

10 FunctionReturn Type CBoolBoolean CByteByte CCurCurrency CDateDate CDblDouble CDecDecimal CIntInteger CLngLong CSngSingle CStrString CVarVariant

11 Функции преобразования Функция ВОЗВРАЩАЕМОЕДиапозон CBoolBooleanAny valid string or numeric expression. CByteByte0 to 255. CCurCurrency- 922,337,203,685, to 922,337,203,685, CDateDateAny valid date expression.date expression CDblDouble

12 Именованные константы VBA ConstantValueDescription vbKeyLButton0x1Left mouse button vbKeyRButton0x2Right mouse button vbKeyCancel0x3CANCEL key vbKeyMButton0x4Middle mouse button vbKeyBack0x8BACKSPACE key vbKeyTab0x9TAB key

13 Окно сообщений MsgBox(текст_сообщения[, тип_кнопки] [, заголовок] [, helpfile, контекст]) Тип_кнопки - числовое выражение, определяющее число и тип кнопок, стиль пиктограммы, кнопку по умолчанию и модальность диалогового окна

14 Пример

15 Public Sub tryu() Dim Msg As String Dim Title As String Msg = Программа" Title = «Пример окна сообщения" Call MsgBox(Msg,, Title) End Sub

16 Пример

17 Public Sub tryu1() Dim F As Integer If MsgBox(«Расход > Прихода" + Chr(10) + Chr(13) + «Продолжить выполнение программы?", vbQuestion + vbYesNo, "ÏПример") = vbOK Then F = 0 End If End Sub

18 Число и тип кнопок Константа Знач.Пояснение vbOKOnly0Вывод только кнопки OK vbOKCancel1Вывод OK и Cancel. vbAbortRetryI2Вывод Abort, Retry, и Ignore. vbYesNoCanc3Вывод Yes, No, и Cancel vbYesNo4Вывод Yes и No vbRetryCancel5Вывод Retry and Cancel

19 Стиль пиктограммы Константа Знач.Пояснение vbCritical1616Критическая ошибка vbQuestion32Предупреждающи й запрос vbExclamtion48Предупреждающе е сообщение vbInformation64Информационное сообщение

20 Кнопка по умолчанию Константа Знач По умолчанию vbDefaultButton10Первая vbDefaultButton2256Вторая vbDefaultButton3512Третья

21 Стиль диалогового окна Константа Знач vbApplicationModal0 vbSystemModal256

22 Коды возвращаемых значений Константа Знач.Пояснение vbOK1Ок vbCancel2Отмена vbAbort3Прекратить vbRetry4Повториь vbIgnore5Игнорировать vbYes6Да vbNo7Нет

23 Диалоговое окно ввода InputBox(текст_сообщения[, заголовок] [,Значение_по_умолчанию] [, xпозиция ] [,yпозиция[, helpfile, контекст])