teacup. [ 掲示板 ] [ 掲示板作成 ] [ 有料掲示板 ] [ ブログ ]

 投稿者
  題名
  内容 入力補助<IMG> youtubeの<IFRAME>タグが利用可能です。(詳細)
    
 URL
[ ケータイで使う ] [ BBSティッカー ] [ 書込み通知 ] [ 検索 ]


Re: Microsoft Office Excel ���-4/N

 投稿者:orAMPqYElakB  投稿日:2014年 2月17日(月)13時10分9秒
返信・引用
  > No.17[元記事へ]

We know as well, thank you very much., Phen375 in Australia,  kpdwo, Phen375 Uk,  :-P,

http://phen375results.net

 
 

Microsoft Office Excel の定数-7/7

 投稿者:anon21  投稿日:2008年 7月12日(土)13時56分34秒
返信・引用
  xlColumns  2
xlRows  1
xlAutoActivate  3
xlAutoClose  2
xlAutoDeactivate  4
xlAutoOpen  1
xlDoNotSaveChanges  2
xlSaveChanges  1
xlExclusive  3
xlNoChange  1
xlShared  2
xlLocalSessionChanges  2
xlOtherSessionChanges  3
xlUserResolution  1
xlScaleLinear  -4132
xlScaleLogarithmic  -4133
xlNext  1
xlPrevious  2
xlByColumns  2
xlByRows  1
xlWithinSheet  1
xlWithinWorkbook  2
xlChart  -4109
xlDialogSheet  -4116
xlExcel4IntlMacroSheet  4
xlExcel4MacroSheet  3
xlWorksheet  -4167
xlSheetHidden  0
xlSheetVeryHidden  2
xlSheetVisible  -1
xlSizeIsArea  1
xlSizeIsWidth  2
xlSmartTagControlActiveX  13
xlSmartTagControlButton  6
xlSmartTagControlCheckbox  9
xlSmartTagControlCombo  12
xlSmartTagControlHelp  3
xlSmartTagControlHelpURL  4
xlSmartTagControlImage  8
xlSmartTagControlLabel  7
xlSmartTagControlLink  2
xlSmartTagControlListbox  11
xlSmartTagControlRadioGroup  14
xlSmartTagControlSeparator  5
xlSmartTagControlSmartTag  1
xlSmartTagControlTextbox  10
xlButtonOnly  2
xlDisplayNone  1
xlIndicatorAndButton  0
xlSortNormal  0
xlSortTextAsNumbers  1
xlPinYin  1
xlStroke  2
xlCodePage  2
xlSyllabary  1
xlAscending  1
xlDescending  2
xlSortColumns  1
xlSortRows  2
xlSortLabels  2
xlSortValues  1
xlSourceAutoFilter  3
xlSourceChart  5
xlSourcePivotTable  6
xlSourcePrintArea  2
xlSourceQuery  7
xlSourceRange  4
xlSourceSheet  1
xlSourceWorkbook  0
xlSpeakByColumns  1
xlSpeakByRows  0
xlErrors  16
xlLogical  4
xlNumbers  1
xlTextValues  2
xlSubscribeToPicture  -4147
xlSubscribeToText  -4158
xlAtBottom  2
xlAtTop  1
xlSummaryOnLeft  -4131
xlSummaryOnRight  -4152
xlStandardSummary  1
xlSummaryPivotTable  -4148
xlSummaryAbove  0
xlSummaryBelow  1
xlTabPositionFirst  0
xlTabPositionLast  1
xlDelimited  1
xlFixedWidth  2
xlTextQualifierDoubleQuote  1
xlTextQualifierNone  -4142
xlTextQualifierSingleQuote  2
xlTextVisualLTR  1
xlTextVisualRTL  2
xlTickLabelOrientationAutomatic  -4105
xlTickLabelOrientationDownward  -4170
xlTickLabelOrientationHorizontal  -4128
xlTickLabelOrientationUpward  -4171
xlTickLabelOrientationVertical  -4166
xlTickLabelPositionHigh  -4127
xlTickLabelPositionLow  -4134
xlTickLabelPositionNextToAxis  4
xlTickLabelPositionNone  -4142
xlTickMarkCross  4
xlTickMarkInside  2
xlTickMarkNone  -4142
xlTickMarkOutside  3
xlDays  0
xlMonths  1
xlYears  2
xlNoButtonChanges  1
xlNoChanges  4
xlNoDockingChanges  3
xlNoShapeChanges  2
xlToolbarProtectionNone  -4143
xlTotalsCalculationAverage  2
xlTotalsCalculationCount  3
xlTotalsCalculationCountNums  4
xlTotalsCalculationMax  6
xlTotalsCalculationMin  5
xlTotalsCalculationNone  0
xlTotalsCalculationStdDev  7
xlTotalsCalculationSum  1
xlTotalsCalculationVar  8
xlExponential  5
xlLinear  -4132
xlLogarithmic  -4133
xlMovingAvg  6
xlPolynomial  3
xlPower  4
xlUnderlineStyleDouble  -4119
xlUnderlineStyleDoubleAccounting  5
xlUnderlineStyleNone  -4142
xlUnderlineStyleSingle  2
xlUnderlineStyleSingleAccounting  4
xlUpdateLinksAlways  3
xlUpdateLinksNever  2
xlUpdateLinksUserSetting  1
xlVAlignBottom  -4107
xlVAlignCenter  -4108
xlVAlignDistributed  -4117
xlVAlignJustify  -4130
xlVAlignTop  -4160
xlWBATChart  -4109
xlWBATExcel4IntlMacroSheet  4
xlWBATExcel4MacroSheet  3
xlWBATWorksheet  -4167
xlWebFormattingAll  1
xlWebFormattingNone  3
xlWebFormattingRTF  2
xlAllTables  2
xlEntirePage  1
xlSpecifiedTables  3
xlMaximized  -4137
xlMinimized  -4140
xlNormal  -4143
xlChartAsWindow  5
xlChartInPlace  4
xlClipboard  3
xlInfo  -4129
xlWorkbook  1
xlNormalView  1
xlPageBreakPreview  2
xlCommand  2
xlFunction  1
xlNotXLM  3
xlXmlExportSuccess  0
xlXmlExportValidationFailed  1
xlXmlImportElementsTruncated  1
xlXmlImportSuccess  0
xlXmlImportValidationFailed  2
xlXmlLoadImportToList  2
xlXmlLoadMapXml  3
xlXmlLoadOpenXml  1
xlXmlLoadPromptUser  0
xlGuess  0
xlNo  2
xlYes  1
 

Microsoft Office Excel の定数-6/N

 投稿者:anon20  投稿日:2008年 7月12日(土)13時55分10秒
返信・引用
  xlPasteColumnWidths  8
