ࡱ>    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFHIKLM^OPQRSTUGWXYZ[\]J_`aRoot EntryF@,j܈0Book VCompObjm_VBA_PROJECT໨܈`m܈ F!Microsoft Excel 5.0 (kalkylblad)Biff5Excel.Sheet.59q_Oh+'Oh+'0HPXpx Hans Alshoff'Microsoft ExcelChart&Tools&WindowVisual Basic Module&Tools&Window\ H8aeefcd39 \dirNSummaryInformation(666$dpt$`p$ |T$ p46D6d64Dd,,v,``,0,``d,,`df` ,,`d,v,$ p6@N,,$ p6@N,,,L ((4Dd~<,,$$vd@vd@ |t$ pd6T6DdTD,t$$v d@v d@ |$ pD6T6dDTd,t$$vd@`dp4$ |$ pD6T6dDTd, !0lP0, !0l,:(l|D$ pT$0,(DT,l|4$ pD$$$$t$$t$ND,$,L <"$ (,0DTdN,,dv^4,`dp$ |$ pz6j6 zj,`p$ |$ pj6z6 jz,`dp$ |$ pj6z6 jz,v,LFNjz@$`dp$ |Z$ pj6z6jz,$`d,,dv^,Z?$`fp$ |$ pz6j6zj, 0;-$`dp$ |Z$ pj6z6jz, 0;-$`p$ |Z$ pj6z6jz,@$`dp$ |Z$ pj6z6jz,$`dp$ |Z$ pj6z6 jz,$`p$ |Z$ pj6z6 jz,$`dp$ |Z$ pj6z6 jz,v, Kryssruta 17$$Z QANALYS.xla$ pj<6z 6J6*: RjzJ*<, |:$ p6*6&*,,L*Jjz,,dv^,``\,v d@v d@`dp$`dpx$  |$ ph6X6($ |H$ p86hX8(,` d ,,v:,L (8XhFD$"@P 866 $ \`Hj8"`Z"JV@n\dn"n\ N T8 ,,dv^,``\64X4< d 84=&H>C H4=\zX,,$ QANALYS.xla$ p<6p 6*p,L@Xp,,, QANALYS.xla$ p<N,| Kryssruta 9$$t 6l6L\ R<lL,\$Redigeringsruta 10$|$t< 6L66,r6 2P>Ffv,.d@(d@F6f6v>6,r6 4P>Ffv,,d@*d@F6f 6Ff,2bHrV4bHr6FDf26Hr&46Hr6vDD:,d ,24H,d ,,,,.d .,0d 0,,B.,,,^h,0<bH,,d@&d@6F6f>6,r6 2P>Ff,.d@(d@6F6f>6,r6 4P>Ff,2bHr4bHr&6DF:,d ,24H,d ,,,,.d .,0d 0,,,,b(,0d"r ,,dH,,< >Ffv   xx`0 ```` ࠠx`` b p F 8 T$`4```( , H^h~```SlE*\R0*#6*\R1*#0*\R1*#1*\R1*#81*\R0*#1*\R0*#2*\Rffff*aaf066c53\ ( (T($`(0j (<t(H (T(` lJ xT ` j t  " $ & ( * , . 0 2 4 ,6< X8 d8 d <P pT| V@p t   |ɀT |4|*C@ ,t <Dl l PSetL ɀT d  *?@   JJ*6~ T ` j t  @  t   ( b @ L pn| z  D8 @ $ 4 |F @ @ Tdt @ bp  @4@J T X*p"~ `bl jdo tx~s @  ~ x`, 0dxX|lH p`XD`| ,$T<(4( <Tz|DD< P,P ( <d@X4|dp$44@Lt t HH4 (p p<      `pX>MEfh/6w7^/6 *w78]/6$F`/60Tw7<b(j/6Hp w7T~/6`r/6l:m/6x*4444h $,4<DLT\dlt|B $ , 4 @ L X d>p>  $Z$Z :D8Z`   $Z0$ZT*x   $ ,0B48HXhx       >> 08@ T`p$Z$Z:8Z  0 <LPTXhx$Z$Z* , 8HLPTdt|"XB""     ( 0 8 @ <H : 0\ 2 6b   &T( P T <xX   *X   <z   *V H L 6dP 6b   (T   4h :0 D H J\ J P  *  :( :d F F  08 &T`Dt&\"P  &4hL&ZT,`|& 4h Td|  T&Z   (X@ TD &Zd  0f\   " <( ,4"8<DL \@h ">p<r$6n`:p8j2f 8j@ xB<"6d0`46dd "&d&d,j$&P(lhRf "  < D LT:\(Pt2h0\2f4hLd2h4h dT2fdX&\4nl *X.Z (TDH.XL |2`.Z  ,Z 0*V<hlpx|4p  $( 8 RD b   P$ `t &,  ,0 < @ RRP     &   &    ( "!:!,Z4!,T`!,T!!,T!,T!" """ "&R$"L"P".***----------------------------------------***.***Programmed by Hans Alshoff, Sweden 2001 ***.***----------------------------------------***-Constants---------Y Y  Y Y $Y 0Y <Y HY TY`YlYxYYYYYY YYjYYYY Y`Y Y,+YdXYdYpt T' T'  d +    $T+  'J'T t!'` !'j t!' !' !' ` t!!  't j !!  '' j' gr non maj @ ` t $  t!%!$&' !%!$&' !%''     T 'T  J 'Jggg  '!  ' ` gr vanlig ` t $ ' t!%!$&' !%!$&'   T 'T'  J 'JTggg   '  ' `g T J Td'4`4'4'gTet| T' T'  dd +     $T+  'J'T t!'` !'j t!' !' !' ` t!!  't j !!  '' j' gr non majma @ ` tt $  t!%!$&' !%!$&' !%''     T 'T'  J 'J'ggg  ''  '' ` gr vanlig ` tt $  t!%!$&' !%!$&'   T 'T'  J 'J'gl_ggSo  ''  '' g J$/ T$ ' 'e @@ $' e YYYYYY(Y4Y@YLYXYdYpY|YYYNA,'n+'Application.International(xlListSeparator) QANALYS.xla$d 0 Kryssruta 19Dialog17 %(Dialog17 !*Redigeringsruta 5Dialog17 %!'jik jMust specify input worksheetA@ t!gRedigeringsruta 7Dialog17 %!$&'` ` Must specify number of witnessesA@tgdiRedigeringsruta 11Dialog17 %!$&'T TMust specify number of variantsA@tgdiRedigeringsruta 14Dialog17 %!'TRedigeringsruta 9Dialog17 %!'t7 tMust specify output worksheetA@t'g Kryssruta 19Dialog17 %! 0 t$!B@&gst @ ` Dset later Worksheets(Kvant_Kalkylblad).Columns(i).ColumnWidth = 4.57t  @ t$%( 0 @ t$%(rk @(K$skapa rubriker p kolumner och rader4. @ `t @ j$%! @ t$, @ j$%! @  t$, @ j$%!! @ t$%!( @ j$%!! @  t$%!( @autopassa kolumnbredd 4(@ @ ` @ t$%B@ $ @ t$%!HzG@ paHzG@ @ t$%(g` @ 4(@   n  '%g Kryssruta 15Dialog17 %! 0'@ ` j$%!'n T ` j$%!'` '@A1'just a valid reference$A1'not to be used gval av kalkylbladsfunktion Kryssruta 17Dialog17 %! 0 icke brkColCompareText'va`av ColCompare'onbrkutg17  `   j$%!' T  j$%!'lC @ `  @ @   t$,` @ j$%!' T @ j$%!'=  ( @$ n j !  :  n j !  :  n j !  :   ) @   t$%(n0;- @   t$%(g @ :g m knYY @  @  @  `$%   T$,  'tg @kDYd Yp @  @  @  j$%!   T$,  'Tg @k|Y @ @? @     T$%(0;- @     T$%(0;- @     T$%(̭@ @      T$%(  @     T$%(   @     T$%( (  @      T$%(  @ Kryssruta 17 QANALYS.xla$d% %! 0 T$!B@&g$kY @  @     T$%B@ ys @     T$%B@  @      T$%B@ @ @kys  Y4 Y@TYL% 4 @ T$%%'` J T T$%%'j 4 @ T$%%'t T! t't T! `: j$   t$   C@ m$kX-vriga variabler----YxYYrknare i nya bladetY t''' QANALYS.xla$d 0 Kryssruta 177 %( init dialogabRedigeringsruta 167 %!bl5Redigeringsruta 167 %(gaRedigeringsruta 77 %! Kryssruta 15Dialog17 %!  Redigeringsruta 9Dialog17 %!Redigeringsruta 77 %(gg!Redigeringsruta 107 %! Kryssruta 15Dialog17 %! 0 Redigeringsruta 9Dialog17 %!Redigeringsruta 107 %(gg!Redigeringsruta 57 %! Redigeringsruta 7Dialog17 %!Redigeringsruta 57 %(g%7 !*Redigeringsruta 57 %!$&'  Must specify number of witnessesA@!tgReRedigeringsruta 147 %!'T  TMust specify output worksheetA@tgRedigeringsruta 77 %!'`es `(Must specify input worksheet for non-MajA@tTgRedigeringsruta 107 %!'j't t' Kryssruta 97 %! 0 jMust specify majority worksheetA@ t%g'di`ri'a gRedigeringsruta 167 %!$&'A@ @ justera fr ny tabellradpe   t   't t''g    @   `$%       T$,(#   `$%!!       T$%!(  ',` placera verst   `$% t      T$,   `$%!! t      T$%!(g  @ t      A@(   @ t      A@gce sortering t      t      A@*Re t'  '  @ 4(@ReA@ ng 4(@g m%k"'Hndelseprocedurer fr kontroller QANALYS.xla$d Kryssruta 97 %! 0Redigeringsruta 107 %(Redigeringsruta 107 %(`Redigeringsruta 107 %(Redigeringsruta 107 %(gmk ` QANALYS.xla$d% B@* kta2InitSheetColumnsNumberFormatiHorizontalAlignmentxlCenter AutoFitSortTabley1x1y2x2StartRangeEndRangeSortrangeAddressRangeSortKey1Order1xlDescendingHeaderxlGuessOrderCustomMatchCaseOrientationxlTopToBottomstartjKolDialogSheetsShowApplicationScreenUpdatingNY.XLSauto_openHeltalUObjektasVrdeStrngintegersdelasRefArgListArgumentListRowColumnNRows#CountWorksheetChrEditBoxesColumnWidthCheckBoxesFormulaValueValxlOn_B_var_Str_B_var_ChrQANALYS.XLSwokbooksWorkbooksBOOKNAMETablesCompMsgBoxDatabassKryssruta9_KlickaModul2EnabledworkboksLockedWidthMakro1SheetsSelectSelectionxlOffxlOfCopyPasteSpecialRPastexlFormatsOperationxlNoneEndSkipBlanksTransposeCutCopyModeMakro2FontNameFontStyleSizeStrikethroughSuperscriptSubscriptOutlineFontShadowUnderlineColorIndexxlAutomaticautofifMakro3ClearContentsauto_closeformatLabelsDecDelimitInternationalxlListSeparatorddSendKeysTimeclicktTimervbOKvclick2QANALYS.XLA0P!  `@A@@P* `@A@@P*gg $Input data for quantitative analysis]b&Q2@A@gg gg Result]=PIA@@,/6 "     dMbP?_*+%i..&ASida &P".??U i@] R3A@@,/6vg MS comparisons in tables of descending order[,K2.XLS]j 'A@@/6nvg Number of witnessesav g ]R $ *@A@]j$A@@/6 wg Worksheet (non-Maj)aw ]R $4@A@]f A!@A@wg wg xg Input data] ,% A@@xg 6xg " wg 9ig oInclude majority worksheet]R +:@A@]b  #A1@A@xg xg Result]h  &%(A@@/6 @T0xt@ ^hrJ&4tJRhHTT `jJj +L ^4".b8D~<PZd,nxʝ˝yDi^^b1ccca13 g= v&09f"!*u2on)T6@_Feaq͠L`@PVr q`bתhun&po^tr`xS   ˂e+&&KB J`g&)7C:Řzz ,gP4aT nBgNbT\p7hm*x'HRKni**zm6+ &&&$&.&q2&@&{B&J&j^TlXo\`tl|Br&6_|&p9RS@& &G&O__P__c  "Oo> M.Y6|@atLwVbSa(pavztRK*! rV & /Noe&zW_ iU0v"K~, 0:̍FqYRKZ`dj\;vaBa&Rq$jtQ&۪ hNC| XZ'(.ƿ4K:HUDNyXblu͉jұnzD|U"VO@ E|{w,7#8,@}HTbW \rNvkExX%6ExcelVBABok2Modul1_EvaluateAlternativExplicitAntal_SammaAntal_RaderStartRad1StartRad2SlutRad1SlutRad2SlutKolumn1SlutKolumn2StartKolumn1OStartKolumn2StartKolumnMajatr1r2Indexvrde1tvrde2_Savrde3aomr3eEjMedvregrnsundregrnsFunktionColCompareMajColGrnsARGUGrns Nstaomr1radomr24Kolumn MajOmrRaderAntalOmKalkylbladCellerIckeSlutAnnarsHeltalsdelColCompareTextStrLetterSomVrdeTkniAnalysDlgAntal_VarianterAntal_ManuskriptaVariant_Kalkylblad5Kvant_KalkylbladeUteslutStartAdress1SlutAdress1StartAdress2iSlutAdress2StartAdressMajiSlutAdressMajColFunktioncolDialogbladlistaVisaRedigeringsrutor SoTexttVrdeKalkylbladlistaKolumnertKolumnbreddLngdKryssrutorHxlPBlad_NyttBlad_1mBlad_2HStartradMajTablesPerRowjStartKolaGetData1inoyxWorksheetsiCellsGetDa   Worksheet WorksheetToolsToolsQanalys>Quantitative analysisComparisons in tables AnalysDlg*Comparisons in tables TablesComp&Tools&WindowChart&Tools&WindowVisual Basic Module&Tools&Window\ Tim Finneyff B _VBA_PROJECTKryssruta9_Klicka=x$e<X@"1Arial1Arial1Arial1Arial1Arial1Geneva1Helv#,##0\ "kr";\-#,##0\ "kr"!#,##0\ "kr";[Red]\-#,##0\ "kr""#,##0.00\ "kr";\-#,##0.00\ "kr"'$#,##0.00\ "kr";[Red]\-#,##0.00\ "kr"<*9_-* #,##0\ "kr"_-;\-* #,##0\ "kr"_-;_-* "-"\ "kr"_-;_-@_-<)9_-* #,##0\ _k_r_-;\-* #,##0\ _k_r_-;_-* "-"\ _k_r_-;_-@_-D,A_-* #,##0.00\ "kr"_-;\-* #,##0.00\ "kr"_-;_-* "-"??\ "kr"_-;_-@_-D+A_-* #,##0.00\ _k_r_-;\-* #,##0.00\ _k_r_-;_-* "-"??\ _k_r_-;_-@_-#,##0" kr";\-#,##0" kr"#,##0" kr";[Red]\-#,##0" kr" #,##0.00" kr";\-#,##0.00" kr"%"#,##0.00" kr";[Red]\-#,##0.00" kr"96_-* #,##0" kr"_-;\-* #,##0" kr"_-;_-* "-"" kr"_-;_-@_-<9_-* #,##0_ _k_r_-;\-* #,##0_ _k_r_-;_-* "-"_ _k_r_-;_-@_-A>_-* #,##0.00" kr"_-;\-* #,##0.00" kr"_-;_-* "-"??" kr"_-;_-@_-DA_-* #,##0.00_ _k_r_-;\-* #,##0.00_ _k_r_-;_-* "-"??_ _k_r_-;_-@_-FC_-* #,##0.000_ _k_r_-;\-* #,##0.000_ _k_r_-;_-* "-"??_ _k_r_-;_-@_-0;\-                  + )   , *    Normal_Dialog1Tusental (0)_Dialog1Tusental_Dialog1Valuta (0)_Dialog1Valuta_Dialog1j Dialog1Dialog2jDialog3 `Modul1   3 k  dMbP?_*+%i..&ASida &P".Da (0??zU} D i"@]l ^4A@@/6bg Quantitative analysis'w ]jn$A@@/6@cg Worksheet (input) in ]R $7@A@]j%A@@/6cg Number of witnessesiv ]R $7@A@]h n$A@@/6xdg Number of variantsl ]R $7@A@]l 9M%A@@eg .eg "Non-Majority count]z  3!A@@$/6eg Exclude following variants (3,15,34) $]R 1M!@A@]h (1+A@@/6 fg Worksheet (output)n ]R 1(D+@A@] -D0%A@@fg fg "0Output in fractions, e.g. 7/10 (percent default)]  Q$@A@Vgg |gg Worksheet (output)n ]R %&6(@A@]d +$-A@@/6yg Tables per rowU h{]R %+--@A@]XE O CC@(/6tzg $ OK g g ]\E OCC@(/6zg $Cancel( ]` 7&@)%A@@&{g .{g "Clear]n>A@@g ؋g (If checked, include MT  Fxg x]p.A@@g g in "Number of witnesses") 0fg 0f> "    3[  dMbP?_*+%i..&ASida &P".??U i@]` 1A@@ /6g QAnalys...; ]X%CC@(/6g $ OK ]r . A@@/68g Designed by Tommy Wasserman  ]b'nA@@ /6g Sweden 2001 N ]\.@A@g ]\n.%@A@]p *A@@/6g Programmed by Hans Alshoff > "  &ASida &P"F6??@>