ࡱ> 5$ %  !"#2/'()*+,-.01C[46789B;<=>?@A3YEFGHIRKLMNOPQDSTUVWXZ\]^a_`bRoot Entry FģS00!lZ)Workbook_VBA_PROJECT_CUR"}< ͙}<VBA}<}<  !"#$%&'()*+,-./013456789:;<=>?@ABCEGHIJKLMNOPQRSTUVWXYZ[]^_`acefghijklmnpqrstuvwxyz{|~ ɀ\pgymh4a Consoni Rossi Ba=EstaPasta_de_trabalho=h>><X@"1Verdana1Verdana1Verdana1Verdana "R$ "#,##0_);\("R$ "#,##0\)% "R$ "#,##0_);[Red]\("R$ "#,##0\)&!"R$ "#,##0.00_);\("R$ "#,##0.00\)+&"R$ "#,##0.00_);[Red]\("R$ "#,##0.00\)=*8_("R$ "* #,##0_);_("R$ "* \(#,##0\);_("R$ "* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)E,@_("R$ "* #,##0.00_);_("R$ "* \(#,##0.00\);_("R$ "* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_) h:mm:ss;@                , *  + ) ` Plan177Tcc ɀ   dMbP?_*+%"~?~?U>@7Plan1 CUr#F0黬F " l >PF  .8     X !x@S ,R (  .h  0!@` h  HS <M0   .  4  JP5p *s0vX<i  "C( >u@y@0c0 4e>v >h <  %  %  ,p  %  $X  $h  x F  ( X op](@Xp $ $ $6kx ( $ * $ , & ( * ( *+6yd$D!B@H%HA@k , * ( ( *$6 ( ,$. * ,$. ( *+6H]HPp p0InPut$D(H Dim Entrada As Varianth Entrada = RgA@Pp8 B@or $ &.Hj , &vents , * D * $or i =p]Hx A@rCaptiox$@ !8!$(& 6$D!8!$(4$DResults calculated for * of  $ cities. (Data read from * of  $ cities. ( <%DB@: <%DB@:@ 6$8 $  $ $8$D,H8 !0!2 '$ !4!2 '& * , %8 * ,+.8$D!!. 6$D!8!$(4OutPut$D($D!B@H$( * $ A@ *$DH DoEvents ~ (t$8  (t * %8 *$D,8,8 * %8 * $D,8 ( * <!D!2 *k <%DB@ <!D!2  ( Formating! (0( Worksheets(1).Range("a1").Value = Now( Worksheets(1).Range("a2").Value = Now( Worksheets(1).&H/xMEd(<<<<< <<6 << (H<$<,<0<4<8<<<@*4 TheA\MsgBox "Because MS Excel has6 col) in each worn," & Chr(13:)_2@"for now this routine can only obtaresult s a maximum ofB/c. Plea,reduce@e number C you ce@ and try ag@%.", vbCrcal, "~8ld C{8End; If App@at@x.Calcul @fxlManualB fActiveAbookF.è.CoAy>T 1 mFWi2 To , (DisplayAler`= F8als $(2).DeletJ #>- TruFNext iBE'Add after:="w"[{a$ .rSct ' kB("a1").ValuNow3B !En tradaVaprian@ a=CUser9m1.Sh@e0H $()A ByReCi Bo L,!Co CBcB @ @Label1G"Data read from fix"lLDm^ j C @ $(i, j)(i + 1c@DoEvosbBj,CC*121<= 02000e&R("$&Lb+D͢RhLB@Ao r#`@! iCR(h`&`@$i:Rce; ; it ECG%+ @ *!<WS6 , h025F" e93 #) "P m@YngB_Sorig!-4 P// K%Out3 f]L!3b"616-66O `&8:_ґ q0%R1CC=sum(rc[1]:PC])B>s_  2 "Sum0B%YQ@.ize(Loa1qU, 0`$c!^, 4). bb.HorizontalAlignmP@xlRighch &=e512828? 7 _ͯ9192vsQv+\3)Y+l2@L)"-BOOAuto=ccw+~> @D5 Key1j("B" order0xlDescending, :HtxlGueslo Y` ? %r\otT6 i@ndow.SPt9!D c2FreezePanesƠ./UnloPY qz __SRP_3 DgUserForm1 Fi__SRP_4 \R__SRP_5bB&E?)@:0>Y?):0>YJױJʛѷ6"<<<0{5B576362-29FC-46FA-B88C-D74505A4DB25}{2FEB193E-64CD-4DC1-B9D6-C2FC796730DrU~| =aAi '(Y55y a''A DQD1E FIC1 81I;1 Y.+. Hq .F4 988aG <A' 1 )= =; 7; <;>YQKyKp J4%T(X%h$ h dTWD=C)hT6D5:4%T(X%h$ h dT)hTO:4 %T(X%h$ h dTDA l)hT6DL^ iX%laD hha TT,c)hT6D3laD hhav"pzh6D3laD hhav"pxh6D kz& D     '4'T:Ntt:XD:4:$: 6DtT4% h$ h $h90Th$ Hh T 0l0)hTN<t0Th$ Hh T 0l0)hTc,N" h$ h h>((X%Th$ Hh T d()hT(" h$ h h td,l '%'$%T(X%h$ h dQToD%'4%$($ H( $ ()h($ 5D>((X%Th$ Hh T d()hT(F:4 %T(X%h$ h dT)hT5(X%$!kzkxtkzcWSkt#*#*# kz#*#*#h$ ;h @ 2  hrkxcMRktDX%krD$%laD hhktkrlh6D ! rd td kz!kzkzvkzctkzcrkxc kvkt9kvktl !S"kt#*#*# kz#*#*#h$ ;h @ 2  hMkvktlkvkrlpktkrlpkvktl rd td vd<h$ ;h @ hJ4%T(X%h$ h dTWD=C)hT6D5:4$%T(X%h$ h dT)hTtkzcst@(D%ktDX%($%laD hh%((%T$ T d()hT(6Dv(d%ktD%ktDX%($%laD hh%((%T$ T d()hT(6Di%kz#*#&*FD%t@($%T(X%h$ h dTC'2)hT6D ! tdXC(4%(%:d(%T(X%h$ h dT)hTu^ i%z@:4)%T(X%h$ h dTD*>+==C,)hT6Dy^ iD%'%z@:4-%T(X%h$ h dTD*>+==C,)hT6Dc%'%kzDd%:4.%T(X%h$ h dTD*>+C/)hT6De^ i%:4.%T(X%h$ h dTD*==C,)hT6Dv^ i%z@:40%T(X%h$ h dTD*>+==C,)hT6D>((X%Th$ Hh T d()hT((X%($%h$ XhD%kzD%kzDD%T$ XT%lM %$(%($ ( d$*)hT($6D% h$ h $h% h$ h $htkzc ph'X%7kt#*FD%$ ha%T'4%7kt#*F%$ T,2)hT6D tdb % h$ h $h$X%h$ Dh,h$X%h$ Dh,hcX%h$ Dh,hF:4 %T(X%h$ h dT)hT5Vh8$9 :h <$lnh hT($ DtT4kD}0(%X0 %%%00hD`C$*\Rffff*0U430502ad48xAttribute VB_Name = "UserForm1" " Bas0{5B576362-29FC-46FA-B88C-D74505A4DB25}{2FEB193E-64CD-4DC1-B9D6-C2FC796730DD} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDrU 1JYJJJ H41IY8)^`rU Dn0* pHd World_Ci ties<@ = v DC<VMSFor ms> SForms3 *\G{0D452EE1-E08F-101A-8-02608C4D0BB4}#2.0#0#C:\WINDOWS\System32\FM20.DLL#MicrosPoft u 2 Object Library/Z;D1_VBA_PROJECT:dird__SRP_0J(__SRP_1oGUsedRangeȉ_B_var_UsedRange  ActiveSheet%N UsedRannged DialogBoxH_B_var_DialogBox@Rbbbxa1k\ _B_var_a1b10}u CurrentRegion| _B_var_b102c11zd20T_B_var_CurrentRegionha9s\ _B_var_a9a8r\Rg^Label1,CaptionxHide9z refedit.valueRC_B_var_refedit.valueRefEditRefEdit1 DataObjectOLE_XPOS_CONTAINER=OLE_YPOS_CONTAINER fmDragState fmDropEffect*RefEdit1_BeforeDragOver8OCancelData; DragStateEffect|ShiftBeforeDragOverUserForm_ClickClickrefedit1.value]g_B_var_refedit1.value.MSDBCtlsK vsOcx6LibvsAwk1 Application*ulParent_B_var_UserForm1Interior;Color2F aWorksheets\aaaam Workbook_OpenFormatConditionsuBordersC"Weight1 ColorIndexxlNoneIndexActivate|ActiveWorkbook ThisWorkbook|SaveAsf;xlAddIn SubElianacellrr_ClearpCopyƿ_B_var_WorksheetPaste _B_var_Paste PasteSpecialK Transpose Destinationл Operationy_B_var_Destination2xlAll- Pperation4T SkipBlanksұ xlPasteAllu SelectionZ_B_var_Transposecells(2,1),cells(1,L)rs_ _B_var_rs_B_var_Workbook3 CalculationhxlCalculateManual\xlCalculateautomaticԥ_B_var_xlCalculateManual_B_var_xlCalculateautomaticxlCalculationManualxlCalculationAutomatic FormulaR1C1S FormulaR1CP}_B_var_FormulaR1CDeletexAddr _B_var_ifPBeforeafterX DisplayAlertsSortKey1OHeaderMxlGuessYorder1o xlDescending> RgWorksheetsCells(2, 1), Cells(1 + L, 1)6Resize@4FontUHorizontalAlignmentS@xlRighteSheet[ _B_var_SheetHCodeNamez _B_var_InputV _B_var_eachc _B_var_cellthis̹routine$canD} CalculatecalculatOcalculaOcalculcalcuucalcBtcalB}ca\noj^neuseaXusq_accept*Maximum of^ _B_var_EndF (WorldCities8Gchar)ChrK~ _B_var_Chr\; vbCritical+}SplitRowR SplitColumn FreezePanesMz World_CitiesF vbQuestion vbExclamation vbInformationnxlCalculationAutom@aticM`  Has *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\ARQUIV~1\ARQUIV~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.4#0#D:\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{4A3E9B21-12BC-4A45-BC79-279E546C52C8}#2.0#0#R:\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  C*EstaPasta_de_trabalho0N430502a6*EstaPasta_de_trabalhoUrI Plan10O430502a6 Plan1V0Mdulo10T430502adMdulo1H/x`&UserForm10U430502adUserForm1rExx0`[ Gg-H|Bqn8BFF"d!`m|izN/ZF(y~qG7r%#e9BMD*8, $qp39T$IZQiEGvM.9w9pMxY_"=MwۘSjCuںv5LqR &qƏYl| SapatoHideInterior Color L pFBordersUFn?@vB>ZI @K'wQ WeightColorIndexGͳC HtI`AUa&Q~Wf\BA~\.K\\J~RF6l4OO _$ʺCJZGU )qprDv4jJ4DE0ֲ-;Uo$_@`s< 9̧AnHWI=WfNgK0K *q Lines read:   of UI*Y $Lines calculated: "Data read from :   Cities. (Results calculated:  for  0Results calculated for:   cities of  . Data read from   cities. .Results calculated for q9A" Zr>ED_/W,@LaqޘQBٔv +q  dbEkLqb:I28\h2]Ed0gCвZjIyLO8% 1qxActivateF SubElianaCd2Lw> 1K*srU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ Gb: C?aP7[    Aa @a A1IProjeto1 VBAProjectEstaPasta_de_trabalhoPlan1Plan2Plan3Mdulo1F /C:\ARQUIV~1\ARQUIV~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  10F &D:\Microsoft Office\Office10\EXCEL.EXEExcel @0FC:\WINDOWS\System32\stdole2.tlbaaastdole  PL-[DRJC:\Arquivos de programas\Arquivos comuns\Microsoft Shared\Office10\MSO.DLLOffice yA`  a1FFF Range ValueVBE6.DLL "  Q Fo9C$CYyȅK Fw[]!+H.ȸDF Worksheet @ a2 b1 a3 V  c1 d1GG\[I^& VO;ܪ6fAU  vsOcx6Lib~LT|x8@"-?@Label1"ݩd{Iof) qqxYl| refedit.valueEF (D:\Microsoft Office\Office10\REFEDIT.DLLRefEdit aarq)N1#C:\TEMP\VBE\RefEdit.exd Y1_GHyFE y2a%[lMsKW 2Q 7VFx$w y3 *,H+dwVAQ b212 b212:iv500Eh,YEVMrD>tkI݀A;& OutPutName Clear InPut a5:a260Copy PastePasteSpecialTransposeDestinationOperationSkipBlanks a1:iv1`"#I *cells(2,1),cells(1,L)FD0VMꅿzSortF SumOfLine sum(rc[1]:rc[ ])FormulaR1C1 =sum(rc[1]:rc[ =soma(rc[1]:rc[ =sum(rc[+1]:rc[+ "=soma(lc[+1]:lc[+ soma(lc[+1]:lc[+ =sum(rc[1]:lc[ sum(rc[1]:lc[ DeleteAdd B A1Key1 Header order1 8Cells(2, 1), Cells(1 + L, 1) a2:a Resize b2 &HorizontalAlignmentCodeName_ʹAt(qJ̄[EΤ8 Q b" Due to the fact that MS Excel has 256 columns in each worksheet  bfor now this routine can only obtain results for  0a maximum of 254 cities. ,Sorting and formating! WorldCities fBecause MS Excel has 256 columns in each worksheet ` h ja maximum of 254 cities. Please reduce the number of  Bcities you entered and try again.C JFMh World Cities fBecause MS Excel has 256 columns in each worksheet, `for now this routine can only obtain results for ha maximum of 254 cities. Please reduce the number of ,Formating and Sorting! RowSum &!R%%Iƨ World_Cities dJSGIx'͎@eTxK-/C,~L4 1H1NMK+ HaLJH˦;BN 1IQ/#EpTc I pJHJʛu~n\KBJE7$|pH&E?)@:0>Yei&wzZL2,Wv Jq  0NA-(> Formating! ~~~~~~~~Y   1kkkkggg 9 ( 1 8 intMouseX intMouseY 1H X 9h xCancel IDataxy DragStateEffectShift "9 "i" Q# !% A& ) + 0 )1 J($  }R KQDBTahoma0(2,Label1UserForm1}<۹}<f}o,CompObja {uTahoma Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Please wait..." ClientHeight = 450 ClientLeft = 45 ClientTop = 435 ClientWidth = 3585 StartUpPosition = 1 'CenterOwner TypeInfoVer = 1 End VBFrame'PROJECTwmPROJECTPROJECTlkEstaPasta_de_trabalhoEstaPasta_de_trabalhoMdulo1Mdulo1UserForm1UserForm1Plan1Plan1ID="{00000000-0000-0000-0000-000000000000}" Document=EstaPasta_de_trabalho/&H00000000 Module=Mdulo1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Document=Plan1/&H00000000 HelpFile="" Name="World_Cities" HelpContextID="0" VersionCompatible32="393222000" CMG="5F5DF3F5130D0B110B110F150F15" DPB="5B59F7F9EE16EE1611EAEF165F84FAEE3217EB319DE6B27E5E13ECE8303216896099D1ECE6" GC="5755FBFD0B050606060606" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] EstaPasta_de_trabalho=110, 110, 585, 569, C Mdulo1=-1, 0, 690, 674, UserForm1=0, 0, 0, 0, C, 22, 29, 802, 545, C Plan1=88, 88, 563, 547, C EF3+/OZHD1B20A40-59D5-101B-A3C9-08002B2F49FBS;ZDESTOh+'0p PX|,8 P \hWorld Cities - Subroutinecr2Caio Csar Consoni Rossi and Eliana Consoni RossirkCalculates the weight of the relationship among world cities, accepting up to 254 cities and 255 services.c3rMicrosoft Excel@,@E}<SummaryInformation(DocumentSummaryInformation8CompObjf՜.+,0 PXd lt| A Plan1  Planilhas FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q