xlPasteComments  -4144
xlPasteFormats  -4122
xlPasteFormulas  -4123
xlPasteFormulasAndNumberFormats  11
xlPasteValidation  6
xlPasteValues  -4163
xlPasteValuesAndNumberFormats  12
xlPatternAutomatic  -4105
xlPatternChecker  9
xlPatternCrissCross  16
xlPatternDown  -4121
xlPatternGray16  17
xlPatternGray25  -4124
xlPatternGray50  -4125
xlPatternGray75  -4126
xlPatternGray8  18
xlPatternGrid  15
xlPatternHorizontal  -4128
xlPatternLightDown  13
xlPatternLightHorizontal  11
xlPatternLightUp  14
xlPatternLightVertical  12
xlPatternNone  -4142
xlPatternSemiGray75  10
xlPatternSolid  1
xlPatternUp  -4162
xlPatternVertical  -4166
xlPhoneticAlignCenter  2
xlPhoneticAlignDistributed  3
xlPhoneticAlignLeft  1
xlPhoneticAlignNoControl  0
xlHiragana  2
xlKatakana  1
xlKatakanaHalf  0
xlNoConversion  3
xlPrinter  2
xlScreen  1
xlBMP  1
xlCGM  7
xlDRW  4
xlDXF  5
xlEPS  8
xlHGL  6
xlPCT  13
xlPCX  10
xlPIC  11
xlPLT  12
xlTIF  9
xlWMF  2
xlWPG  3
xlPivotCellBlankCell  9
xlPivotCellCustomSubtotal  7
xlPivotCellDataField  4
xlPivotCellDataPivotField  8
xlPivotCellGrandTotal  3
xlPivotCellPageFieldItem  6
xlPivotCellPivotField  5
xlPivotCellPivotItem  1
xlPivotCellSubtotal  2
xlPivotCellValue  0
xlDifferenceFrom  2
xlIndex  9
xlNoAdditionalCalculation  -4143
xlPercentDifferenceFrom  4
xlPercentOf  3
xlPercentOfColumn  7
xlPercentOfRow  6
xlPercentOfTotal  8
xlRunningTotal  5
xlDate  2
xlNumber  -4145
xlText  -4158
xlColumnField  2
xlDataField  4
xlHidden  0
xlPageField  3
xlRowField  1
xlPTClassic  20
xlPTNone  21
xlReport1  0
xlReport10  9
xlReport2  1
xlReport3  2
xlReport4  3
xlReport5  4
xlReport6  5
xlReport7  6
xlReport8  7
xlReport9  8
xlTable1  10
xlTable10  19
xlTable2  11
xlTable3  12
xlTable4  13
xlTable5  14
xlTable6  15
xlTable7  16
xlTable8  17
xlTable9  18
xlMissingItemsDefault  -1
xlMissingItemsMax  32500
xlMissingItemsNone  0
xlConsolidation  3
xlDatabase  1
xlExternal  2
xlPivotTable  -4148
xlScenario  4
xlPivotTableVersion10  1
xlPivotTableVersion2000  0
xlPivotTableVersionCurrent  -1
xlFreeFloating  3
xlMove  2
xlMoveAndSize  1
xlMacintosh  1
xlMSDOS  3
xlWindows  2
xlPrintErrorsBlank  1
xlPrintErrorsDash  2
xlPrintErrorsDisplayed  0
xlPrintErrorsNA  3
xlPrintInPlace  16
xlPrintNoComments  -4142
xlPrintSheetEnd  1
xlPriorityHigh  -4127
xlPriorityLow  -4134
xlPriorityNormal  -4143
xlBlanks  4
xlButton  15
xlDataAndLabel  0
xlDataOnly  2
xlFirstRow  256
xlLabelOnly  1
xlOrigin  3
xlADORecordset  7
xlDAORecordset  2
xlODBCQuery  1
xlOLEDBQuery  5
xlTextImport  6
xlWebQuery  4
xlRangeAutoFormat3DEffects1  13
xlRangeAutoFormat3DEffects2  14
xlRangeAutoFormatAccounting1  4
xlRangeAutoFormatAccounting2  5
xlRangeAutoFormatAccounting3  6
xlRangeAutoFormatAccounting4  17
xlRangeAutoFormatClassic1  1
xlRangeAutoFormatClassic2  2
xlRangeAutoFormatClassic3  3
xlRangeAutoFormatClassicPivotTable  31
xlRangeAutoFormatColor1  7
xlRangeAutoFormatColor2  8
xlRangeAutoFormatColor3  9
xlRangeAutoFormatList1  10
xlRangeAutoFormatList2  11
xlRangeAutoFormatList3  12
xlRangeAutoFormatLocalFormat1  15
xlRangeAutoFormatLocalFormat2  16
xlRangeAutoFormatLocalFormat3  19
xlRangeAutoFormatLocalFormat4  20
xlRangeAutoFormatNone  -4142
xlRangeAutoFormatPTNone  42
xlRangeAutoFormatReport1  21
xlRangeAutoFormatReport10  30
xlRangeAutoFormatReport2  22
xlRangeAutoFormatReport3  23
xlRangeAutoFormatReport4  24
xlRangeAutoFormatReport5  25
xlRangeAutoFormatReport6  26
xlRangeAutoFormatReport7  27
xlRangeAutoFormatReport8  28
xlRangeAutoFormatReport9  29
xlRangeAutoFormatSimple  -4154
xlRangeAutoFormatTable1  32
xlRangeAutoFormatTable10  41
xlRangeAutoFormatTable2  33
xlRangeAutoFormatTable3  34
xlRangeAutoFormatTable4  35
xlRangeAutoFormatTable5  36
xlRangeAutoFormatTable6  37
xlRangeAutoFormatTable7  38
xlRangeAutoFormatTable8  39
xlRangeAutoFormatTable9  40
xlRangeValueDefault  10
xlRangeValueMSPersistXML  12
xlRangeValueXMLSpreadsheet  11
xlA1  1
xlR1C1  -4150
xlAbsolute  1
xlAbsRowRelColumn  2
xlRelative  4
xlRelRowAbsColumn  3
xlAlways  1
xlAsRequired  0
xlNever  2
xlAllAtOnce  2
xlOneAfterAnother  1
xlNotYetRouted  0
xlRoutingComplete  2
xlRoutingInProgress  1
 

Microsoft Office Excel の定数-5/N

 投稿者:anon19  投稿日:2008年 7月12日(土)13時54分3秒
返信・引用
  xlIMEModeOff  2
