Excel: Функция по возврату констант
Функция возвращает числовое значение стандартных констант Excel
Функция ПолучитьКонст(strConst) Экспорт
strConst = lower(strConst);
Если strConst = lower("xlDialogSetBackgroundPicturet") Тогда Возврат 492;
ИначеЕсли strConst = lower("xlDialogAutoCorrect") Тогда Возврат 485;
ИначеЕсли strConst = lower("xlDialogFileSharing") Тогда Возврат 481;
ИначеЕсли strConst = lower("xlDialogVbaMakeAddin") Тогда Возврат 478;
ИначеЕсли strConst = lower("xlDialogActiveCellFont") Тогда Возврат 476;
ИначеЕсли strConst = lower("xlDialogFindFile") Тогда Возврат 475;
ИначеЕсли strConst = lower("xlDialogProperties") Тогда Возврат 474;
ИначеЕсли strConst = lower("xlDialogSummaryInfo") Тогда Возврат 474;
ИначеЕсли strConst = lower("xlDialogScenarioMerge") Тогда Возврат 473;
ИначеЕсли strConst = lower("xlDialogStandardWidth") Тогда Возврат 472;
ИначеЕсли strConst = lower("xlDialogMailEditMailer") Тогда Возврат 470;
ИначеЕсли strConst = lower("xlDialogSeriesOrder") Тогда Возврат 466;
ИначеЕсли strConst = lower("xlDialogFormatChart") Тогда Возврат 465;
ИначеЕсли strConst = lower("xlDialogErrorbarY") Тогда Возврат 464;
ИначеЕсли strConst = lower("xlDialogErrorbarX") Тогда Возврат 463;
ИначеЕсли strConst = lower("xlDialogSeriesY") Тогда Возврат 462;
ИначеЕсли strConst = lower("xlDialogSeriesX") Тогда Возврат 461;
ИначеЕсли strConst = lower("xlDialogSeriesAxes") Тогда Возврат 460;
ИначеЕсли strConst = lower("xlDialogOptionsListsAdd") Тогда Возврат 458;
ИначеЕсли strConst = lower("xlDialogSaveCopyAs") Тогда Возврат 456;
ИначеЕсли strConst = lower("xlDialogFunctionWizard") Тогда Возврат 450;
ИначеЕсли strConst = lower("xlDialogFilter") Тогда Возврат 447;
ИначеЕсли strConst = lower("xlDialogPushbuttonProperties") Тогда Возврат 445;
ИначеЕсли strConst = lower("xlDialogOpenText") Тогда Возврат 441;
ИначеЕсли strConst = lower("xlDialogEditboxProperties") Тогда Возврат 438;
ИначеЕсли strConst = lower("xlDialogListboxProperties") Тогда Возврат 437;
ИначеЕсли strConst = lower("xlDialogLabelProperties") Тогда Возврат 436;
ИначеЕсли strConst = lower("xlDialogCheckboxProperties") Тогда Возврат 435;
ИначеЕсли strConst = lower("xlDialogPivotFieldUngroup") Тогда Возврат 434;
ИначеЕсли strConst = lower("xlDialogPivotFieldGroup") Тогда Возврат 433;
ИначеЕсли strConst = lower("xlDialogFormatCharttype") Тогда Возврат 423;
ИначеЕсли strConst = lower("xlDialogTextToColumns") Тогда Возврат 422;
ИначеЕсли strConst = lower("xlDialogPivotShowPages") Тогда Возврат 421;
ИначеЕсли strConst = lower("xlDialogScrollbarProperties") Тогда Возврат 420;
ИначеЕсли strConst = lower("xlDialogWorkbookProtect") Тогда Возврат 417;
ИначеЕсли strConst = lower("xlDialogWorkbookTabSplit") Тогда Возврат 415;
ИначеЕсли strConst = lower("xlDialogSubtotalCreate") Тогда Возврат 398;
ИначеЕсли strConst = lower("xlDialogTabOrder") Тогда Возврат 394;
ИначеЕсли strConst = lower("xlDialogChartAddData") Тогда Возврат 392;
ИначеЕсли strConst = lower("xlDialogAddChartAutoformat") Тогда Возврат 390;
ИначеЕсли strConst = lower("xlDialogGalleryCustom") Тогда Возврат 388;
ИначеЕсли strConst = lower("xlDialogWorkbookName") Тогда Возврат 386;
ИначеЕсли strConst = lower("xlDialogWorkbookUnhide") Тогда Возврат 384;
ИначеЕсли strConst = lower("xlDialogMacroOptions") Тогда Возврат 382;
ИначеЕсли strConst = lower("xlDialogFontProperties") Тогда Возврат 381;
ИначеЕсли strConst = lower("xlDialogInsertTitle") Тогда Возврат 380;
ИначеЕсли strConst = lower("xlDialogDataLabel") Тогда Возврат 379;
ИначеЕсли strConst = lower("xlDialogMailNextLetter") Тогда Возврат 378;
ИначеЕсли strConst = lower("xlDialogFilterAdvanced") Тогда Возврат 370;
ИначеЕсли strConst = lower("xlDialogOptionsGeneral") Тогда Возврат 356;
ИначеЕсли strConst = lower("xlDialogOptionsTransition") Тогда Возврат 355;
ИначеЕсли strConst = lower("xlDialogWorkbookInsert") Тогда Возврат 354;
ИначеЕсли strConst = lower("xlDialogChartTrend") Тогда Возврат 3504
ИначеЕсли strConst = lower("xlDialogGalleryDoughnut") Тогда Возврат 344;
ИначеЕсли strConst = lower("xlDialogInsertPicture") Тогда Возврат 342;
ИначеЕсли strConst = lower("xlDialogMailLogon") Тогда Возврат 339;
ИначеЕсли strConst = lower("xlDialogRoutingSlip") Тогда Возврат 3364
ИначеЕсли strConst = lower("xlDialogVbaProcedureDefinition") Тогда Возврат 330;
ИначеЕсли strConst = lower("xlDialogVbaInsertFile") Тогда Возврат 328
ИначеЕсли strConst = lower("xlDialogOptionsChart") Тогда Возврат 325;
ИначеЕсли strConst = lower("xlDialogAttachToolbars") Тогда Возврат 323;
ИначеЕсли strConst = lower("xlDialogMenuEditor") Тогда Возврат 322;
ИначеЕсли strConst = lower("xlDialogAddinManager") Тогда Возврат 321;
ИначеЕсли strConst = lower("xlDialogOptionsView") Тогда Возврат 320;
ИначеЕсли strConst = lower("xlDialogOptionsEdit") Тогда Возврат 319;
ИначеЕсли strConst = lower("xlDialogOptionsCalculation") Тогда Возврат 318;
ИначеЕсли strConst = lower("xlDialogPivotFieldProperties") Тогда Возврат 313;
ИначеЕсли strConst = lower("xlDialogPivotTableWizard") Тогда Возврат 312;
ИначеЕсли strConst = lower("xlDialogScenarioSummary") Тогда Возврат 311;
ИначеЕсли strConst = lower("xlDialogScenarioEdit") Тогда Возврат 308;
ИначеЕсли strConst = lower("xlDialogScenarioAdd") Тогда Возврат 307;
ИначеЕсли strConst = lower("xlDialogScenarioCells") Тогда Возврат 305;
ИначеЕсли strConst = lower("xlDialogWorkbookNew") Тогда Возврат 302;
ИначеЕсли strConst = lower("xlDialogFillWorkgroup") Тогда Возврат 301;
ИначеЕсли strConst = lower("xlDialogPlacement") Тогда Возврат 300;
ИначеЕсли strConst = lower("xlDialogAssignToTool") Тогда Возврат 293;
ИначеЕсли strConst = lower("xlDialogChartWizard") Тогда Возврат 288;
ИначеЕсли strConst = lower("xlDialogSaveWorkspace") Тогда Возврат 285;
ИначеЕсли strConst = lower("xlDialogWorkbookOptions") Тогда Возврат 284;
ИначеЕсли strConst = lower("xlDialogWorkbookCopy") Тогда Возврат 283;
ИначеЕсли strConst = lower("xlDialogWorkbookMove") Тогда Возврат 282;
ИначеЕсли strConst = lower("xlDialogWorkbookAdd") Тогда Возврат 281;
ИначеЕсли strConst = lower("xlDialogCustomizeToolbar") Тогда Возврат 276;
ИначеЕсли strConst = lower("xlDialogGallery3dSurface") Тогда Возврат 273;
ИначеЕсли strConst = lower("xlDialogGallery3dBar") Тогда Возврат 272;
ИначеЕсли strConst = lower("xlDialogFormatAuto") Тогда Возврат 269;
ИначеЕсли strConst = lower("xlDialogMove") Тогда Возврат 262;
ИначеЕсли strConst = lower("xlDialogSize") Тогда Возврат 261;
ИначеЕсли strConst = lower("xlDialogInsertObject") Тогда Возврат 259;
ИначеЕсли strConst = lower("xlDialogZoom") Тогда Возврат 256;
ИначеЕсли strConst = lower("xlDialogEditionOptions") Тогда Возврат 251;
ИначеЕсли strConst = lower("xlDialogGalleryRadar") Тогда Возврат 249;
ИначеЕсли strConst = lower("xlDialogDefineStyle") Тогда Возврат 229;
ИначеЕсли strConst = lower("xlDialogEditSeries") Тогда Возврат 228;
ИначеЕсли strConst = lower("xlDialogFormatOverlay") Тогда Возврат 226;
ИначеЕсли strConst = lower("xlDialogFormatMain") Тогда Возврат 225;
ИначеЕсли strConst = lower("xlDialogEditColor") Тогда Возврат 223;
ИначеЕсли strConst = lower("xlDialogPrintPreview") Тогда Возврат 222;
ИначеЕсли strConst = lower("xlDialogShowToolbar") Тогда Возврат 220;
ИначеЕсли strConst = lower("xlDialogSubscribeTo") Тогда Возврат 218;
ИначеЕсли strConst = lower("xlDialogCreatePublisher") Тогда Возврат 217;
ИначеЕсли strConst = lower("xlDialogObjectProtection") Тогда Возврат 214;
ИначеЕсли strConst = lower("xlDialogAssignToObject") Тогда Возврат 213;
ИначеЕсли strConst = lower("xlDialogApplyStyle") Тогда Возврат 212;
ИначеЕсли strConst = lower("xlDialogSaveNewObject") Тогда Возврат 208;
ИначеЕсли strConst = lower("xlDialogObjectProperties") Тогда Возврат 207;
ИначеЕсли strConst = lower("xlDialogShowDetail") Тогда Возврат 204;
ИначеЕсли strConst = lower("xlDialogDemote") Тогда Возврат 203;
ИначеЕсли strConst = lower("xlDialogPromote") Тогда Возврат 202;
ИначеЕсли strConst = lower("xlDialogUpdateLink") Тогда Возврат 201;
ИначеЕсли strConst = lower("xlDialogFillGroup") Тогда Возврат 200;
ИначеЕсли strConst = lower("xlDialogWorkgroup") Тогда Возврат 199;
ИначеЕсли strConst = lower("xlDialogGoalSeek") Тогда Возврат 198;
ИначеЕсли strConst = lower("xlDialogView3d") Тогда Возврат 197;
ИначеЕсли strConst = lower("xlDialogGallery3dPie") Тогда Возврат 196;
ИначеЕсли strConst = lower("xlDialogGallery3dLine") Тогда Возврат 195;
ИначеЕсли strConst = lower("xlDialogGallery3dColumn") Тогда Возврат 194;
ИначеЕсли strConst = lower("xlDialogGallery3dArea") Тогда Возврат 193;
ИначеЕсли strConst = lower("xlDialogSortSpecial") Тогда Возврат 192;
ИначеЕсли strConst = lower("xlDialogConsolidate") Тогда Возврат 191;
ИначеЕсли strConst = lower("xlDialogStandardFont") Тогда Возврат 190;
ИначеЕсли strConst = lower("xlDialogSendMail") Тогда Возврат 189;
ИначеЕсли strConst = lower("xlDialogOpenMail") Тогда Возврат 188;
ИначеЕсли strConst = lower("xlDialogOverlayChartType") Тогда Возврат 186;
ИначеЕсли strConst = lower("xlDialogMainChartType") Тогда Возврат 185;
ИначеЕсли strConst = lower("xlDialogAppSize") Тогда Возврат 171;
ИначеЕсли strConst = lower("xlDialogAppMove") Тогда Возврат 170;
ИначеЕсли strConst = lower("xlDialogChangeLink") Тогда Возврат 166;
ИначеЕсли strConst = lower("xlDialogColorPalette") Тогда Возврат 161;
ИначеЕсли strConst = lower("xlDialogSetUpdateStatus") Тогда Возврат 159;
ИначеЕсли strConst = lower("xlDialogNote") Тогда Возврат 154;
ИначеЕсли strConst = lower("xlDialogFormatFont") Тогда Возврат 150;
ИначеЕсли strConst = lower("xlDialogCopyChart") Тогда Возврат 147;
ИначеЕсли strConst = lower("xlDialogSaveWorkbook") Тогда Возврат 145;
ИначеЕсли strConst = lower("xlDialogOutline") Тогда Возврат 142;
ИначеЕсли strConst = lower("xlDialogSplit") Тогда Возврат 137;
ИначеЕсли strConst = lower("xlDialogReplaceFont") Тогда Возврат 134;
ИначеЕсли strConst = lower("xlDialogApplyNames") Тогда Возврат 133;
ИначеЕсли strConst = lower("xlDialogSelectSpecial") Тогда Возврат 132;
ИначеЕсли strConst = lower("xlDialogFormulaReplace") Тогда Возврат 130;
ИначеЕсли strConst = lower("xlDialogFormatSize") Тогда Возврат 129;
ИначеЕсли strConst = lower("xlDialogFormatMove") Тогда Возврат 128;
ИначеЕсли strConst = lower("xlDialogRowHeight") Тогда Возврат 127;
ИначеЕсли strConst = lower("xlDialogNew") Тогда Возврат 119;
ИначеЕсли strConst = lower("xlDialogDeleteFormat") Тогда Возврат 111;
ИначеЕсли strConst = lower("xlDialogDeleteName") Тогда Возврат 110;
ИначеЕсли strConst = lower("xlDialogCopyPicture") Тогда Возврат 108;
ИначеЕсли strConst = lower("xlDialogActivate") Тогда Возврат 103;
ИначеЕсли strConst = lower("xlDialogWorkspace") Тогда Возврат 95;
ИначеЕсли strConst = lower("xlDialogUnhide") Тогда Возврат 94;
ИначеЕсли strConst = lower("xlDialogParse") Тогда Возврат 91;
ИначеЕсли strConst = lower("xlDialogFormatText") Тогда Возврат 89;
ИначеЕсли strConst = lower("xlDialogFormatLegend") Тогда Возврат 88;
ИначеЕсли strConst = lower("xlDialogScale") Тогда Возврат 87;
ИначеЕсли strConst = lower("xlDialogOverlay") Тогда Возврат 86;
ИначеЕсли strConst = lower("xlDialogMainChart") Тогда Возврат 85;
ИначеЕсли strConst = lower("xlDialogPatterns") Тогда Возврат 84;
ИначеЕсли strConst = lower("xlDialogAttachText") Тогда Возврат 80;
ИначеЕсли strConst = lower("xlDialogAxes") Тогда Возврат 78;
ИначеЕсли strConst = lower("xlDialogGridlines") Тогда Возврат 76;
ИначеЕсли strConst = lower("xlDialogCombination") Тогда Возврат 73;
ИначеЕсли strConst = lower("xlDialogGalleryScatter") Тогда Возврат 72;
ИначеЕсли strConst = lower("xlDialogGalleryPie") Тогда Возврат 71;
ИначеЕсли strConst = lower("xlDialogGalleryLine") Тогда Возврат 70;
ИначеЕсли strConst = lower("xlDialogGalleryColumn") Тогда Возврат 69;
ИначеЕсли strConst = lower("xlDialogGalleryBar") Тогда Возврат 68;
ИначеЕсли strConst = lower("xlDialogGalleryArea") Тогда Возврат 67;
ИначеЕсли strConst = lower("xlDialogFormulaFind") Тогда Возврат 64;
ИначеЕсли strConst = lower("xlDialogFormulaGoto") Тогда Возврат 63;
ИначеЕсли strConst = lower("xlDialogCreateNames") Тогда Возврат 62;
ИначеЕсли strConst = lower("xlDialogDefineName") Тогда Возврат 61;
ИначеЕсли strConst = lower("xlDialogInsert") Тогда Возврат 55;
ИначеЕсли strConst = lower("xlDialogEditDelete") Тогда Возврат 54;
ИначеЕсли strConst = lower("xlDialogPasteSpecial") Тогда Возврат 53;
ИначеЕсли strConst = lower("xlDialogClear") Тогда Возврат 52;
ИначеЕсли strConst = lower("xlDialogColumnWidth") Тогда Возврат 47;
ИначеЕсли strConst = lower("xlDialogCellProtection") Тогда Возврат 46;
ИначеЕсли strConst = lower("xlDialogBorder") Тогда Возврат 45;
ИначеЕсли strConst = lower("xlDialogStyle") Тогда Возврат 44;
ИначеЕсли strConst = lower("xlDialogAlignment") Тогда Возврат 43;
ИначеЕсли strConst = lower("xlDialogFormatNumber") Тогда Возврат 42;
ИначеЕсли strConst = lower("xlDialogTable") Тогда Возврат 41;
ИначеЕсли strConst = lower("xlDialogDataSeries") Тогда Возврат 40;
ИначеЕсли strConst = lower("xlDialogSort") Тогда Возврат 39;
ИначеЕсли strConst = lower("xlDialogDataDelete") Тогда Возврат 36;
ИначеЕсли strConst = lower("xlDialogExtract") Тогда Возврат 35;
ИначеЕсли strConst = lower("xlDialogCalculation") Тогда Возврат 32;
ИначеЕсли strConst = lower("xlDialogProtectDocument") Тогда Возврат 28;
ИначеЕсли strConst = lower("xlDialogDisplay") Тогда Возврат 27;
ИначеЕсли strConst = lower("xlDialogFont") Тогда Возврат 26;
ИначеЕсли strConst = lower("xlDialogSetPrintTitles") Тогда Возврат 23;
ИначеЕсли strConst = lower("xlDialogRun") Тогда Возврат 17;
ИначеЕсли strConst = lower("xlDialogWindowMove") Тогда Возврат 14;
ИначеЕсли strConst = lower("xlDialogWindowSize") Тогда Возврат 13;
ИначеЕсли strConst = lower("xlDialogArrangeAll") Тогда Возврат 12;
ИначеЕсли strConst = lower("xlDialogPrinterSetup") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlDialogPrint") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlDialogPageSetup") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlDialogFileDelete") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlDialogSaveAs") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlDialogOpenLinks") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlDialogOpen") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlZero") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlYes") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlYearCode") Тогда Возврат 19;
ИначеЕсли strConst = lower("xlYear") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlY") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlXYScatter") Тогда Возврат -4169;
ИначеЕсли strConst = lower("xlX") Тогда Возврат -4168;
ИначеЕсли strConst = lower("xlWQ1") Тогда Возврат 34;
ИначеЕсли strConst = lower("xlWPG") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlWorksheetShort") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlWorksheetCell") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlWorksheet4") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlWorksheet") Тогда Возврат -4167;
ИначеЕсли strConst = lower("xlWorks2FarEast") Тогда Возврат 28;
ИначеЕсли strConst = lower("xlWorkbookTab") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlWorkbook") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlWMF") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlWKS") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlWK3FM3") Тогда Возврат 32;
ИначеЕсли strConst = lower("xlWK3") Тогда Возврат 15;
ИначеЕсли strConst = lower("xlWK1FMT") Тогда Возврат 30;
ИначеЕсли strConst = lower("xlWK1ALL") Тогда Возврат 31;
ИначеЕсли strConst = lower("xlWK1") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlWJ2WD1") Тогда Возврат 14;
ИначеЕсли strConst = lower("xlWindows") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlWide") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlWhole") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlWeekdayNameChars") Тогда Возврат 31;
ИначеЕсли strConst = lower("xlWeekday") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlWatchPane") Тогда Возврат 11;
ИначеЕсли strConst = lower("xlWait") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlVisible") Тогда Возврат 12;
ИначеЕсли strConst = lower("xlVeryHidden") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlVertical") Тогда Возврат -4166;
ИначеЕсли strConst = lower("xlVarP") Тогда Возврат -4165;
ИначеЕсли strConst = lower("xlVar") Тогда Возврат -4164;
ИначеЕсли strConst = lower("xlValues") Тогда Возврат -4163;
ИначеЕсли strConst = lower("xlValue") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlVALU") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlUserResolution") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlUpward") Тогда Возврат -4171;
ИначеЕсли strConst = lower("xlUpperCaseRowLetter") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlUpperCaseColumnLetter") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlUpdateSubscriber") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlUpdateState") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlUp") Тогда Возврат -4162;
ИначеЕсли strConst = lower("xlTriangle") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlTransparent") Тогда Возврат 24
ИначеЕсли strConst = lower("xlToRight") Тогда Возврат -4161;
ИначеЕсли strConst = lower("xlTopToBottom") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlTop10Percent") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlTop10Items") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlTop") Тогда Возврат -4160;
ИначеЕсли strConst = lower("xlToolbarButton") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlToolbar") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlToLeft") Тогда Возврат -4159;
ИначеЕсли strConst = lower("xlTitleBar") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlTimeSeparator") Тогда Возврат 18;
ИначеЕсли strConst = lower("xlTimeLeadingZero") Тогда Возврат 45;
ИначеЕсли strConst = lower("xlTiled") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlTIF") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlThousandsSeparator") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlThin") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlThick") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlTextWindows") Тогда Возврат 20;
ИначеЕсли strConst = lower("xlTextValues") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlTextPrinter") Тогда Возврат 36;
ИначеЕсли strConst = lower("xlTextMSDOS") Тогда Возврат 21;
ИначеЕсли strConst = lower("xlTextMac") Тогда Возврат 19;
ИначеЕсли strConst = lower("xlTextBox") Тогда Возврат 16;
ИначеЕсли strConst = lower("xlText") Тогда Возврат -4158;
ИначеЕсли strConst = lower("xlTemplate") Тогда Возврат 17;
ИначеЕсли strConst = lower("xlTableBody") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlSyllabary") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlSYLK") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlSum") Тогда Возврат -4157;
ИначеЕсли strConst = lower("xlSubtract") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlSubscribers") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlSubscriber") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlStrict") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlStretch") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlStError") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlStDevP") Тогда Возврат -4156;
ИначеЕсли strConst = lower("xlStDev") Тогда Возврат -4155;
ИначеЕсли strConst = lower("xlStar") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlStandardSummary") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlStack") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlSquare") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlSortValues") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlSortLabels") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlSolid") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlSingleQuote") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlSingleAccounting") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlSingle") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlSimple") Тогда Возврат -4154;
ИначеЕсли strConst = lower("xlShowValue") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlShowPercent") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlShowLabelAndPercent") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlShowLabel") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlShort") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlShared") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlSeries") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlSendPublisher") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlSemiGray75") Тогда Возврат 10;
ИначеЕсли strConst = lower("xlSemiautomatic") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlSelect") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlSecondCode") Тогда Возврат 24;
ИначеЕсли strConst = lower("xlSecondary") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlScreenSize") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlScreen") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlScale") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlRunningTotal") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlRTF") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlRowТогдаColumn") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlRowSeparator") Тогда Возврат 15;
ИначеЕсли strConst = lower("xlRows") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlRowItem") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlRowHeader") Тогда Возврат -4153;
ИначеЕсли strConst = lower("xlRowField") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlRoutingInProgress") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlRoutingComplete") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlRightBracket") Тогда Возврат 11;
ИначеЕсли strConst = lower("xlRightBrace") Тогда Возврат 13;
ИначеЕсли strConst = lower("xlRight") Тогда Возврат -4152;
ИначеЕсли strConst = lower("xlRelRowAbsColumn") Тогда Возврат 34
ИначеЕсли strConst = lower("xlRelative") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlReference") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlReadWrite") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlReadOnly") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlRadar") Тогда Возврат -4151;
ИначеЕсли strConst = lower("xlR1C1") Тогда Возврат -4150;
ИначеЕсли strConst = lower("xlPublishers") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlPublisher") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlProduct") Тогда Возврат -4149;
ИначеЕсли strConst = lower("xlPrinter") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlPrimary") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlPrevious") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlPowerTalk") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlPower") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlPortrait") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlPolynomial") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlPlusValues") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlPlus") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlPLT") Тогда Возврат 12;
ИначеЕсли strConst = lower("xlPlotArea") Тогда Возврат 19;
ИначеЕсли strConst = lower("xlPlaceholders") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlPivotTable") Тогда Возврат -4148;
ИначеЕсли strConst = lower("xlPie") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlPicture") Тогда Возврат -4147;
ИначеЕсли strConst = lower("xlPICT") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlPIC") Тогда Возврат 11;
ИначеЕсли strConst = lower("xlPercentOfTotal") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlPercentOfRow") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlPercentOfColumn") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlPercentOf") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlPercentDifferenceFrom") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlPercent") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlPCX") Тогда Возврат 10;
ИначеЕсли strConst = lower("xlPCT") Тогда Возврат 13;
ИначеЕсли strConst = lower("xlPart") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlPaperUser") Тогда Возврат 256;
ИначеЕсли strConst = lower("xlPaperTabloid") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlPaperStatement") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlPaperQuarto") Тогда Возврат 15;
ИначеЕсли strConst = lower("xlPaperNote") Тогда Возврат 18;
ИначеЕсли strConst = lower("xlPaperLetterSmall") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlPaperLetter") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlPaperLegal") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlPaperLedger") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlPaperFolio") Тогда Возврат 14;
ИначеЕсли strConst = lower("xlPaperFanfoldUS") Тогда Возврат 39;
ИначеЕсли strConst = lower("xlPaperFanfoldStdGerman") Тогда Возврат 40;
ИначеЕсли strConst = lower("xlPaperFanfoldLegalGerman") Тогда Возврат 41;
ИначеЕсли strConst = lower("xlPaperExecutive") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlPaperEsheet") Тогда Возврат 26;
ИначеЕсли strConst = lower("xlPaperEnvelopePersonal") Тогда Возврат 38;
ИначеЕсли strConst = lower("xlPaperEnvelopeMonarch") Тогда Возврат 37;
ИначеЕсли strConst = lower("xlPaperEnvelopeItaly") Тогда Возврат 36;
ИначеЕсли strConst = lower("xlPaperEnvelopeDL") Тогда Возврат 27;
ИначеЕсли strConst = lower("xlPaperEnvelopeC65") Тогда Возврат 32;
ИначеЕсли strConst = lower("xlPaperEnvelopeC6") Тогда Возврат 31;
ИначеЕсли strConst = lower("xlPaperEnvelopeC5") Тогда Возврат 28;
ИначеЕсли strConst = lower("xlPaperEnvelopeC4") Тогда Возврат 30;
ИначеЕсли strConst = lower("xlPaperEnvelopeC3") Тогда Возврат 29;
ИначеЕсли strConst = lower("xlPaperEnvelopeB6") Тогда Возврат 35;
ИначеЕсли strConst = lower("xlPaperEnvelopeB5") Тогда Возврат 34;
ИначеЕсли strConst = lower("xlPaperEnvelopeB4") Тогда Возврат 33;
ИначеЕсли strConst = lower("xlPaperEnvelope9") Тогда Возврат 19;
ИначеЕсли strConst = lower("xlPaperEnvelope14") Тогда Возврат 23;
ИначеЕсли strConst = lower("xlPaperEnvelope12") Тогда Возврат 22;
ИначеЕсли strConst = lower("xlPaperEnvelope11") Тогда Возврат 21;
ИначеЕсли strConst = lower("xlPaperEnvelope10") Тогда Возврат 20;
ИначеЕсли strConst = lower("xlPaperDsheet") Тогда Возврат 25;
ИначеЕсли strConst = lower("xlPaperCsheet") Тогда Возврат 24;
ИначеЕсли strConst = lower("xlPaperB5") Тогда Возврат 13;
ИначеЕсли strConst = lower("xlPaperB4") Тогда Возврат 12;
ИначеЕсли strConst = lower("xlPaperA5") Тогда Возврат 11;
ИначеЕсли strConst = lower("xlPaperA4Small") Тогда Возврат 10;
ИначеЕсли strConst = lower("xlPaperA4") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlPaperA3") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlPaper11x17") Тогда Возврат 17;
ИначеЕсли strConst = lower("xlPaper10x14") Тогда Возврат 16;
ИначеЕсли strConst = lower("xlPageItem") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlPageHeader") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlPageField") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlOverТогдаDown") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlOutside") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlOtherSessionChanges") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlOr") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlOpenSource") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlOpen") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlOpaque") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlOneAfterAnother") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlOn") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlOLELinks") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlOLELink") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlOLEEmbed") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlOff") Тогда Возврат -4146;
ИначеЕсли strConst = lower("xlNumbers") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlNumber") Тогда Возврат -4145;
ИначеЕсли strConst = lower("xlNotYetRouted") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlNotPlotted") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlNotes") Тогда Возврат -4144;
ИначеЕсли strConst = lower("xlNoShapeChanges") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlNorthwestArrow") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlNormal") Тогда Возврат -4143;
ИначеЕсли strConst = lower("xlNonEnglishFunctions") Тогда Возврат 34;
ИначеЕсли strConst = lower("xlNone") Тогда Возврат -4142;
ИначеЕсли strConst = lower("xlNoncurrencyDigits") Тогда Возврат 29;
ИначеЕсли strConst = lower("xlNoMailSystem") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlNoDocuments") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlNoDockingChanges") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlNoChanges") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlNoChange") Тогда Возврат 14
ИначеЕсли strConst = lower("xlNoCap") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlNoButtonChanges") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlNo") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlNextToAxis") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlNext") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlNarrow") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlMultiply") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlMSDOS") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlMovingAvg") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlMoveAndSize") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlMove") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlMonthNameChars") Тогда Возврат 30;
ИначеЕсли strConst = lower("xlMonthLeadingZero") Тогда Возврат 41;
ИначеЕсли strConst = lower("xlMonthCode") Тогда Возврат 20;
ИначеЕсли strConst = lower("xlMonth") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlModule") Тогда Возврат -4141;
ИначеЕсли strConst = lower("xlMixed") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlMinuteCode") Тогда Возврат 23;
ИначеЕсли strConst = lower("xlMinusValues") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlMinimum") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlMinimized") Тогда Возврат -4140;
ИначеЕсли strConst = lower("xlMin") Тогда Возврат -4139;
ИначеЕсли strConst = lower("xlMicrosoftWord") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlMicrosoftSchedulePlus") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlMicrosoftProject") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlMicrosoftPowerPoint") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlMicrosoftMail") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlMicrosoftFoxPro") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlMicrosoftAccess") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlMetric") Тогда Возврат 35;
ИначеЕсли strConst = lower("xlMedium") Тогда Возврат -4138;
ИначеЕсли strConst = lower("xlMDY") Тогда Возврат 44;
ИначеЕсли strConst = lower("xlMaximum") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlMaximized") Тогда Возврат -4137;
ИначеЕсли strConst = lower("xlMax") Тогда Возврат -4136;
ИначеЕсли strConst = lower("xlMAPI") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlManualUpdate") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlManual") Тогда Возврат -4135;
ИначеЕсли strConst = lower("xlMacrosheetCell") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlMacintosh") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlLowerCaseRowLetter") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlLowerCaseColumnLetter") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlLow") Тогда Возврат -4134;
ИначеЕсли strConst = lower("xlLotusHelp") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlLong") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlLogical") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlLogarithmic") Тогда Возврат -4133;
ИначеЕсли strConst = lower("xlLocalSessionChanges") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlLocalFormat2") Тогда Возврат 16;
ИначеЕсли strConst = lower("xlLocalFormat1") Тогда Возврат 15;
ИначеЕсли strConst = lower("xlListSeparator") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlList3") Тогда Возврат 12;
ИначеЕсли strConst = lower("xlList2") Тогда Возврат 11;
ИначеЕсли strConst = lower("xlList1") Тогда Возврат 10;
ИначеЕсли strConst = lower("xlLinearTrend") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlLinear") Тогда Возврат -4132;
ИначеЕсли strConst = lower("xlLine") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlLightVertical") Тогда Возврат 12;
ИначеЕсли strConst = lower("xlLightUp") Тогда Возврат 14;
ИначеЕсли strConst = lower("xlLightHorizontal") Тогда Возврат 11;
ИначеЕсли strConst = lower("xlLightDown") Тогда Возврат 13;
ИначеЕсли strConst = lower("xlLegend") Тогда Возврат 24;
ИначеЕсли strConst = lower("xlLeftToRight") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlLeftBracket") Тогда Возврат 10;
ИначеЕсли strConst = lower("xlLeftBrace") Тогда Возврат 12;
ИначеЕсли strConst = lower("xlLeft") Тогда Возврат -4131;
ИначеЕсли strConst = lower("xlLastCell") Тогда Возврат 11;
ИначеЕсли strConst = lower("xlLast") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlLandscape") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlJustify") Тогда Возврат -4130;
ИначеЕсли strConst = lower("xlIntlMacro") Тогда Возврат 25;
ИначеЕсли strConst = lower("xlIntlAddIn") Тогда Возврат 26;
ИначеЕсли strConst = lower("xlInterrupt") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlInterpolated") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlInteger") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlInside") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlInfo") Тогда Возврат -4129;
ИначеЕсли strConst = lower("xlIndex") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlImmediatePane") Тогда Возврат 12;
ИначеЕсли strConst = lower("xlIcons") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlIBeam") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlHourCode") Тогда Возврат 22;
ИначеЕсли strConst = lower("xlHorizontal") Тогда Возврат -4128;
ИначеЕсли strConst = lower("xlHigh") Тогда Возврат -4127;
ИначеЕсли strConst = lower("xlHide") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlHidden") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlHGL") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlHairline") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlGuess") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlGrowthTrend") Тогда Возврат 10;
ИначеЕсли strConst = lower("xlGrowth") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlGridline") Тогда Возврат 22;
ИначеЕсли strConst = lower("xlGrid") Тогда Возврат 15;
ИначеЕсли strConst = lower("xlGray8") Тогда Возврат 18;
ИначеЕсли strConst = lower("xlGray75") Тогда Возврат -4126;
ИначеЕсли strConst = lower("xlGray50") Тогда Возврат -4125;
ИначеЕсли strConst = lower("xlGray25") Тогда Возврат -4124;
ИначеЕсли strConst = lower("xlGray16") Тогда Возврат 17;
ИначеЕсли strConst = lower("xlGeneralFormatName") Тогда Возврат 26;
ИначеЕсли strConst = lower("xlGeneral") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlFunction") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlFullPage") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlFreeFloating") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlFormulas") Тогда Возврат -4123;
ИначеЕсли strConst = lower("xlFormula") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlFormats") Тогда Возврат -4122;
ИначеЕсли strConst = lower("xlFloor") Тогда Возврат 23;
ИначеЕсли strConst = lower("xlFloating") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlFixedWidth") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlFixedValue") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlFitToPage") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlFirst") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlFilterInPlace") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlFilterCopy") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlFillYears") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlFillWeekdays") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlFillValues") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlFillSeries") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlFillMonths") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlFillFormats") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlFillDefault") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlFillDays") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlFillCopy") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlFill") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlExternal") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlExtended") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlExponential") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlExclusive") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlExcelMenus") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlExcelLinks") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlExcel4Workbook") Тогда Возврат 35;
ИначеЕсли strConst = lower("xlExcel4MacroSheet") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlExcel4IntlMacroSheet") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlExcel4") Тогда Возврат 33;
ИначеЕсли strConst = lower("xlExcel3") Тогда Возврат 29;
ИначеЕсли strConst = lower("xlExcel2FarEast") Тогда Возврат 27;
ИначеЕсли strConst = lower("xlExcel2") Тогда Возврат 16;
ИначеЕсли strConst = lower("xlErrValue") Тогда Возврат 2015;
ИначеЕсли strConst = lower("xlErrRef") Тогда Возврат 2023;
ИначеЕсли strConst = lower("xlErrors") Тогда Возврат 16;
ИначеЕсли strConst = lower("xlErrorHandler") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlErrNum") Тогда Возврат 2036;
ИначеЕсли strConst = lower("xlErrNull") Тогда Возврат 2000;
ИначеЕсли strConst = lower("xlErrName") Тогда Возврат 2029;
ИначеЕсли strConst = lower("xlErrNA") Тогда Возврат 2042;
ИначеЕсли strConst = lower("xlErrDiv0") Тогда Возврат 2007;
ИначеЕсли strConst = lower("xlEPS") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlEntireChart") Тогда Возврат 20;
ИначеЕсли strConst = lower("xlEditionDate") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlDXF") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlDRW") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlDrawingObject") Тогда Возврат 14;
ИначеЕсли strConst = lower("xlDownward") Тогда Возврат -4170;
ИначеЕсли strConst = lower("xlDownТогдаOver") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlDown") Тогда Возврат -4121;
ИначеЕсли strConst = lower("xlDoughnut") Тогда Возврат -4120;
ИначеЕсли strConst = lower("xlDoubleQuote") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlDoubleOpen") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlDoubleClosed") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlDoubleAccounting") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlDouble") Тогда Возврат -4119;
ИначеЕсли strConst = lower("xlDot") Тогда Возврат -4118;
ИначеЕсли strConst = lower("xlDivide") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlDistributed") Тогда Возврат -4117;
ИначеЕсли strConst = lower("xlDisabled") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlDirect") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlDifferenceFrom") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlDIF") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlDiamond") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlDialogSheet") Тогда Возврат -4116;
ИначеЕсли strConst = lower("xlDesktop") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlDescending") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlDelimited") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlDefaultAutoFormat") Тогда Возврат -1;
ИначеЕсли strConst = lower("xlDecimalSeparator") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlDebugCodePane") Тогда Возврат 13;
ИначеЕсли strConst = lower("xlDBF4") Тогда Возврат 11;
ИначеЕсли strConst = lower("xlDBF3") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlDBF2") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlDayLeadingZero") Тогда Возврат 42;
ИначеЕсли strConst = lower("xlDayCode") Тогда Возврат 21;
ИначеЕсли strConst = lower("xlDay") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlDateSeparator") Тогда Возврат 17;
ИначеЕсли strConst = lower("xlDateOrder") Тогда Возврат 32;
ИначеЕсли strConst = lower("xlDate") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlDataItem") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlDataHeader") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlDataField") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlDatabase") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlDashDotDot") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlDashDot") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlDash") Тогда Возврат -4115;
ИначеЕсли strConst = lower("xlCut") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlCustom") Тогда Возврат -4114;
ИначеЕсли strConst = lower("xlCurrencyTrailingZeros") Тогда Возврат 39;
ИначеЕсли strConst = lower("xlCurrencySpaceBefore") Тогда Возврат 36;
ИначеЕсли strConst = lower("xlCurrencyNegative") Тогда Возврат 28;
ИначеЕсли strConst = lower("xlCurrencyMinusSign") Тогда Возврат 38;
ИначеЕсли strConst = lower("xlCurrencyLeadingZeros") Тогда Возврат 40;
ИначеЕсли strConst = lower("xlCurrencyDigits") Тогда Возврат 27;
ИначеЕсли strConst = lower("xlCurrencyCode") Тогда Возврат 25;
ИначеЕсли strConst = lower("xlCurrencyBefore") Тогда Возврат 37;
ИначеЕсли strConst = lower("xlCSVWindows") Тогда Возврат 23;
ИначеЕсли strConst = lower("xlCSVMSDOS") Тогда Возврат 24;
ИначеЕсли strConst = lower("xlCSVMac") Тогда Возврат 22;
ИначеЕсли strConst = lower("xlCSV") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlCross") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlCrissCross") Тогда Возврат 16;
ИначеЕсли strConst = lower("xlCountrySetting") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlCountryCode") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlCountNums") Тогда Возврат -4113;
ИначеЕсли strConst = lower("xlCount") Тогда Возврат -4112;
ИначеЕсли strConst = lower("xlCorner") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlCopy") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlContinuous") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlContents") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlConsolidation") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlCommand") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlCombination") Тогда Возврат -4111;
ИначеЕсли strConst = lower("xlColumnТогдаRow") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlColumnSeparator") Тогда Возврат 14;
ИначеЕсли strConst = lower("xlColumns") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlColumnItem") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlColumnHeader") Тогда Возврат -4110;
ИначеЕсли strConst = lower("xlColumnField") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlColumn") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlColor3") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlColor2") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlColor1") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlCodePage") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlClosed") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlClipboardFormatWK1") Тогда Возврат 10;
ИначеЕсли strConst = lower("xlClipboardFormatVALU") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlClipboardFormatToolFacePICT") Тогда Возврат 26;
ИначеЕсли strConst = lower("xlClipboardFormatToolFace") Тогда Возврат 25;
ИначеЕсли strConst = lower("xlClipboardFormatText") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlClipboardFormatTable") Тогда Возврат 16;
ИначеЕсли strConst = lower("xlClipboardFormatSYLK") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlClipboardFormatStandardScale") Тогда Возврат 27;
ИначеЕсли strConst = lower("xlClipboardFormatStandardFont") Тогда Возврат 28;
ИначеЕсли strConst = lower("xlClipboardFormatScreenPICT") Тогда Возврат 29;
ИначеЕсли strConst = lower("xlClipboardFormatRTF") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlClipboardFormatPrintPICT") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlClipboardFormatPICT") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlClipboardFormatOwnerLink") Тогда Возврат 17;
ИначеЕсли strConst = lower("xlClipboardFormatObjectLink") Тогда Возврат 19;
ИначеЕсли strConst = lower("xlClipboardFormatObjectDesc") Тогда Возврат 31;
ИначеЕсли strConst = lower("xlClipboardFormatNative") Тогда Возврат 14;
ИначеЕсли strConst = lower("xlClipboardFormatMovie") Тогда Возврат 24;
ИначеЕсли strConst = lower("xlClipboardFormatLinkSourceDesc") Тогда Возврат 32;
ИначеЕсли strConst = lower("xlClipboardFormatLinkSource") Тогда Возврат 23;
ИначеЕсли strConst = lower("xlClipboardFormatLink") Тогда Возврат 11;
ИначеЕсли strConst = lower("xlClipboardFormatEmbedSource") Тогда Возврат 22;
ИначеЕсли strConst = lower("xlClipboardFormatEmbeddedObject") Тогда Возврат 21;
ИначеЕсли strConst = lower("xlClipboardFormatDspText") Тогда Возврат 12;
ИначеЕсли strConst = lower("xlClipboardFormatDIF") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlClipboardFormatCSV") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlClipboardFormatCGM") Тогда Возврат 13;
ИначеЕсли strConst = lower("xlClipboardFormatBitmap") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlClipboardFormatBinary") Тогда Возврат 15;
ИначеЕсли strConst = lower("xlClipboardFormatBIFF4") Тогда Возврат 30;
ИначеЕсли strConst = lower("xlClipboardFormatBIFF3") Тогда Возврат 20;
ИначеЕсли strConst = lower("xlClipboardFormatBIFF2") Тогда Возврат 18;
ИначеЕсли strConst = lower("xlClipboardFormatBIFF") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlClipboard") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlClassic3") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlClassic2") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlClassic1") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlCircle") Тогда Возврат 8;
ИначеЕсли strConst = lower("xlChronological") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlChecker") Тогда Возврат 9;
ИначеЕсли strConst = lower("xlChartTitles") Тогда Возврат 18;
ИначеЕсли strConst = lower("xlChartShort") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlChartSeries") Тогда Возврат 17;
ИначеЕсли strConst = lower("xlChartInPlace") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlChartAsWindow") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlChart4") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlChart") Тогда Возврат -4109;
ИначеЕсли strConst = lower("xlChangeAttributes") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlCGM") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlCenterAcrossSelection") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlCenter") Тогда Возврат -4108;
ИначеЕсли strConst = lower("xlCategory") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlCascade") Тогда Возврат 7;
ИначеЕсли strConst = lower("xlCap") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlCancel") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlByRows") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlByColumns") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlButton") Тогда Возврат 15;
ИначеЕсли strConst = lower("xlBuiltIn") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlBottom10Percent") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlBottom10Items") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlBottom") Тогда Возврат -4107;
ИначеЕсли strConst = lower("xlBoth") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlBMP") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlBlanks") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlBitmap") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlBIFF") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlBelow") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlBar") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlAxis") Тогда Возврат 21;
ИначеЕсли strConst = lower("xlAverage") Тогда Возврат -4106;
ИначеЕсли strConst = lower("xlAutoOpen") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlAutomaticUpdate") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlAutomatic") Тогда Возврат -4105;
ИначеЕсли strConst = lower("xlAutoFill") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlAutoDeactivate") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlAutoClose") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlAutoActivate") Тогда Возврат 3;
ИначеЕсли strConst = lower("xlAscending") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlArea") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlAnd") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlAlternateArraySeparator") Тогда Возврат 16;
ИначеЕсли strConst = lower("xlAllExceptBorders") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlAllAtOnce") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlAll") Тогда Возврат -4104;
ИначеЕсли strConst = lower("xlAddIn") Тогда Возврат 18;
ИначеЕсли strConst = lower("xlAdd") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlAccounting4") Тогда Возврат 17;
ИначеЕсли strConst = lower("xlAccounting3") Тогда Возврат 6;
ИначеЕсли strConst = lower("xlAccounting2") Тогда Возврат 5;
ИначеЕсли strConst = lower("xlAccounting1") Тогда Возврат 4;
ИначеЕсли strConst = lower("xlAbsRowRelColumn") Тогда Возврат 2;
ИначеЕсли strConst = lower("xlAbsolute") Тогда Возврат 1;
ИначеЕсли strConst = lower("xlAbove") Тогда Возврат 0;
ИначеЕсли strConst = lower("xlA1") Тогда Возврат 1;
ИначеЕсли strConst = lower("xl4DigitYears") Тогда Возврат 43;
ИначеЕсли strConst = lower("xl3DSurface") Тогда Возврат -4103;
ИначеЕсли strConst = lower("xl3DPie") Тогда Возврат -4102;
ИначеЕсли strConst = lower("xl3DLine") Тогда Возврат -4101;
ИначеЕсли strConst = lower("xl3DEffects2") Тогда Возврат 14;
ИначеЕсли strConst = lower("xl3DEffects1") Тогда Возврат 13;
ИначеЕсли strConst = lower("xl3DColumn") Тогда Возврат -4100;
ИначеЕсли strConst = lower("xl3DBar") Тогда Возврат -4099;
ИначеЕсли strConst = lower("xl3DArea") Тогда Возврат -4098;
ИначеЕсли strConst = lower("xl24HourClock") Тогда Возврат 33;
КонецЕсли;
Возврат 0;
КонецФункции
