ࡱ> ( ' !"#$%&eh*5,-./01234)6789:;<=>?@ABCDEFGHIJKLNOPQRS]UVWXYZ[\M^_`abcdfgm}jklnwpqrstuvixyz{|~Root Entry FS2 IuǢ9Workbook%_VBA_PROJECT_CUR"`aޙ#Ctls L  !"#$%&'()*+,-/01234578:;<=>?@ABCDEFGHIJLMNOPQRSTUVWXYZ[\^_`abcdefghijklmnopqrstuvxyz{}~@2iw_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_- mm/dd/yyyy                + ) , *     UU      ! (          1  1   1 0UU@ @  1   `UU  `)Sheet1#Sheet2$Sheet3a!  ; " !"D+-|]Rod@=~D+-|]Rodؔ 6\LxڭVOA3ҊQ R!&?^, D>쥇 !IDrēÙFI7Zc cpi ;z28@Jݞ U 0 aʥkѴa:uHN* l#,QG TP/`Kq'4Ǩh7¨TY"P*SvDy>YnSDbIT@1w/uXHa*16Tr^ʷ07L@ #k1νW=Qwէ%(>[GBDZogu1/8Om;L`s`8 ۘr03  @@   Spreadsheet MigrationSin(A20)The macromigration is fun Autofilteraxc/Do not remove the following values of the cellsSALENRCOS_NRSNRNAMEcountPRICEFruitsSumBeef Orange JuiceOilblafaselee3 Qfcc  :"  dMbP?_*+%MAPS-PS PIP with APS-6-108 v49.3S 4dA4PRIV0''''P4(-N" d,,??U} $} I } I } :              !0              ~ (@~ *@#K@% % ~ ,@~ .@~ 0@*$@$@$@$@$@$@~  $@*$@$@$@$@$@$@~  $@*$@$@$@$@$@$@*$@$@$@$@$@$@ *$@$@$@$@$@$@6$@$@$@$@$@$@$@$@*$@$@$@$@$@$@*$@$@$@$@$@$@ *$@$@$@$@$@$@*$@$@$@$@$@$@ *$@$@$@$@$@$@*$@$@$@$@$@$@ *$@$@$@$@$@$@*$@$@$@$@$@$@ *$@$@$@$@$@$@~  $@*$@$@$@$@$@$@~  $@*$@$@$@$@$@$@~  $@*4@4@4@4@4@4@~  >@!$<5<<\h\\\\<<<<"0#0$@0%0&'()*9 " "  "  "  "  "  "### ?i@? # # @y@$ROh8LDA$~ $i@% %! %  %"% % % ~ % ##% @' %#$ & && @Y@@ & & @r@''ROh$DA' #'|@' %#&!(ROhDA(ROh(DA~ ($@( Y@@ ( ( ?Y@ ) )) @@Y@@ ) ) @@ 9bT:Vw\ (    `A ?@?RunTestsButton ]` 1 6$hlForms.CommandButton.1L>@7 Sheet1  v$  dMbP?_*+%"??1U>@7 Sheet2  %  dMbP?_*+%"??1U>@7 Sheet3 VBA`#ThisWorkbookSheet1$__SRP_4 .(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H` % %`h8@TT0a\D$*\Rffff*0V47d668384 xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 0 hSm4/cDU@H\Ȝ FHmGYA)Vvx,RunTestsButton, 1, 0, MSForms, CommandButtonHmGYA)VvU@H\ȜMEPSLSSs6"<<<N0{00020820-0000-0000-C000-000000000046} ` Th@% %*8Hp@x%%@x@xHXHa\D*\R8004*#5d$*\Rffff*0W47d668384x<"  ( B@1o`XAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ControlRunTestsButton, 1, 0, MSForms, CommalndP<@ Sub _Click() )Macros.in End rU  9 4a a <  `Ey0   8 <ArU H$`T @H8__SRP_5 6Sheet29~Sheet3K~TestMacros]Jn<jx4h#<]rJZ F`Q`suOax`Q`suOa]rJZME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` %  %`h8@HH0a\D$*\Rffff*0X47d668384xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2<jx4R#<@9+Doyw Fg60wH}~xg60wH}~@9+DoywME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` %" %`h8@HH0a\D$*\Rffff*0Y47d668384xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD22F4xME(6 << < $@` `|@%8@a\D$*\Rffff*0Z47d66838"" ( 20h  2 xA@o`@A&Test run started : Z  *A(traBEGIN TestCalcA(A@,END TestCalcA(Test run finished : Z  *A(enuA@.oAttribute VB_Name = "TestMacros" Option Explicit Sub Main() Zin En   P  4  >@     (&(>PR 6   .@ Hp  2 L  ` . J " 2( N`   0 L P 4p P  0 PH " 4 T P .F H .`F .R ` .xF .P  p .F .R0  .F .RH  , @P  ,@  ,0@`   , BP ,B  ,(BX ,B  ,0B` ,B    > ^@ > `h  > ^0   8  X   .L  .pL   .L8   .L . LP   . L .8!Lh!    !  8"  .P"N" ."N# P#  .h#N# .#N$ h$  .$N$ .%N0% %  .%N% .&NH&    &  ' ('8'X' `'"p' ''' ']@]X]p' RangeTest2'MYDOC A@f[6z**************************************************************************************************************************D15 %%%!G  'jD15 %%%!- Range("D15").Row AD15$%!G  'jD15$%!%%!!!' !'  G  'j  '- Range("D1").EntireRow.Columns.Count Az--------------------------------------------------------------------------------------------------------------------------D1 %%%!!!'$!!'  G  'j  '- Range("D1").EntireColumn.Rows.Count Az**************************************************************************************************************************D15 !%%!'D15 !%%B@ D15 !%%!G  'j D15 !%%!- Range("D15").ClearContentA =SUM(A14:A17)D15 !%%(M1:N2$!(A1:A2$!!G  'jA1:A2$!!#- Range("M1:N2").Rows.Hidden (set)A M1:N2$!(A1:A2$!!G  'jA1:A2$!!#- Range("M1:N2").Rows.Hidden (get)AM1:N2$%(A1:B1$!!G  'jA1:B1$!!&- Range("M1:N2").Rows(1).Hidden (set)A M1:N2$%(A1:B1$!!G  'jA1:B1$!!&- Range("M1:N2").Rows(1).Hidden (get)AM1:N2$!(M10:N12$!!G  'jM10:N12$!!&- Range("M1:N2").Columns.Hidden (set)A M1:N2$!(M10:N12$!!G  'jM10:N12$!!&- Range("M1:N2").Columns.Hidden (get)AM1:N2$%(M10:M12$!!G  'jM10:M12$!!)- Range("M1:N2").Columns(1).Hidden (set)A M1:N2$%(M10:M12$!!G  'jM10:M12$!!)- Range("M1:N2").Columns(1).Hidden (get)Az**************************************************************************************************************************B38$! G  'jB38$! !- Range("B38").Orientation (get)A B38$(B38$! G  'jB38$! !- Range("B38").Orientation (set)AB38$! G  'jB38$! .- Range("B38").Orientation (set = xlDownward)A B38$(B38$! G  'jB38$! !- Range("B38").Orientation (set)AB38$! G  'jB38$! ,- Range("B38").Orientation (set = xlUpward)A B38$(B38$! G  'jB38$! !- Range("B38").Orientation (set)AB38$! G  'jB38$! .- Range("B38").Orientation (set = xlVertical)A B38$(B38$! G  'jB38$! !- Range("B38").Orientation (set)AB38$! G  'jB38$! .- Range("B38").Orientation (set = xlVertical)Az**************************************************************************************************************************B39$!G  'jB39$!- Range("B39").WrapText (get)AB39$(B39$!G  'jB39$!- Range("B39").WrapText (set)AB39$(B39$!G  'jB39$!- Range("B39").WrapText (set)Az**************************************************************************************************************************E39$!G  'jE39$! - Range("E39").MergeCells (get)AF39$!G  'jF39$! - Range("F39").MergeCells (get)AE39:F39$(E39$!G  'jE39$! - Range("E39").MergeCells (set)AF39$!G  'jF39$! - Range("F39").MergeCells (set)AE39:F39$(E39$!G  'jE39$! - Range("E39").MergeCells (set)AF39$!G  'jF39$! - Range("F39").MergeCells (set)Az**************************************************************************************************************************SINCOS C41:C42$B@C41$! =COS(A20)C42$!Sin(A20)G  'jC41$! =COS(A20)C42$!Sin(A20)-- Range("C41:C42").Replace MatchCase:=True ACOSSIN C41:C42$B@C41$! =SIN(A20)C42$! =Sin(A20)G  'jC41$! =SIN(A20)C42$!Sin(A20)-- Range("C41:C42").Replace MatchCase:=True ASINCOS D41:D42$B@D41$! =COS(A20)D42$!COS(A20)G  'jD41$! =COS(A20)D42$!COS(A20).- Range("D41:D42").Replace MatchCase:=False A =SIN(A20)D41$(Sin(A20)D42$(z************************************************************************************************************************** B39$(B39$! G  'jB39$! '- Range("B39").VerticalAlignment (get)AB39$! G  'jB39$! '- Range("B39").VerticalAlignment (set)A B39$(B39$! G  'jB39$! '- Range("B39").VerticalAlignment (get)A B39$(B39$! G  'jB39$! '- Range("B39").VerticalAlignment (get)AB39$! G  'jB39$! '- Range("B39").VerticalAlignment (set)A B39$(B39$! G  'jB39$! '- Range("B39").VerticalAlignment (get)AB39$! G  'jB39$! '- Range("B39").VerticalAlignment (set)Az************************************************************************************************************************** B39$(B39$! G  'jB39$! )- Range("B39").HorizontalAlignment (get)AB39$! G  'jB39$! )- Range("B39").HorizontalAlignment (set)A B39$(B39$! G  'jB39$! )- Range("B39").HorizontalAlignment (get)AB39$! G  'jB39$! )- Range("B39").HorizontalAlignment (set)A B39$(B39$! G  'jB39$! )- Range("B39").HorizontalAlignment (get)AB39$! G  'jB39$! )- Range("B39").HorizontalAlignment (set)A B39$(B39$! G  'jB39$! )- Range("B39").HorizontalAlignment (get)AB39$! G  'jB39$! )- Range("B39").HorizontalAlignment (set)Az************************************************************************************************************************** 4 Asuccesfully completed'nd A~Not succesfully completed'nk` n RangeTest2Alo@8ųAttribute VB_Name = "TestMacro5" Sub RangetT2() Dim 8Result As Sng2his .Pas sCoun`In`teger= 0 t>x K2Log_BEGIN &A'*v BIf Application.Workbooks(1)she etl("D15").Row15 Then #+ 15Call ASSERT((:), "- y("$$~"@{5740 0 *A SR+R - '-?tMIctive0Column@48pBBgeZ;[%TN Bb.kY$NC߆??1%CwsEntireA .Valu4s Md A1eeDu I"r +3!! 1`)!!f2e-!ue!Ck0c+ " B1`Ͽ,_F'5s.~2O2Mobooz* &b b^Yf P&%#Apsow*sOOOOO2OF^ MOTCellUyAv:8!C@learCoPnts <> Cs OPƻzAo߰!"5qcY/ce=SUM(A14:A17)RcSSd6M1:N2 `ws.Hidd= TruecwN(A1:A)4444Oe (set)k aflas pNot D) ##6OMO1I B/bNKس /u )_B(nge("A1:B1").Rows.Hidden)) Then PassCount =,+ 1  Call TestLog_ASSERT((Not (Ra@, "- B"@M1:N2"~(1) (getx)")h 87).ColumnTrue/ IfM10:N12m 68wG,v [(svsflastv$=x== wwMwI$0:R[:ɳex ;#yR&?yBx< _ÃGy '*?3?0 EFB38Orient ationxl@Horizo l)vG> K),z Downward/<> M ofo=@%66B BIF8Up7IVb+ O 41  +,73 = xlC4Vertical?7Ð*2d/Ǘ6/j"oo ///Ңl) C& o^bݿ  V!RnϾ   KB 1{/*!R 190WrapTex'False00ߏ00p 9߁B3/ / / / 1! s8u__JO_9"<޿-(* T If (Range("E39").MergeCells = False) Then PassCount\, + 1 Call TestLog_ASSERT(, "-  (gept)")aFV, XX:+TrueoǁR{^cslc+TM)b+bB'c?Ǜݿc?y1C!2G '*??0B=BC41:C42@zReplace What:="@SIN", mDenaCOS`SearchOrder:=xlByColumns, MatchCase:=` !%  Formula"= (A20 And ValueSi>n߁")!Lq((! //#-/#2//./ /"=/s/("W@ o/e/9D0D00000BB)0 /0O("s &02/0Ȋ?%0?*0? ,0:/0A?011)J6) UP BVertical`AlignTLxlVCUer > Sd#_Z<> eBottomo!o! x  8q`0so c y nter- y(s~OJustifyS).???˯P3TopS  4####x1111P =j s?1gsLcSo_nTopOAesCount + 1 Call TestLog_ASSERT((Range("B39").VerticalAlignmex@<> xlVTop), "-  fhj(getx)")vz If r=qBottom) Then Pas= w:܎4%osok'*v BuHorizont+Iv?HvCzerE0kkBLeftk,k(裑J8e9sN{;Justify@). H3I$M_ ter$?A1'A%! 3ARight?A>A$q$N dAA%?A?A?AC _E ?Aal\o oae a_|@{-O t`tr / OO @o//_UxH@"( A I52 PartOK`(thisttResultp"succesfully completed" Else/_!FAILOstGNot "HEnd0 ExND( (27 2#A1SubC ((B08@HPp x " "    " (0,@px P  $ $8 X `px " , "   8@X` " h p "       " (08P " X`p " x B "     0 H $P x      "  \ f8             ( 8 @ H "P  X h p x 0  / { Declarations shared with MS Office API tests]odt ]ods ]odp]odg8 ]@( Global vbExternalCall As Long.c]P]\` e/ } Declarations shared with MS Office API tests. BEGIN: *** { TEST API (PortableHelperAPITest)]@x]@ ]@]@]@  ]` com.sun.star.beans.PropertyValue$''zPH'i8x X Z'Vd'Vki X Z'\d'\kix] B'b `'B D(Closing log, future log output going to ` A@(A@.+Reopening log, previous log output went to b A@(ko D 'D" Establish free file handle B 'Bk B Dkx D do`P]](com.sun.star.comp.framework.PathSettings$' ! ' / HelperAPI-test.log 'i  'dc:\HelperApi-vba.log'ki F D F NOT COMPLETE k8 h'F'H]` J TEST START : h 'j jA@(kox FTEST ERROR - no test begun: h A@(d F hTEST ERROR - found test end: h  , expecting test end F A@(d ] TEST n  : h 'j J p$r p j ( p ). 'jk jA@(kk'Fop0 FTEST ERROR - no test begun: p A@(d  ITEM p A@(ko p$rFAIL hA@l՜.dFAIL h  :$4xME(6 << < ʐ68 HP @:` @B @F @H  @odtodsodpodg\%+x` ` +V` iX hiZ +\x`8 iX XiZ  ^` i``b (P`0 id+`` `+`  fx`@ih`j l0`inihip`j t `p ip v ` ihip x `P ihpip z ` i|ip ~p `P ip `ip &0`i + p`  ( `i iip`  `h ih ip .` ʐ2 Hʐ4Hʐ8(H>xHD @J @xp 0 0(  xx ( 8 ` pPxP 00  1 a\D$*\Rffff*0`47d668f7 6 8HXh x $  6 4 0 8@H P BX`h.pB   B  (08@ " HPX`h8x< " * P `hpB  6pA@ltko p$rOK hA@ldhOK h pA@lkHo@ p$r |'pd | ( p ) 'pk pA@to'HFAIL pA@zopOK pA@zo 'Jop0 J' iXp] Assertion '  OK 'd'H FAIL 'w k $r  :  'k J p$r p  ( p ) 'k`  J A@tk8o0( U SBA does not preserve "optional" status of a parameter; it is evaluated then passed,` even if the called routine (e.g. TestLog_OK) *also* has considers the parameter to be optional. p$r p H hA@xd  hA@vEkd Hote h pA@xd h pA@vkko DV'Do END *** } Test API, ***** MSO MACRO RUNTIME MODULE END *****0Attribute VB_Name = "TestLogMacros" ' { Declarations shared with MS Office API tts Global C\t FILE_E@XT_DOCodtDXLS"y"PPT"pEVIEg" PrivatheCalcApplic As O`bjects7vbExterna llLongkPARAGRA@PH_ENDS XDIR_SbETOR]\K' }.' BEGIN: **B*TEST(PortableHelper)Z~HELPER__LOG[H_FileNoIntegerLast ResultA Boolean &A$$_VERBOSEL Func isOpe$noB()J On Error GoTo notoF Dim a Varian@zba`Cre~("com.sun.star.b's.PrrtyValue"@RTrue ELxi( : Fals nd 5 8MAreEqual(x1,, x2 ? If = The@W-EB"!a!E`IfjqNot  aA) o% | Sub !0_Setb](f^nA-Cz> AHtmp A= jCm= g6` (m= 0 Comment "Closing log, futurea output goto " +a@QA3 Reah pr@evious) w @!E,|-(nS$-"" &FreBe ' E`xblish f" handl 9/4""m/!#Defa2CaaA-C F O4#k?'a=, D'Cr`+hqc+ aYPath_t;sA-%pQC2AWorkDirqory/= cBUUnopServ@U p.fr6w.OV@= . :`B+ "/0"q-q.3`xE?Yy$]K! FWZ"c:\ pi-xvba E% L(! 5 Ff{//'eNo,60 NOT COMPLETE A-5  4= u1(b*/,}cs" 1 START :Q; Va qSubL2 ,B, Op!`XoI "RERROR -" begunO !poQ &!?11fou e ndK`i" , exppEF `]!# 31!p?+% A QIsMiswY'eT s(  ).I(bM d+" E._ITEM **_ *&*/ߪn_%" ~ =__FAILR/;/;'p?/!`3PC "=!"wB5me?D?_OKOp|tional testComment As String) If IsMissH() TXhenFNTLog_END "OK",NameFElsZ7:nd If  ESub  rPar(status, Op /#sl= 7S q + " ("y )""vpI8TEM'FAIL({PLastResult = Fal Z< "DyGkY%OK$ASSERTSetVerbose(vBooleanĶTESTLOG_VERBOSE@= ʚFuncFcG)qEL  2(asser 0iLId!S$DimJMsggáS= "AfDT = Truel% \8c 3P?ar bP f No2t zIdMR :e t+"IdR FA  T@C@""&ma2w Or >(z SSUMMxARYO' SBA does not pre@\ve "o" of a par@ter; it is evaluated tTd,c'en ifa callroutine (e.g.fyOK) *@o* has conside rs" to be E. @.T.Kd@=Ld`e._0jBSa? @e d`RG t&a  me|1 qO stQ  )tClA_$^ #ileNo;@0j_ ' *** }r API Rem @` MSO MACRO RUNTIME MODULEC]       rU $`,`//,`//(` 0(!`)0$I`$q`(`A00` aA00( `0, `A0,9 `A0,a `0( `(`(`#$`0)` #,Q`A0$y` n0* pHd VBAProject4@j = r a\D J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\Syst em32\e2._VBA_PROJECT odir__SRP_0 v __SRP_1|ment2 IsMissing (TestLog_ITEMh (TestLog_FAILG (TestLog_OK(TestLog_PartCommentTZstatus+(TestLog_PartFAIL(TestLog_PartOKWLverbose(TestLog_ASSERT~ assertionStestId testMsg(TestLog_SUMMARY] TestMacro5tthisTest PassCounte Application* Workbooks WorksheetsRange RowActiveWorkbookColumni EntireRowValueKCount1#8Columnsp9Count0vCount2$8 EntireColumnRowsUSheets  CellValue@ ClearContents{Hidden]flasep Orientationw xlHorizontal xlDownwardtxlUpwardl xlVerticalWrapText% MergeCellsکReplacefWhat Replacement SearchOrder xlByColumns MatchCaseFormulaqYVerticalAlignmentʡxlVAlignCenterxlVAlignBottomuNxlVAlignJustifyf xlVAlignTopHorizontalAlignmentS@xlHAlignCenterY xlHAlignLeft-xlHAlignJustify_ xlHAlignRightB WorksheetRunTestsButtonWorkbookClickModule1btheCalcApplication (isOpenoffice} notopenofficeWaX CreateObject (DefaultLogϝ (OpenofficeLogf# PathSettingsbWorkingDirectoryUcreateUnoServiceWorkZ1(TestLog_ASSERTGetVerboseN _B_var_call_Defaultjca\ _B_var_cam SetVerbosefTcestLog_ASSERTSetVerbose8destLog_ASSERTSetVerbose] ! #  1~@$@!@ҘA@ Sheet30Y47d66838# Sheet3RHTestMacros0Z47d66838TestMacros`LTestMacro50]47d66838TestMacro5tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\Microsoft 6\MSO9.DLL#  9.0 Ob LibraryCMSForms>SFrms3D452EE1-E08FXA-8-02608C4D0BB 4POsEOFM20 'B \&/;"1fmAm00}#0m# 50 !A7085@7A-B16B-439cB0D-0C0353B6D40 DOCUME~1\VITUOSALOCALTemp\Exce l8.0\U.e״HBm7?; _S Fb+A9]s*5FzRh?ףSFߕpGP\:call Excel+ VBAWin16Win32MacVBA6# VBAProjectstdole`OfficeuMSFormsC ThisWorkbook$ _Evaluate Sheet1RunTestsButton_Click TestMacros(TestMain Sheet2 Sheet3(Main,(TestLog_ASSERTSetVerboseL(TestLog_Comment% Time (Rangetest2t (TestLog_Closew TestLogMacros (FILE_EXT_DOC>K (FILE_EXT_XLSӵ (FILE_EXT_PPT (FILE_EXT_VIS (PARAGRAPH_END*vbCr$ (DIR_SEPARATORHELPER_TEST_LOG_DEFAULT HELPER_TEST_LOGTestLog_FileNo\TestLog_LastTestTestLog_LastTestResultTESTLOG_VERBOSE_EqualUnoObjects.o1q^o2r^EqualRangePosition'MsgBoxR (TestAreEqualɹx1_x2_ (TestNotEqual @(TestLog_SetFileNamefilenamejtmpcommentHs (TestLog_BEGINwtestNamesj (TestLog_END` testResult testCom I  ) AY I q 1 Y y  1 a 9ayaqiqQ VBAProject ThisWorkbookSheet1Sheet2Sheet3 TestMacros TestLogMacros TestMacro5F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  Q0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Y@0FC:\WINDOWS\System32\stdole2.tlbstdole  QPL-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice Y`.E .`M C:\WINDOWS\system32\FM20.DLLMSForms 9pZԅpkC S7C:\DOCUME~1\VITUOS~1\LOCALS~1\Temp\Excel8.0\MSForms.exd 9 doc xls ppt vis   \ (C:\HelperAPI-vba.logFU@H\Ȝ FHmGYA)VvDF Worksheet{lFWJORunTestsButton@2iw