xlIMEModeOn  1
xlPivotTableReport  1
xlQueryTable  0
xlFormatFromLeftOrAbove  0
xlFormatFromRightOrBelow  1
xlShiftDown  -4121
xlShiftToRight  -4161
xlOutline  1
xlTabular  0
xlLegendPositionBottom  -4107
xlLegendPositionCorner  2
xlLegendPositionLeft  -4131
xlLegendPositionRight  -4152
xlLegendPositionTop  -4160
xlContinuous  1
xlDash  -4115
xlDashDot  4
xlDashDotDot  5
xlDot  -4118
xlDouble  -4119
xlLineStyleNone  -4142
xlSlantDashDot  13
xlExcelLinks  1
xlOLELinks  2
xlPublishers  5
xlSubscribers  6
xlEditionDate  2
xlLinkInfoStatus  3
xlUpdateState  1
xlLinkInfoOLELinks  2
xlLinkInfoPublishers  5
xlLinkInfoSubscribers  6
xlLinkStatusCopiedValues  10
xlLinkStatusIndeterminate  5
xlLinkStatusInvalidName  7
xlLinkStatusMissingFile  1
xlLinkStatusMissingSheet  2
xlLinkStatusNotStarted  6
xlLinkStatusOK  0
xlLinkStatusOld  3
xlLinkStatusSourceNotCalculated  4
xlLinkStatusSourceNotOpen  8
xlLinkStatusSourceOpen  9
xlLinkTypeExcelLinks  1
xlLinkTypeOLELinks  2
xlListConflictDialog  0
xlListConflictDiscardAllConflicts  2
xlListConflictError  3
xlListConflictRetryAllConflicts  1
xlListDataTypeCheckbox  9
xlListDataTypeChoice  6
xlListDataTypeChoiceMulti  7
xlListDataTypeCounter  11
xlListDataTypeCurrency  4
xlListDataTypeDateTime  5
xlListDataTypeHyperLink  10
xlListDataTypeListLookup  8
xlListDataTypeMultiLineRichText  12
xlListDataTypeMultiLineText  2
xlListDataTypeNone  0
xlListDataTypeNumber  3
xlListDataTypeText  1
xlSrcExternal  0
xlSrcRange  1
xlSrcXml  2
xlColumnHeader  -4110
xlColumnItem  5
xlDataHeader  3
xlDataItem  7
xlPageHeader  2
xlPageItem  6
xlRowHeader  -4153
xlRowItem  4
xlTableBody  8
xlPart  2
xlWhole  1
xlMAPI  1
xlNoMailSystem  0
xlPowerTalk  2
xlMarkerStyleAutomatic  -4105
xlMarkerStyleCircle  8
xlMarkerStyleDash  -4115
xlMarkerStyleDiamond  2
xlMarkerStyleDot  -4118
xlMarkerStyleNone  -4142
xlMarkerStylePicture  -4147
xlMarkerStylePlus  9
xlMarkerStyleSquare  1
xlMarkerStyleStar  5
xlMarkerStyleTriangle  3
xlMarkerStyleX  -4168
xlNoButton  0
xlPrimaryButton  1
xlSecondaryButton  2
xlDefault  -4143
xlIBeam  3
xlNorthwestArrow  1
xlWait  2
xlMicrosoftAccess  4
xlMicrosoftFoxPro  5
xlMicrosoftMail  3
xlMicrosoftPowerPoint  2
xlMicrosoftProject  6
xlMicrosoftSchedulePlus  7
xlMicrosoftWord  1
xlFitToPage  2
xlFullPage  3
xlScreenSize  1
xlOLEControl  2
xlOLEEmbed  1
xlOLELink  0
xlVerbOpen  2
xlVerbPrimary  1
xlDownThenOver  1
xlOverThenDown  2
xlDownward  -4170
xlHorizontal  -4128
xlUpward  -4171
xlVertical  -4166
xlPageBreakAutomatic  -4105
xlPageBreakManual  -4135
xlPageBreakNone  -4142
xlPageBreakFull  1
xlPageBreakPartial  2
xlLandscape  2
xlPortrait  1
xlPaper10x14  16
xlPaper11x17  17
xlPaperA3  8
xlPaperA4  9
xlPaperA4Small  10
xlPaperA5  11
xlPaperB4  12
xlPaperB5  13
xlPaperCsheet  24
xlPaperDsheet  25
xlPaperEnvelope10  20
xlPaperEnvelope11  21
xlPaperEnvelope12  22
xlPaperEnvelope14  23
xlPaperEnvelope9  19
xlPaperEnvelopeB4  33
xlPaperEnvelopeB5  34
xlPaperEnvelopeB6  35
xlPaperEnvelopeC3  29
xlPaperEnvelopeC4  30
xlPaperEnvelopeC5  28
xlPaperEnvelopeC6  31
xlPaperEnvelopeC65  32
xlPaperEnvelopeDL  27
xlPaperEnvelopeItaly  36
xlPaperEnvelopeMonarch  37
xlPaperEnvelopePersonal  38
xlPaperEsheet  26
xlPaperExecutive  7
xlPaperFanfoldLegalGerman  41
xlPaperFanfoldStdGerman  40
xlPaperFanfoldUS  39
xlPaperFolio  14
xlPaperLedger  4
xlPaperLegal  5
xlPaperLetter  1
xlPaperLetterSmall  2
xlPaperNote  18
xlPaperQuarto  15
xlPaperStatement  6
xlPaperTabloid  3
xlPaperUser  256
xlParamTypeBigInt  -5
xlParamTypeBinary  -2
xlParamTypeBit  -7
xlParamTypeChar  1
xlParamTypeDate  9
xlParamTypeDecimal  3
xlParamTypeDouble  8
xlParamTypeFloat  6
xlParamTypeInteger  4
xlParamTypeLongVarBinary  -4
xlParamTypeLongVarChar  -1
xlParamTypeNumeric  2
xlParamTypeReal  7
xlParamTypeSmallInt  5
xlParamTypeTime  10
xlParamTypeTimestamp  11
xlParamTypeTinyInt  -6
xlParamTypeUnknown  0
xlParamTypeVarBinary  -3
xlParamTypeVarChar  12
xlParamTypeWChar  -8
xlConstant  1
xlPrompt  0
xlRange  2
xlPasteSpecialOperationAdd  2
xlPasteSpecialOperationDivide  5
xlPasteSpecialOperationMultiply  4
xlPasteSpecialOperationNone  -4142
xlPasteSpecialOperationSubtract  3
xlPasteAll  -4104
xlPasteAllExceptBorders  7
 

Microsoft Office Excel の定数-4/N

 投稿者:anon18  投稿日:2008年 7月12日(土)13時52分52秒
返信・引用
  xlLabelPositionInsideBase  4
xlLabelPositionInsideEnd  3
xlLabelPositionLeft  -4131
xlLabelPositionMixed  6
xlLabelPositionOutsideEnd  2
xlLabelPositionRight  -4152
xlDataLabelSeparatorDefault  1
xlDataLabelsShowBubbleSizes  6
xlDataLabelsShowLabel  4
xlDataLabelsShowLabelAndPercent  5
xlDataLabelsShowNone  -4142
xlDataLabelsShowPercent  3
xlDataLabelsShowValue  2
xlDay  1
xlMonth  3
xlWeekday  2
xlYear  4
xlAutoFill  4
xlChronological  3
xlDataSeriesLinear  -4132
xlGrowth  2
xlShiftToLeft  -4159
xlShiftUp  -4162
xlDown  -4121
xlToLeft  -4159
xlToRight  -4161
xlUp  -4162
xlInterpolated  3
xlNotPlotted  1
xlZero  2
xlDisplayShapes  -4104
xlHide  3
xlPlaceholders  2
xlHundredMillions  -8
xlHundreds  -2
xlHundredThousands  -5
xlMillionMillions  -10
xlMillions  -6
xlTenMillions  -7
xlTenThousands  -4
xlThousandMillions  -9
xlThousands  -3
xlValidAlertInformation  3
xlValidAlertStop  1
xlValidAlertWarning  2
xlValidateCustom  7
xlValidateDate  4
xlValidateDecimal  2
xlValidateInputOnly  0
xlValidateList  3
xlValidateTextLength  6
xlValidateTime  5
xlValidateWholeNumber  1
xlBIFF  2
xlPICT  1
xlRTF  4
xlVALU  8
xlAutomaticUpdate  4
xlCancel  1
xlChangeAttributes  6
xlManualUpdate  5
xlOpenSource  3
xlSelect  3
xlSendPublisher  2
xlUpdateSubscriber  2
xlPublisher  1
xlSubscriber  2
xlDisabled  0
xlErrorHandler  2
xlInterrupt  1
xlNoRestrictions  0
xlNoSelection  -4142
xlUnlockedCells  1
xlCap  1
xlNoCap  2
xlX  -4168
xlY  1
xlErrorBarIncludeBoth  1
xlErrorBarIncludeMinusValues  3
xlErrorBarIncludeNone  -4142
xlErrorBarIncludePlusValues  2
xlErrorBarTypeCustom  -4114
xlErrorBarTypeFixedValue  1
xlErrorBarTypePercent  2
xlErrorBarTypeStDev  -4155
xlErrorBarTypeStError  4
xlEmptyCellReferences  7
xlEvaluateToError  1
xlInconsistentFormula  4
xlListDataValidation  8
xlNumberAsText  3
xlOmittedCells  5
xlTextDate  2
xlUnlockedFormulaCells  6
xlReadOnly  3
xlReadWrite  2
xlAddIn  18
xlCSV  6
xlCSVMac  22
xlCSVMSDOS  24
xlCSVWindows  23
xlCurrentPlatformText  -4158
xlDBF2  7
xlDBF3  8
xlDBF4  11
xlDIF  9
xlExcel2  16
xlExcel2FarEast  27
xlExcel3  29
xlExcel4  33
xlExcel4Workbook  35
xlExcel5  39
xlExcel7  39
xlExcel9795  43
xlHtml  44
xlIntlAddIn  26
xlIntlMacro  25
xlSYLK  2
xlTemplate  17
xlTextMac  19
xlTextMSDOS  21
xlTextPrinter  36
xlTextWindows  20
xlUnicodeText  42
xlWebArchive  45
xlWJ2WD1  14
xlWJ3  40
xlWJ3FJ3  41
xlWK1  5
xlWK1ALL  31
xlWK1FMT  30
xlWK3  15
xlWK3FM3  32
xlWK4  38
xlWKS  4
xlWorkbookNormal  -4143
xlWorks2FarEast  28
xlWQ1  34
xlXMLData  47
xlXMLSpreadsheet  46
xlFillWithAll  -4104
xlFillWithContents  2
xlFillWithFormats  -4122
xlFilterCopy  2
xlFilterInPlace  1
xlComments  -4144
xlFormulas  -4123
xlValues  -4163
xlBetween  1
xlEqual  3
xlGreater  5
xlGreaterEqual  7
xlLess  6
xlLessEqual  8
xlNotBetween  2
xlNotEqual  4
xlCellValue  1
xlExpression  2
xlButtonControl  0
xlCheckBox  1
xlDropDown  2
xlEditBox  3
xlGroupBox  4
xlLabel  5
xlListBox  6
xlOptionButton  7
xlScrollBar  8
xlSpinner  9
xlColumnLabels  2
xlMixedLabels  3
xlNoLabels  -4142
xlRowLabels  1
xlHAlignCenter  -4108
xlHAlignCenterAcrossSelection  7
xlHAlignDistributed  -4117
xlHAlignFill  5
xlHAlignGeneral  1
xlHAlignJustify  -4130
xlHAlignLeft  -4131
xlHAlignRight  -4152
xlHebrewFullScript  0
xlHebrewMixedAuthorizedScript  3
xlHebrewMixedScript  2
xlHebrewPartialScript  1
xlAllChanges  2
xlNotYetReviewed  3
xlSinceMyLastSave  1
xlHtmlCalc  1
xlHtmlChart  3
xlHtmlList  2
xlHtmlStatic  0
xlIMEModeAlpha  8
xlIMEModeAlphaFull  7
xlIMEModeDisable  3
xlIMEModeHangul  10
xlIMEModeHangulFull  9
xlIMEModeHiragana  4
xlIMEModeKatakana  5
xlIMEModeKatakanaHalf  6
xlIMEModeNoControl  0
 

Microsoft Office Excel の定数-3/N

 投稿者:anon17  投稿日:2008年 7月12日(土)13時51分33秒
返信・引用
  xlLeaderLines  29
xlLegend  24
xlLegendEntry  12
xlLegendKey  13
xlMajorGridlines  15
xlMinorGridlines  16
xlNothing  28
xlPivotChartDropZone  32
xlPivotChartFieldButton  31
xlPlotArea  19
xlRadarAxisLabels  27
xlSeries  3
xlSeriesLines  22
xlShape  14
xlTrendline  8
xlUpBars  18
xlWalls  5
xlXErrorBars  10
xlYErrorBars  11
xlLocationAsNewSheet  1
xlLocationAsObject  2
xlLocationAutomatic  3
xlAllFaces  7
xlEnd  2
xlEndSides  3
xlFront  4
xlFrontEnd  6
xlFrontSides  5
xlSides  1
xlStack  2
xlStackScale  3
xlStretch  1
xlSplitByCustomSplit  4
xlSplitByPercentValue  3
xlSplitByPosition  1
xlSplitByValue  2
xl3DArea  -4098
xl3DAreaStacked  78
xl3DAreaStacked100  79
xl3DBarClustered  60
xl3DBarStacked  61
xl3DBarStacked100  62
xl3DColumn  -4100
xl3DColumnClustered  54
xl3DColumnStacked  55
xl3DColumnStacked100  56
xl3DLine  -4101
xl3DPie  -4102
xl3DPieExploded  70
xlArea  1
xlAreaStacked  76
xlAreaStacked100  77
xlBarClustered  57
xlBarOfPie  71
xlBarStacked  58
xlBarStacked100  59
xlBubble  15
xlBubble3DEffect  87
xlColumnClustered  51
xlColumnStacked  52
xlColumnStacked100  53
xlConeBarClustered  102
xlConeBarStacked  103
xlConeBarStacked100  104
xlConeCol  105
xlConeColClustered  99
xlConeColStacked  100
xlConeColStacked100  101
xlCylinderBarClustered  95
xlCylinderBarStacked  96
xlCylinderBarStacked100  97
xlCylinderCol  98
xlCylinderColClustered  92
xlCylinderColStacked  93
xlCylinderColStacked100  94
xlDoughnut  -4120
xlDoughnutExploded  80
xlLine  4
xlLineMarkers  65
xlLineMarkersStacked  66
xlLineMarkersStacked100  67
xlLineStacked  63
xlLineStacked100  64
xlPie  5
xlPieExploded  69
xlPieOfPie  68
xlPyramidBarClustered  109
xlPyramidBarStacked  110
xlPyramidBarStacked100  111
xlPyramidCol  112
xlPyramidColClustered  106
xlPyramidColStacked  107
xlPyramidColStacked100  108
xlRadar  -4151
xlRadarFilled  82
xlRadarMarkers  81
xlStockHLC  88
xlStockOHLC  89
xlStockVHLC  90
xlStockVOHLC  91
xlSurface  83
xlSurfaceTopView  85
xlSurfaceTopViewWireframe  86
xlSurfaceWireframe  84
xlXYScatter  -4169
xlXYScatterLines  74
xlXYScatterLinesNoMarkers  75
xlXYScatterSmooth  72
xlXYScatterSmoothNoMarkers  73
xlClipboardFormatBIFF  8
xlClipboardFormatBIFF2  18
xlClipboardFormatBIFF3  20
xlClipboardFormatBIFF4  30
xlClipboardFormatBinary  15
xlClipboardFormatBitmap  9
xlClipboardFormatCGM  13
xlClipboardFormatCSV  5
xlClipboardFormatDIF  4
xlClipboardFormatDspText  12
xlClipboardFormatEmbeddedObject  21
xlClipboardFormatEmbedSource  22
xlClipboardFormatLink  11
xlClipboardFormatLinkSource  23
xlClipboardFormatLinkSourceDesc  32
xlClipboardFormatMovie  24
xlClipboardFormatNative  14
xlClipboardFormatObjectDesc  31
xlClipboardFormatObjectLink  19
xlClipboardFormatOwnerLink  17
xlClipboardFormatPICT  2
xlClipboardFormatPrintPICT  3
xlClipboardFormatRTF  7
xlClipboardFormatScreenPICT  29
xlClipboardFormatStandardFont  28
xlClipboardFormatStandardScale  27
xlClipboardFormatSYLK  6
xlClipboardFormatTable  16
xlClipboardFormatText  0
xlClipboardFormatToolFace  25
xlClipboardFormatToolFacePICT  26
xlClipboardFormatVALU  1
xlClipboardFormatWK1  10
xlCmdCube  1
xlCmdDefault  4
xlCmdList  5
xlCmdSql  2
xlCmdTable  3
xlColorIndexAutomatic  -4105
xlColorIndexNone  -4142
xlDMYFormat  4
xlDYMFormat  7
xlEMDFormat  10
xlGeneralFormat  1
xlMDYFormat  3
xlMYDFormat  6
xlSkipColumn  9
xlTextFormat  2
xlYDMFormat  8
xlYMDFormat  5
xlCommandUnderlinesAutomatic  -4105
xlCommandUnderlinesOff  -4146
xlCommandUnderlinesOn  1
xlCommentAndIndicator  1
xlCommentIndicatorOnly  -1
xlNoIndicator  0
xlAverage  -4106
xlCount  -4112
xlCountNums  -4113
xlMax  -4136
xlMin  -4139
xlProduct  -4149
xlStDev  -4155
xlStDevP  -4156
xlSum  -4157
xlUnknown  1000
xlVar  -4164
xlVarP  -4165
xlBitmap  2
xlPicture  -4147
xlExtractData  2
xlNormalLoad  0
xlRepairFile  1
xlCreatorCode  1480803660
xlHierarchy  1
xlMeasure  2
xlSet  3
xlCopy  1
xlCut  2
xlErrDiv0  2007
XlErrNA  2042
xlErrName  2029
XlErrNull  2000
XlErrNum  2036
XlErrRef  2023
XlErrValue  2015
xlLabelPositionAbove  0
xlLabelPositionBelow  1
xlLabelPositionBestFit  5
xlLabelPositionCenter  -4108
xlLabelPositionCustom  7
 

Microsoft Office Excel の定数-2/N

 投稿者:anon16  投稿日:2008年 7月12日(土)13時50分20秒
返信・引用
  xlDialogFormulaFind  64
xlDialogFormulaGoto  63
xlDialogFormulaReplace  130
xlDialogFunctionWizard  450
xlDialogGallery3dArea  193
xlDialogGallery3dBar  272
xlDialogGallery3dColumn  194
xlDialogGallery3dLine  195
xlDialogGallery3dPie  196
xlDialogGallery3dSurface  273
xlDialogGalleryArea  67
xlDialogGalleryBar  68
xlDialogGalleryColumn  69
xlDialogGalleryCustom  388
xlDialogGalleryDoughnut  344
xlDialogGalleryLine  70
xlDialogGalleryPie  71
xlDialogGalleryRadar  249
xlDialogGalleryScatter  72
xlDialogGoalSeek  198
xlDialogGridlines  76
xlDialogImportTextFile  666
xlDialogInsert  55
xlDialogInsertHyperlink  596
xlDialogInsertNameLabel  496
xlDialogInsertObject  259
xlDialogInsertPicture  342
xlDialogInsertTitle  380
xlDialogLabelProperties  436
xlDialogListboxProperties  437
xlDialogMacroOptions  382
xlDialogMailEditMailer  470
xlDialogMailLogon  339
xlDialogMailNextLetter  378
xlDialogMainChart  85
xlDialogMainChartType  185
xlDialogMenuEditor  322
xlDialogMove  262
xlDialogMyPermission  834
xlDialogNew  119
xlDialogNewWebQuery  667
xlDialogNote  154
xlDialogObjectProperties  207
xlDialogObjectProtection  214
xlDialogOpen  1
xlDialogOpenLinks  2
xlDialogOpenMail  188
xlDialogOpenText  441
xlDialogOptionsCalculation  318
xlDialogOptionsChart  325
xlDialogOptionsEdit  319
xlDialogOptionsGeneral  356
xlDialogOptionsListsAdd  458
xlDialogOptionsME  647
xlDialogOptionsTransition  355
xlDialogOptionsView  320
xlDialogOutline  142
xlDialogOverlay  86
xlDialogOverlayChartType  186
xlDialogPageSetup  7
xlDialogParse  91
xlDialogPasteNames  58
xlDialogPasteSpecial  53
xlDialogPatterns  84
xlDialogPermission  832
xlDialogPhonetic  656
xlDialogPivotCalculatedField  570
xlDialogPivotCalculatedItem  572
xlDialogPivotClientServerSet  689
xlDialogPivotFieldGroup  433
xlDialogPivotFieldProperties  313
xlDialogPivotFieldUngroup  434
xlDialogPivotShowPages  421
xlDialogPivotSolveOrder  568
xlDialogPivotTableOptions  567
xlDialogPivotTableWizard  312
xlDialogPlacement  300
xlDialogPrint  8
xlDialogPrinterSetup  9
xlDialogPrintPreview  222
xlDialogPromote  202
xlDialogProperties  474
xlDialogPropertyFields  754
xlDialogProtectDocument  28
xlDialogProtectSharing  620
xlDialogPublishAsWebPage  653
xlDialogPushbuttonProperties  445
xlDialogReplaceFont  134
xlDialogRoutingSlip  336
xlDialogRowHeight  127
xlDialogRun  17
xlDialogSaveAs  5
xlDialogSaveCopyAs  456
xlDialogSaveNewObject  208
xlDialogSaveWorkbook  145
xlDialogSaveWorkspace  285
xlDialogScale  87
xlDialogScenarioAdd  307
xlDialogScenarioCells  305
xlDialogScenarioEdit  308
xlDialogScenarioMerge  473
xlDialogScenarioSummary  311
xlDialogScrollbarProperties  420
xlDialogSearch  731
xlDialogSelectSpecial  132
xlDialogSendMail  189
xlDialogSeriesAxes  460
xlDialogSeriesOptions  557
xlDialogSeriesOrder  466
xlDialogSeriesShape  504
xlDialogSeriesX  461
xlDialogSeriesY  462
xlDialogSetBackgroundPicture  509
xlDialogSetPrintTitles  23
xlDialogSetUpdateStatus  159
xlDialogShowDetail  204
xlDialogShowToolbar  220
xlDialogSize  261
xlDialogSort  39
xlDialogSortSpecial  192
xlDialogSplit  137
xlDialogStandardFont  190
xlDialogStandardWidth  472
xlDialogStyle  44
xlDialogSubscribeTo  218
xlDialogSubtotalCreate  398
xlDialogSummaryInfo  474
xlDialogTable  41
xlDialogTabOrder  394
xlDialogTextToColumns  422
xlDialogUnhide  94
xlDialogUpdateLink  201
xlDialogVbaInsertFile  328
xlDialogVbaMakeAddin  478
xlDialogVbaProcedureDefinition  330
xlDialogView3d  197
xlDialogWebOptionsBrowsers  773
xlDialogWebOptionsEncoding  686
xlDialogWebOptionsFiles  684
xlDialogWebOptionsFonts  687
xlDialogWebOptionsGeneral  683
xlDialogWebOptionsPictures  685
xlDialogWindowMove  14
xlDialogWindowSize  13
xlDialogWorkbookAdd  281
xlDialogWorkbookCopy  283
xlDialogWorkbookInsert  354
xlDialogWorkbookMove  282
xlDialogWorkbookName  386
xlDialogWorkbookNew  302
xlDialogWorkbookOptions  284
xlDialogWorkbookProtect  417
xlDialogWorkbookTabSplit  415
xlDialogWorkbookUnhide  384
xlDialogWorkgroup  199
xlDialogWorkspace  95
xlDialogZoom  256
xlCalculatedMember  0
xlCalculatedSet  1
xlCalculationAutomatic  -4105
xlCalculationManual  -4135
xlCalculationSemiautomatic  2
xlAnyKey  2
xlEscKey  1
xlNoKey  0
xlCalculating  1
xlDone  0
xlPending  2
xlAutomaticScale  -4105
xlCategoryScale  2
xlTimeScale  3
xlInsertDeleteCells  1
xlInsertEntireRows  2
xlOverwriteCells  0
xlCellTypeAllFormatConditions  -4172
xlCellTypeAllValidation  -4174
xlCellTypeBlanks  4
xlCellTypeComments  -4144
xlCellTypeConstants  2
xlCellTypeFormulas  -4123
xlCellTypeLastCell  11
xlCellTypeSameFormatConditions  -4173
xlCellTypeSameValidation  -4175
xlCellTypeVisible  12
xlAnyGallery  23
xlBuiltIn  21
xlUserDefined  22
xlAxis  21
xlAxisTitle  17
xlChartArea  2
xlChartTitle  4
xlCorners  6
xlDataLabel  0
xlDataTable  7
xlDisplayUnitLabel  30
xlDownBars  20
xlDropLines  26
xlErrorBars  9
xlFloor  23
xlHiLoLines  25
 

Microsoft Office Excel の定数-1/N

 投稿者:anon15  投稿日:2008年 7月12日(土)13時47分53秒
返信・引用
  xl24HourClock  33
xl4DigitYears  43
xlAlternateArraySeparator  16
xlColumnSeparator  14
xlCountryCode  1
xlCountrySetting  2
xlCurrencyBefore  37
xlCurrencyCode  25
xlCurrencyDigits  27
xlCurrencyLeadingZeros  40
xlCurrencyMinusSign  38
xlCurrencyNegative  28
xlCurrencySpaceBefore  36
xlCurrencyTrailingZeros  39
xlDateOrder  32
xlDateSeparator  17
xlDayCode  21
xlDayLeadingZero  42
xlDecimalSeparator  3
xlGeneralFormatName  26
xlHourCode  22
xlLeftBrace  12
xlLeftBracket  10
xlListSeparator  5
xlLowerCaseColumnLetter  9
xlLowerCaseRowLetter  8
xlMDY  44
xlMetric  35
xlMinuteCode  23
xlMonthCode  20
xlMonthLeadingZero  41
xlMonthNameChars  30
xlNoncurrencyDigits  29
xlNonEnglishFunctions  34
xlRightBrace  13
xlRightBracket  11
xlRowSeparator  15
xlSecondCode  24
xlThousandsSeparator  4
xlTimeLeadingZero  45
xlTimeSeparator  18
xlUpperCaseColumnLetter  7
xlUpperCaseRowLetter  6
xlWeekdayNameChars  31
xlYearCode  19
xlColumnThenRow  2
xlRowThenColumn  1
xlArabicBothStrict  3
xlArabicNone  0
xlArabicStrictAlefHamza  1
xlArabicStrictFinalYaa  2
xlArrangeStyleCascade  7
xlArrangeStyleHorizontal  -4128
xlArrangeStyleTiled  1
xlArrangeStyleVertical  -4166
xlArrowHeadLengthLong  3
xlArrowHeadLengthMedium  -4138
xlArrowHeadLengthShort  1
xlArrowHeadStyleClosed  3
xlArrowHeadStyleDoubleClosed  5
xlArrowHeadStyleDoubleOpen  4
xlArrowHeadStyleNone  -4142
xlArrowHeadStyleOpen  2
xlArrowHeadWidthMedium  -4138
xlArrowHeadWidthNarrow  1
xlArrowHeadWidthWide  3
xlFillCopy  1
xlFillDays  5
xlFillDefault  0
xlFillFormats  3
xlFillMonths  7
xlFillSeries  2
xlFillValues  4
xlFillWeekdays  6
xlFillYears  8
xlGrowthTrend  10
xlLinearTrend  9
xlAnd  1
xlBottom10Items  4
xlBottom10Percent  6
xlOr  2
xlTop10Items  3
xlTop10Percent  5
xlAxisCrossesAutomatic  -4105
xlAxisCrossesCustom  -4114
xlAxisCrossesMaximum  2
xlAxisCrossesMinimum  4
xlPrimary  1
xlSecondary  2
xlCategory  1
xlSeriesAxis  3
xlValue  2
xlBackgroundAutomatic  -4105
xlBackgroundOpaque  3
xlBackgroundTransparent  2
xlBox  0
xlConeToMax  5
xlConeToPoint  4
xlCylinder  3
xlPyramidToMax  2
xlPyramidToPoint  1
xlDiagonalDown  5
xlDiagonalUp  6
xlEdgeBottom  9
xlEdgeLeft  7
xlEdgeRight  10
xlEdgeTop  8
xlInsideHorizontal  12
xlInsideVertical  11
xlHairline  1
xlMedium  -4138
xlThick  4
xlThin  2
_xlDialogChartSourceData  541
_xlDialogPhonetic  538
xlDialogActivate  103
xlDialogActiveCellFont  476
xlDialogAddChartAutoformat  390
xlDialogAddinManager  321
xlDialogAlignment  43
xlDialogApplyNames  133
xlDialogApplyStyle  212
xlDialogAppMove  170
xlDialogAppSize  171
xlDialogArrangeAll  12
xlDialogAssignToObject  213
xlDialogAssignToTool  293
xlDialogAttachText  80
xlDialogAttachToolbars  323
xlDialogAutoCorrect  485
xlDialogAxes  78
xlDialogBorder  45
xlDialogCalculation  32
xlDialogCellProtection  46
xlDialogChangeLink  166
xlDialogChartAddData  392
xlDialogChartLocation  527
xlDialogChartOptionsDataLabelMultiple  724
xlDialogChartOptionsDataLabels  505
xlDialogChartOptionsDataTable  506
xlDialogChartSourceData  540
xlDialogChartTrend  350
xlDialogChartType  526
xlDialogChartWizard  288
xlDialogCheckboxProperties  435
xlDialogClear  52
xlDialogColorPalette  161
xlDialogColumnWidth  47
xlDialogCombination  73
xlDialogConditionalFormatting  583
xlDialogConsolidate  191
xlDialogCopyChart  147
xlDialogCopyPicture  108
xlDialogCreateList  796
xlDialogCreateNames  62
xlDialogCreatePublisher  217
xlDialogCustomizeToolbar  276
xlDialogCustomViews  493
xlDialogDataDelete  36
xlDialogDataLabel  379
xlDialogDataLabelMultiple  723
xlDialogDataSeries  40
xlDialogDataValidation  525
xlDialogDefineName  61
xlDialogDefineStyle  229
xlDialogDeleteFormat  111
xlDialogDeleteName  110
xlDialogDemote  203
xlDialogDisplay  27
xlDialogEditboxProperties  438
xlDialogEditColor  223
xlDialogEditDelete  54
xlDialogEditionOptions  251
xlDialogEditSeries  228
xlDialogErrorbarX  463
xlDialogErrorbarY  464
xlDialogErrorChecking  732
xlDialogEvaluateFormula  709
xlDialogExternalDataProperties  530
xlDialogExtract  35
xlDialogFileDelete  6
xlDialogFileSharing  481
xlDialogFillGroup  200
xlDialogFillWorkgroup  301
xlDialogFilter  447
xlDialogFilterAdvanced  370
xlDialogFindFile  475
xlDialogFont  26
xlDialogFontProperties  381
xlDialogFormatAuto  269
xlDialogFormatChart  465
xlDialogFormatCharttype  423
xlDialogFormatFont  150
xlDialogFormatLegend  88
xlDialogFormatMain  225
xlDialogFormatMove  128
xlDialogFormatNumber  42
xlDialogFormatOverlay  226
xlDialogFormatSize  129
xlDialogFormatText  89
 

クイックソート

 投稿者:anon14  投稿日:2008年 6月22日(日)19時40分31秒
返信・引用
  Option Explicit

Sub クイックソート()
   Dim 新メンバーテーブル() As String
   Dim 新メンバー数 As Long
   Dim 順序 As String

   Dim 文書ソートテーブル() As String

   Dim i As Long

   Dim Message As String
   Dim BoxType As Long
   Dim BoxTitle  As String
   Dim Answer As Integer

   新メンバー数 = 10
   ReDim 新メンバーテーブル(1 To 新メンバー数) As String
   ReDim 文書ソートテーブル(1 To 新メンバー数) As String

   新メンバーテーブル(1) = "A01"
   新メンバーテーブル(2) = "A05"
   新メンバーテーブル(3) = "A09"
   新メンバーテーブル(4) = "A02"
   新メンバーテーブル(5) = "A04"
   新メンバーテーブル(6) = "A10"
   新メンバーテーブル(7) = "A03"
   新メンバーテーブル(8) = "A07"
   新メンバーテーブル(9) = "A08"
   新メンバーテーブル(10) = "A06"

   For i = 1 To 新メンバー数
      文書ソートテーブル(i) = 新メンバーテーブル(i)
   Next

   順序 = "昇順"
   Call クイックソート2(文書ソートテーブル(), 1, 新メンバー数, 順序)

   Message = "前     後" + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(1) + "   " + 文書ソートテーブル(1) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(2) + "   " + 文書ソートテーブル(2) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(3) + "   " + 文書ソートテーブル(3) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(4) + "   " + 文書ソートテーブル(4) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(5) + "   " + 文書ソートテーブル(5) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(6) + "   " + 文書ソートテーブル(6) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(7) + "   " + 文書ソートテーブル(7) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(8) + "   " + 文書ソートテーブル(8) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(9) + "   " + 文書ソートテーブル(9) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(10) + "   " + 文書ソートテーブル(10)
   BoxTitle = "クイックソート(昇順)"
   Answer = MsgBox(Message, , BoxTitle)

   For i = 1 To 新メンバー数
      文書ソートテーブル(i) = 新メンバーテーブル(i)
   Next

   順序 = "降順"
   Call クイックソート2(文書ソートテーブル(), 1, 新メンバー数, 順序)

   Message = "前     後" + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(1) + "   " + 文書ソートテーブル(1) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(2) + "   " + 文書ソートテーブル(2) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(3) + "   " + 文書ソートテーブル(3) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(4) + "   " + 文書ソートテーブル(4) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(5) + "   " + 文書ソートテーブル(5) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(6) + "   " + 文書ソートテーブル(6) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(7) + "   " + 文書ソートテーブル(7) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(8) + "   " + 文書ソートテーブル(8) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(9) + "   " + 文書ソートテーブル(9) + Chr(13) + Chr(10)
   Message = Message + 新メンバーテーブル(10) + "   " + 文書ソートテーブル(10)
   BoxTitle = "クイックソート(降順)"
   Answer = MsgBox(Message, , BoxTitle)
End Sub
Rem *************************************************************************************
Rem *   サブルーチン名:  クイックソート2                                                                              *
Rem *                                                                                                                            *
Rem *   機能概要:  クイックソートで文書データを昇順/降順にソートします。                                  *
Rem *                                                                                                                            *
Rem *  呼び出し手順:                                                                                                      *
Rem *         Call クイックソート2(文書ソートテーブル() , 1 , DataCount , 順序)                                *
Rem *                                                                                                                            *
Rem *  引数:                                                                                                                 *
Rem *               引数名          型              内容                                                    *
Rem *         文書ソートテーブル String  文書ソートテーブルの先頭を指定します。                           *
Rem *         1                        Long    文書ソートテーブルの最初の配列インデックスを指定します。   *
Rem *         DataCount            Long    文書ソートテーブルの配列要素数を指定します。                  *
Rem *         順序                    String  ソートの順序を指定します。                                             *
Rem *                                                    ""/"昇順":文書データを昇順にソートします。             *
Rem *                                                          "降順":文書データを降順にソートします。             *
Rem *************************************************************************************
Sub クイックソート2(文書ソートテーブル() As String, StartIndex As Long, EndIndex As Long, 順序 As String)
     Dim Forward            As Long
     Dim Backward          As Long
     Dim Ref                  As String
     Dim TempString        As String

     If (StartIndex < EndIndex) Then
          Forward = StartIndex
          Backward = EndIndex + 1

          Ref = 文書ソートテーブル(StartIndex)
          Do While 1
               Do While (Forward < EndIndex)
                    Forward = Forward + 1
                    If (順序 = "降順") Then
                         Rem ***********************************
                         Rem *   文書データを降順にソートします。   *
                         Rem ***********************************
                         If (文書ソートテーブル(Forward) <= Ref) Then
                              Exit Do
                         End If
                    Else
                         Rem ***********************************
                         Rem *   文書データを昇順にソートします。   *
                         Rem ***********************************
                         If (文書ソートテーブル(Forward) >= Ref) Then
                              Exit Do
                         End If
                    End If
               Loop
               Do While (Backward > StartIndex)
                    Backward = Backward - 1
                    If (順序 = "降順") Then
                         Rem ***********************************
                         Rem *   文書データを降順にソートします。   *
                         Rem ***********************************
                         If (文書ソートテーブル(Backward) >= Ref) Then
                              Exit Do
                         End If
                    Else
                         Rem ***********************************
                         Rem *   文書データを昇順にソートします。   *
                         Rem ***********************************
                         If (文書ソートテーブル(Backward) <= Ref) Then
                              Exit Do
                         End If
                    End If
               Loop
               If (Forward >= Backward) Then
                    Exit Do
               End If
               TempString = 文書ソートテーブル(Forward)
               文書ソートテーブル(Forward) = 文書ソートテーブル(Backward)
               文書ソートテーブル(Backward) = TempString
          Loop
          文書ソートテーブル(StartIndex) = 文書ソートテーブル(Backward)
          文書ソートテーブル(Backward) = Ref

          Call クイックソート2(文書ソートテーブル(), StartIndex, Backward - 1, 順序)
          Call クイックソート2(文書ソートテーブル(), Backward + 1, EndIndex, 順序)
     End If
End Sub
 

「Excel変換」アクションボタン(4/4)

 投稿者:anon12  投稿日:2008年 6月 1日(日)16時56分56秒
返信・引用
  「Excel変換」アクションボタン(4/4)
--------------------------------------

     REM *********************************************
     REM *   フォントの種類とフォントサイズを設定します。    *
     REM *********************************************
XlApp.Range("A1:P" + Trim$(Cstr(Excel行番号))).Select
XlApp.Selection.Font.Name = "Arial"
XlApp.Selection.Font.Size = 9
     REM *********************************
     REM *   下記のページ設定を行います。    *
     REM *     (1)印刷の向き                      *
     REM *     (2)拡大/縮小                      *
     REM *     (3)用紙サイズ                      *
     REM *     (4)余白                               *
     REM *     (5)ヘッダー、フッター              *
     REM *     (6)印刷タイトル行                  *
     REM *********************************
On Error Goto ErrHandler
With XlApp.Worksheets(ワークシート名)
.PageSetup.orientation = xlLandscape               ' 印刷の向き(横)を設定します。
.PageSetup.Zoom = 80                                  ' 拡大/縮小を設定します。
.PageSetup.PaperSize = xlPaperA3                   ' 用紙サイズを設定します。
.PageSetup.LeftMargin = xlApp.CentimetersToPoints(0.5)                   ' 余白を設定します。
.PageSetup.RightMargin = xlApp.CentimetersToPoints(0.5)
.PageSetup.TopMargin = xlApp.CentimetersToPoints(2.5)
.PageSetup.BottomMargin = xlApp.CentimetersToPoints(2.5)
.PageSetup.HeaderMargin = xlApp.CentimetersToPoints(1.3)
.PageSetup.FooterMargin = xlApp.CentimetersToPoints(1.3)
.Pagesetup.centerheader = "&B &12 データベース使用者一覧(詳細)"  ' ヘッダー、フッターを設定します。
.Pagesetup.Rightheader = "" + Chr(13) + "作成者:" + 作成者 + "  作成日:" + 作成日
.Pagesetup.RightFooter = "ページ: &P/&N" + "  印刷日: &D"
.Pagesetup.CenterFooter = ""
.PageSetup.PrintTitleRows = "$1:$1"                ' 印刷タイトル行を設定します。
End With
On Error Goto 0
     REM ****************************
     REM *   ウィンドウ枠を固定します。   *
     REM ****************************
XlApp.Range("A1").CurrentRegion.Select
XlApp.ActiveCell.Offset(1, 0).Select
XlApp.ActiveWindow.FreezePanes = True
     REM ******************************
     REM *   セルの背景色を設定します。   *
     REM ******************************
For i = 2 To Excel行番号
If ((i Mod 2) = 0) Then
XlApp.Range("A" + Trim$(Cstr(i)) + ":P" + Trim$(Cstr(i))).Interior.ColorIndex = 35
End If
Next
xlApp.Workbooks(1).Worksheets(ワークシート名).Name = "詳細"  ' ワークシート名を変更します。
xlApp.DispLayALerts = False                                       ' Excelの警告メッセージを表示しない様にします。
     REM ************************************************************************
     REM *   データベース使用者一覧の「ノーツユーザ数」をExcelファイル上へ作成します。   *
     REM ************************************************************************
ワークシート検索キー = ワークシート検索キー + 1
ワークシート名 = ワークシートテーブル(ワークシート検索キー)
xlApp.Workbooks(1).Worksheets(ワークシート名).Activate
Set xlsheet = xlApp.Workbooks(1).Worksheets(ワークシート名)
With xlsheet
.Range("B5").Value = "アクセス権"
.Range("B6").Value = "[管理者]"
.Range("B7").Value = "[設計者]"
.Range("B8").Value = "[編集者]"
.Range("B9").Value = "[作成者]"
.Range("B10").Value = "[読者]"
.Range("B11").Value = "[投稿者]"
.Range("B12").Value = "[なし]"
.Range("B13").Value = "??"
.Range("B14").Value = "合計"
.Range("B17").Value = "合計"
.Range("B18").Value = "削除数"
.Range("B19").Value = "総数"
.Range("C5").Value = "ノーツユーザ数"
.Range("C6").Value = Cstr(ノーツユーザ管理者数)
.Range("C7").Value = Cstr(ノーツユーザ設計者数)
.Range("C8").Value = Cstr(ノーツユーザ編集者数)
.Range("C9").Value = Cstr(ノーツユーザ作成者数)
.Range("C10").Value = Cstr(ノーツユーザ読者数)
.Range("C11").Value = Cstr(ノーツユーザ投稿者数)
.Range("C12").Value = Cstr(ノーツユーザなし数)
.Range("C13").Value = Cstr(ノーツユーザ不定数)
.Range("C14").Formula = "=SUM(C6:C13"
.Range("C16").Value = "ノーツユーザ数"
.Range("C17").Formula = "=SUM(C6:C13"
.Range("C18").Value = Cstr(ノーツユーザ削除数)
.Range("C19").Value = ノーツユーザ総数
.Range("D6:D14").Value = "人"
.Range("D17:D19").Value = "人"
End With
Xlapp.columns("B:D").Select
XlApp.Selection.Columns.AutoFit
     REM **************************************
     REM *   セルデータの横位置を最適化します。    *
     REM **************************************
XlApp.Range("B5:B19").HorizontalAlignment = xlCenter           ' セルデータの位置を中央揃えに配置します。
XlApp.Range("C5").HorizontalAlignment = xlCenter                ' セルデータの位置を中央揃えに配置します。
XlApp.Range("C6:C14").HorizontalAlignment = xlHAlignRight    ' セルデータの位置を右詰に配置します。
XlApp.Range("C16").HorizontalAlignment = xlCenter               ' セルデータの位置を中央揃えに配置します。
XlApp.Range("C17:C19").HorizontalAlignment = xlHAlignRight   ' セルデータの位置を右詰に配置します。
XlApp.Range("D5:D19").HorizontalAlignment = xlHAlignLeft      ' セルデータの位置を左詰に配置します。
     REM **************************
     REM *   表に罫線を設定します。   *
     REM **************************
XlApp.Range("B5:D14").Select
With XlApp.Selection
.Borders(1).Weight = 2                                   ' セルの左
.Borders(2).Weight = 2                                   ' セルの右
.Borders(3).Weight = 2                                   ' セルの上
.Borders(4).Weight = 2                                   ' セルの下
End With
XlApp.Range("C5:C14").Borders(2).LineStyle = -4142    ' セルの右の罫線を「無し」にします。
XlApp.Range("D5:D14").Borders(1).LineStyle = -4142    ' セルの左の罫線を「無し」にします。
XlApp.Range("B14:D14").Borders(3).Weight = -4138      ' セルの上の罫線を「重線」にします。
XlApp.Range("B16:D19").Select
With XlApp.Selection
.Borders(1).Weight = 2                                   ' セルの左
.Borders(2).Weight = 2                                   ' セルの右
.Borders(3).Weight = 2                                   ' セルの上
.Borders(4).Weight = 2                                   ' セルの下
End With
XlApp.Range("B16:B16").Select
With XlApp.Selection
.Borders(6).LineStyle = 2
End With
XlApp.Range("C16:C19").Borders(2).LineStyle = -4142    ' セルの右の罫線を「無し」にします。
XlApp.Range("D16:D19").Borders(1).LineStyle = -4142    ' セルの左の罫線を「無し」にします。
XlApp.Range("B19:D19").Borders(3).Weight = -4138       ' セルの上の罫線を「重線」にします。
     REM **********************
     REM *   セルを結合します。   *
     REM **********************
XlApp.Range("C5:D5").Select
With XlApp.Selection
.MergeCells = True
End With
XlApp.Range("C16:D16").Select
With XlApp.Selection
.MergeCells = True
End With
     REM *********************************************
     REM *   フォントの種類とフォントサイズを設定します。    *
     REM *********************************************
XlApp.Range("B5:D19").Select
XlApp.Selection.Font.Name = "Arial"
XlApp.Selection.Font.Size = 9
     REM ********************************
     REM *   下記のページ設定を行います。   *
     REM *     (1)印刷の向き                     *
     REM *     (2)拡大/縮小                     *
     REM *     (3)用紙サイズ                     *
     REM *     (4)余白                              *
     REM *     (5)ヘッダー、フッター             *
     REM *     (6)印刷タイトル行                 *
     REM ********************************
With XlApp.Worksheets(ワークシート名)
.PageSetup.orientation = xlLandscape               ' 印刷の向き(横)を設定します。
.PageSetup.Zoom = 100                                 ' 拡大/縮小を設定します。
.PageSetup.PaperSize = xlPaperA4                   ' 用紙サイズを設定します。
.PageSetup.LeftMargin = xlApp.CentimetersToPoints(0.5)                               ' 余白を設定します。
.PageSetup.RightMargin = xlApp.CentimetersToPoints(0.5)
.PageSetup.TopMargin = xlApp.CentimetersToPoints(2.5)
.PageSetup.BottomMargin = xlApp.CentimetersToPoints(2.5)
.PageSetup.HeaderMargin = xlApp.CentimetersToPoints(1.3)
.PageSetup.FooterMargin = xlApp.CentimetersToPoints(1.3)
.Pagesetup.centerheader = "&B &12 データベース使用者一覧(ノーツユーザ数)" ' ヘッダー、フッターを設定します。
.Pagesetup.Rightheader = "" + Chr(13) + "作成者:" + 作成者 + "  作成日:" + 作成日
.Pagesetup.RightFooter = "ページ: &P/&N" + "  印刷日: &D"
.Pagesetup.CenterFooter = ""
.PageSetup.PrintTitleRows = "$1:$1"                ' 印刷タイトル行を設定します。
End With
xlApp.Workbooks(1).Worksheets(ワークシート名).Name = "ノーツユーザ数"  ' ワークシート名を変更します。
XlApp.Range("B5:D19").Select
XlApp.Selection.Locked = True                                     ' 全てのセルをロックします。
xlApp.Workbooks(1).Worksheets("ノーツユーザ数").Protect ' 「ノーツユーザ数」ワークシートを保護します。
xlApp.Workbooks(1).Worksheets("概要").Activate     ' 「概要」ワークシートをアクティブにします。
Redim 削除ワークシートテーブル(1 To ワークシート数) As String
削除ワークシート数 = 0
For i = 1 To ワークシート数
If ((xlApp.Workbooks(1).Worksheets(i).Name <> "概要")            And _
(xlApp.Workbooks(1).Worksheets(i).Name <> "ノーツユーザ数")  And _
(xlApp.Workbooks(1).Worksheets(i).Name <> "詳細"))                       Then
削除ワークシート数 = 削除ワークシート数 + 1
削除ワークシートテーブル(削除ワークシート数) = xlApp.Workbooks(1).Worksheets(i).Name
End If
Next
For i = 1 To 削除ワークシート数
削除ワークシート名 = 削除ワークシートテーブル(i)
xlApp.Workbooks(1).Worksheets(削除ワークシート名).Delete
Next

BeepSec = Csng("2")
BeepCounter = BeepOn(BeepSec)
BoxTitle = userName.Abbreviated + " さん"
Message = "データベース使用者一覧のExcelファイルへの変換が終了しました!"
BoxType = 0 + 48
Answer = Messagebox (Message,BoxType,BoxTitle)
xlApp.Visible = True
Exit Sub
'   エラー処理ルーチン   *
ErrHandler:
XlApp.Worksheets(ワークシート名).PageSetup.PaperSize = xlPaperA4 ' 用紙サイズを設定します。
Resume Next
End Sub
 

レンタル掲示板
/3