ࡱ> l  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkmnopqrstuvwxyz{|}~Root Entry F$xzUOw]&Workbook_VBA_PROJECT_CUR"ɵ|ZP|ZVBA ɵ|Zp|Z \p_o(u7bi Ba=345 ThisWorkbook=ijNF#8R@"1A[SO1A[SO1A[SO1A[SO1A[SO1A[SO1 A[SO1$A[SO1A[SO1A[SO1A[SO1A[SO1 A[SO1A[SO1A[SO+""#,##0;\-""#,##05""#,##0;[Red]\-""#,##07""#,##0.00;\-""#,##0.00A""#,##0.00;[Red]\-""#,##0.00e*0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-u,8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-\$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .)_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 61_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ A\ \ yyyy\ \ "t^ "m" g "d" e" 0.00_  yy"t^"m"g"d"e" yyyy\.m\.d mmm/yyyy7\ \ yyyy\ "t^ "m" g "d" e"'yyyy"t^"m"g"d"e";@[$-F400]h:mm:ss\ AM/PM[DBNum2][$-804]GeneralE [DBNum1][$-804]yyyy"t^"m"g"d"e";@% [$-F800]dddd\,\ mmmm\ dd\,\ yyyy/yyyy"t^ "m" g "d" e";@1yyyy" t^ "m" g "d" e";@"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\) yyyy/m/d;@ #,### "/f";"/f";"&T" "w";"w";"GP" "_";"_";"sQ" 0.000000 0.00000 0.0000 0.0000.00_);[Red]\(0\)0_ 0.0_);[Red]\(0.0\)0.00_);[Red]\(0.00\)0.000_);[Red]\(0.000\)0.0000_);[Red]\(0.0000\) 0.0%###\ ####\ #### 000000[DBNum1][$-804]General000000000000000000000000 yyyy/mm/dd7yyyy\ "t^ "m" g"\ d\ "e";@9yyyy" t^ "m\ " g"\ d\ "e";@/yyyy" t^"m" g"\ d"e";@9[$-804]yyyy"t^"m"g"d"e"dddd-yyyy" t^"m" g"d" e";@-yyyy" t^ "m" g"d"e";@ 00000000000 "d"\ d m" "d m" "d                          x  x@ @  |@ @  |@ @  8     |  8  <  8@ @ 0 0 X 4 p  8  1|  1|  1|  |@ @  < 4  |  1|@ @  :|@ @  <@ @  |@  x@  |@  1|@  1|@  x  x@ @  |@ @  |@ @  |@ @  x  |@  x  |@ @  x@ @  |@ @  1|@ @  1|  8@ @  8  |  | |  |  8  |  1|@ @   X   8    X   (   <@ @  1|  |@  x@  |@  |@  x@  |@  |  x@ #8^ĉ_2006t^eQZQXT{vh 9 ([PAA* \PWYSb; $XTkTBTe^ոPN~O` ]"^Y,^Q!hY Z!hQOYu~~sQ|VV!  =  ;   ;   ;   ; "bZ 3 A@@  I2Yl 7 s@b(W/e 7!-NVwl'Yf[SN 2009t^kNuZQXTly~~sQ|{vh^Y  7(3ufeOYu~~sQ|0^gkNkXQ) 7/RZQY0ZQ;`/efN~{W[ RZQY0ZQ;`/evz  7 b|0 Typet| 7-NVwl'Yf[SN 2009t^kNuZQXT~~sQ|feOYu{vh 7le 7ck_/Y 7'`+R 7%kXhf1.ZQ9N0R2009t^7g 2.c6eUSMO^lf@b(Ww0^0S 7 (c6eUSMO:NYw^0-N.Yv^\:gsQbVRbT0Y0Rv@b^\USMO) 7^SY T'`+RleNSck_/YN~Ob4Y,gN gHe5u݋[^T|5u݋,gN8h[~{W[Ylc6eUSMO Ty b|0 Ty 7^S 7 l_!hQUSMO0s~ 7kXhf1.ZQ9N0R2009t^7g  7(~~(W!hQf[`N0]\OkXdkh) 7!-NVwl'Yf[SN 2009t^kNuZQXTly~~sQ|{vh!hQ  7~~sQ|c6eUSMO@b(W0W:S(w,S) 7 s@b(W/e 7#kXhf1.ZQ9N0R2009t^7g 2.c6eUSMO^lf@b(Ww0S 7/RZQY0ZQ;`/efN~{W[ RZQY0ZQ;`/evz  7Y T 7NS 7,gNT |5u݋ 7,gN8h[~{W[ 7#-NVwl'Yf[SN 2009t^kNuZQXTly~~sQ|{vh^Q!hY  7p%(c6eUSMO:NSN^vT:S0S ^^\@\0;`lQS 'YNb| SN^v^\'YSI{) 7p b|0 Ty 7p~~sQ|c6eUSMO@b(W0W:S(w,S) 7p s@b(W/e 7p#kXhf1.ZQ9N0R2009t^7g 2.c6eUSMO^lf@b(Ww0S 7p/RZQY0ZQ;`/efN~{W[ RZQY0ZQ;`/evz  7pf[SeQZQef[S[^OO@WfYuSV:l Vj rj | !cc2  !>IxJ  dMbP?_*+%!&M&d2?'M&d2?(\.?)\.?MjHP LaserJet P2015 Series PCL 5C 4dXXA4DINU"4XՑ56XIUPHdA4 4 [e]e] [e]e]Tahoma4P d?ADMINISTRATOR<ꁨR>R 44  dMicrosoft Office ExcelijkkmmEXCEL.EXEC:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " dXX `? `?U} `$} $} $} $} @ .} $} `$} $}  $} &} @$} $} } #} @$} @$}  '} $ R JXtFt"!  !MPwT=,D,D,D,D,D ,D ,D ,D ,D !?!?!?!?!?!?!?!?!?!?!?  ! ! ! ! ! ! H&IIIIIIIIIIIINNO J &JJJJJJJJJJJJQRRS L&LLLLL///////% 9 9 9 9 : : 9 9 9  9  ;  9  9  <~ >? @AA,C001M +~ >@ @AA,C001M +~ >@ @AA,C001M +~ >@ @AA,C001M +~ >@ @AA,C001M +~ >@ @AA,C001M  +~ >@ @AA,C001M  +~ > @ @AA,C001M  +~ >"@ @AA,C001M  +~ @$@ AAA,AA ~ @&@ AAA,AA ~ @(@ AAA,AA ~ @*@ AAA,AA ~ @,@ AAA,AA ~ @.@ AAA,AA ~ @0@ AAA,AA ~ @1@ AAA,AA ~ @2@ AAA,AA ~ @3@ AAA,AA "\]]][]ZZZYZZ^] K KKKKKKKKKKKKK  F! FFFFFFFFFFFFF - !  ( - !  ( - !  ( - !  ( - !  ( - !  ( D l888<<<<<<<<<2222222222&<<,,,,, !  - ! (  @PH0(  >@<d@[PAA* \d@<@@ '!!!MjHP LaserJet P2015 Series PCL 5C 4dXXA4DINU"4XՑ56XIUPHdA4 4 [e]e] [e]e][SO4P d?LCH<ꁨR>R 44  dMicrosoft Office ExcelijkkmmEXCEL.EXEC:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " dXX??@XTkTBTe^ոd@<@@ '!!!MjHP LaserJet P2015 Series PCL 5C 4dXXA4DINU"4XՑ56XIUPHdA4 4 [e]e] [e]e][SO4P d?LCH<ꁨR>R 44  dMicrosoft Office ExcelijkkmmEXCEL.EXEC:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " dXX??2   7 ; *uQ>  b ck_Y?  7usY Sheet1  !d  dMbP?_*+%!&M&d2?'M&d2?(\.?)\.?MjHP LaserJet P2015 Series PCL 5C 4dXXA4DINU"4XՑ56XIUPHdA4 4 [e]e] [e]e]Tahoma4P d?ADMINISTRATOR<ꁨR>R 44  dMicrosoft Office ExcelijkkmmEXCEL.EXEC:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " dXX `? `?U} `$} $} $} $} @ .} $} `$} $}  $} &} @$} $} } #} @$} @$}  '} $!MPwT=,D,D,D,D,D ,D ,D ,D ,D !?!?!?!?!?!?!?!?!?!?!?  ! ! ! ! ! ! H&&IIIIIIIIIIIINNO J'&JJJJJJJJJJJJQRRS L(&LLLLL///////% 9 9 9 9 : : 9) 9 9  9*  ;  9  9  <~ >? @AA,C001M +~ >@ @AA,C001M +~ >@ @AA,C001M +~ >@ @AA,C001M +~ >@ @AA,C001M +~ >@ @AA,C001M  +~ >@ @AA,C001M  +~ > @ @AA,C001M  +~ >"@ @AA,C001M  +~ @$@ AAA,AA ~ @&@ AAA,AA ~ @(@ AAA,AA ~ @*@ AAA,AA ~ @,@ AAA,AA ~ @.@ AAA,AA ~ @0@ AAA,AA ~ @1@ AAA,AA ~ @2@ AAA,AA ~ @3@ AAA,AA "\]]][]ZZZYZZ^] K+ KKKKKKKKKKKKK  F, FFFFFFFFFFFFF - !  ( - !  ( - !  ( - !  ( - !  ( - !  ( D l888<<<<<<<<<2222222222&<<,,,,, !  - ! (  @>@<d2    7 ; *G  7usY F  b ck_Y  Sheet2   `  dMbP?_*+%!&M&d2?'M&d2?(\.?)\.?MjHP LaserJet P2015 Series PCL 5C 4dXXA4DINU"4XՑ56XIUPHdA4 4 [e]e] [e]e]Tahoma4P d?ADMINISTRATOR<ꁨR>R 44  dMicrosoft Office ExcelijkkmmEXCEL.EXEC:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " dXX `? `?U} @$}  $} `$} .} $} @$} $} @ $} &} @$} $ MPT:!! ! ! !  !  !  ! ! !!!! !! !! !! !   ! ! ! ! ! ! HIIIIIIIIIIV JGGGGGGGGGG L"LLLLL/////% 9 9" 9 9 :# : 9 9 ;$  9%  <~ >?```5647434 ~ @@EEEW""""2" ~ @@EEEW""""2" ~ @@EEEW""""2" ~ @@EEEW""""2" ~ @@ EEEW""""2" ~ @@ EEEW""""2" ~ @ @ AAA, ~ @"@ AAA0 ~ @$@ AAA, ~ @&@AAA, ~ @(@AAA, ~ @*@EEE0""""2" ~ @,@AAA, ~ @.@EEE0""""2" ~ @0@AAA, ~ @1@EEE0""""2" ~ @2@AAA, ~ @3@EEE0""""2" _) ! KKKKKKKKKKK   FFFFFFFFFFF - !- !- !- !- !- !Dl.,4,,,,,,,,,,,,,,,,,,,6,>@<d2    7 ; *>  b ck_Y ?  7usY  Sheet3   V  dMbP?_*+%!&M&d2?'M&d2?(\.?)\.?MjHP LaserJet P2015 Series PCL 5C 4dXXA4DINU"4XՑ56XIUPHdA4 4 [e]e] [e]e]Tahoma4P d?ADMINISTRATOR<ꁨR>R 44  dMicrosoft Office ExcelijkkmmEXCEL.EXEC:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " dXX `? `?U} $} $} $} $} @.} $}  $}  $} $} &} $} $} } #} @$} @$}  '} $ PYT,,),),)!! ! ! ! ! !!!! !! !! !! !   ! ! ! ! ! ! H&UUUUUUUUUUUUNNO J&GGGGGGGGGGGGQRRS G&GGG/////////% 9 9 9 9- : : 9. 9/ 9  ;0  9  91  <  X 88~ @? @AABC001* +~ @@ @AABC001* +~ @@ @AABC001* +~ @@AABAA ~ @@AAABA ~ @@ AAABA ~ @@ AAABA ~ @ @ AAABA ~ @"@ AAACA ~ @$@ AAABA ~ @&@AAABA ~ @(@AAABA ~ @*@EEECE"""2"" ~ @,@AAABA ~ @.@EEECE"""2"" ~ @0@AAABA ~ @1@EEECE"""2"" ~ @2@AAABA ~ @3@EEECE"""2"" _) !  K KKKKKKKKKKK(  F FFFFFFFFFFFF( - !  ( - !  ( - !  ( - !  ( - !  ( - !  ( D l888<<<000000000:0:0:0:2:<,,,,,PH 0(  >@<d*    7 ; *N  b ck_Y G  7usY Sheet4 ThisWorkbook~TJSWYSb  ~bNk!hYN~O %  !"#$%&'()*+,-/0123456789:;<=?@ABCDEFGHIJKLMOPQRSTUVWXYZ[\]_`abcdefghijklmopqrstuvwxyz|}~7'   . 8 X x      8  X *x4NH` x**   (@H` h88 $@ H`x  6 * 4 60 h    "   2 ״ 2007鲿Ա֯ϵţУڰ]@Xp]x$,B@H .!Fݱ!A@0F|j 2!4'ʯ״$6B@8(Do Until Sheets("").Cells(m, 4) = "" $,%:' $,%:' $,%:' $,%:'< $,%:'   $,%:'"  $,%:'$ $,%:'& $,%:'( $,%:'*#'''''''''''''''''''''''''''''''''''ʯ״$6B@H2009- +:F' +:NO.2009-  +:F  $,%: +: +: "+: Ԥ̬+:F+:d@+:F̬+:k Cells(6, 18) = Date < +:d +:k $ +: ( ($ +:. 㵳Ա (em ($ +:, 㵳Աd+: 㵳Աk &+: (+: *+:0 ActiveWindow.SelectedSheets.PrintOut Copies:=1# Sheets("").Cells(m, 17) = ""- Sheets("").Cells(m, 17).Font.Bold = True0 Sheets("").Cells(m, 17).Font.ColorIndex = 3 m = m + 1 Loop Sheets("").Select Worksheets("").ProtectA>oAttribute VB_Name = "ۺϰ״" Sub P() '  R 2007鲿Ա֯ϵ\ ڰDim m, xuhao, no As Long n, dang, quxitaitou, minzID, tel8S: Sheets("").SelectqIf (Active".c <> ) Then: MsgBox ("ݱ!"): Exilt &m&Cell.Row A@WorksB͂).UnprotE'Do Until W&s(4)€=1$.3u#4sex5@c8;jX 9@ r 10@ y 6IDr7 P>' v p`1, 23p9-" &:G<31Ap2, "NO. Dv3U}1# 7A4*0!d7f>"Ԥ|"dd ` 2""":d XElsep End 1AGfBdX.Font.BoldQTruN'7)ColorItnd"3Šm + (Loop e`) aPgCall ﻻ ah"3118 " ' ίxuhaoйʯʹѧ()֯ +:/taitou +: ( ($ +:. 㵳Ա (em ($ +:, 㵳Աd(+: 㵳Աk &+: (+: v+:йʯʹѧ() xѧԺ+:20+:Ч d+: Cells(20, 18) = Date Ԥ̬+:F+:d+:F̬+:k < +:dp +:kP21:27$h!j(l Worksheets("").Protect=If Cells(13, 3) = "ίί֯" Then Call ״ӡo|Attribute VB_Name = "У" Sub °P() '2007鲿֯6TP R2Dim m, xuhao As IntegPer n, dang, quxitaitou, minzID, tel%;SngU If (ActiveSheet.AJ <> "x") Then MsgBox ("ݱ!"j Exi t wElsend If Works,s("n").Unp@rotectAm@Cell.Row r= Ds({1):}2 3>W4 sex 5 8 9 10? ?11 KWI 6IDI7@^ 4)moneBy Mid(:2), 6, 2f@ + 1, 1)@ ""eP6) 'k b iSeli 3!23B!9-8" &eC 3, 7f 20cJ4<0 e:@B1J 8A DatA* 1+5A2 )2v:AP1@1D} +16 '/xME ^;;@ 5`ѡ@ x@  @" @$ @& @( `* fX-- pFF@ `@ @  @" @$ @& @( `*XpXp$K  " , 8 P,`   (0H`x( H  *h(( @(X 88( $0X `&x  $ 6 H "P Xp D8 8(6`6684@.x66 86X  (   **( X *`      &   " , 8 ,H x      $    8 P h      H *P   4 6 ( @ 8P  8   $   84P     * *(X `p   $  D @P&2007鲿Ա֯ϵ ڵԱ.xls]@X]p .!ݱ!A@0 |0d(k $6B@8 2!4' $:'F $:'` $:' $:'< $:'   $:'"  $:'$F  $:'b $:'& $:'( $:'*  $:$'d  $:G $:  +:j#'''''''''''''''''''''''''''''''''''$6B@H2009- +: +: +: "+:F "+: Z+: ` +: $ +:F b +: <+: ( ($ +:. 㵳Ա (em ($ +:, 㵳Աd+: 㵳Աk &+:(  )+: (+: d+:M$iLen(ID18g A9' - A?!s7, 4) '! ajEK 5Y 109+ 2"  C Bf M{Dbk5[a"( !Gr&@ )@ e 1$IDK$2Y= bgj2`=1b=`m$!R[P$eB"ίίAeoall дӡE " F@I`fkp@21:27Font.ColorInd1Df^"NO.,I 2o`'У"d&k= ''l?*`ma'ͷt$ Q`cc'u9zbQ@agH1K30DE3PR"йʯʹ(-)" 'ȥQUMApY(16:Dr8eB60 1 Чy20+@s eA##).HPCiCRW #@Bc1!S NA0s0AFA k:F 06w "Ԥ_ lls(1@$"@&x@p"o !d "W f Z'Q%}IS['ZSNԩa QZAcAZV CAeCУתƳ ME'- #"q JG2`0!9" ȯPVyOI126aڵὀlaiyuan21Qzh`PLeft(3 4(mf@- -1"`1D}=  '"31N q2/pBBb)!" 'S{NMcO(QvO 1 ? OOOO Ye[2 A 'Ա  End IfX Cells(14, 23) = minzu l5, 196ID 06, 4.laiyuan816"йʯʹѧ()" & zhibu@"ѧԺ" ;8, :20"@Ч& 72dmoney '2l20^8Date dang|"Ԥ" Thed#ÀG":= ,"^Els2_(E  PsexPO1" F @(@I Rows("21:27").Font.ColorInd B#2D([Work sheet@ ŀ Pro0tect @ IfQN3, "ίί֯9 Call ״ӡ A'Sub !hQN~O Sheet1.Ɩ-NRtkNu !,Sheet2 >T() ' lch ¼ĺ 2005-11-4 Dim from, t oo, n, sex, zuzhi As S ng,month, mInteger Windows("\9 ԱǼ-090115.xls").Activate =If eSh0eet.ݵ" Then5( m Ce@ll.Row ' s(d15)D/ 'ǰ$3V0). + 1, 1)'Զ)cIn("G3), "") > 0f 06"P": 9 ,ѧ˶ʿо,HGFLK EX H8, 22ACdA 'ڀe9Lef|t(iE'̧ͷ.`10, 7$ 6'N2}"6)! 'ʽԤ L 3Y1ԭλn14@  'Ŀ4,z =:+kg '·5 "=today()" 'תCvD671"AeG '-ϢɼFl?2?"$' Ա:1:$ '` [H1' 1h6 HD77֤k #MidF(j f, 8dZ'0()2, "5,ea'Ե61oa ѧP,1ⰵ8ְSelect Case2# ˽0"/e_ x'ѧu\hʿ/Y_End q lsS55-%pElsel~ת~100:uO&`N Exit SubӁ fPy&, 2ۂ'h&p` `>?_Y; Ů 'a_YpCPbb `Offsetq0).y3-y" &z3zls(uzw7qz(1 z/kq/z2UOyZ0 Ozs 1Mz0OJ oz(Qkzo`tj{z 1}zYV w{!Up(xu%# CCvCT ? #k ʽ/Ȕ DAb'绰 s|(2-iz~M 5dc"= .swqd 'ȥ-bz'? Ypp$ c?[D=2'߈8Մ" ' /oU1ufp?/""hO |1/1) 'ְ If InStr(1, Cells(1$14), "") > 0 Then:26, 5) = "ߐ":,12.$/"%_ѧ_ѧʿ&bbоr2˶ 2 k  '-Ϣɼ 'ӡ' ActiveWindow.SelectedSheets.PrintOut Copies:=1'("У@ת").%ate GoTo 100 ElsB Endnd If CA Sub 6  8@  Dx  *  H  H8  H  D  D  TX  V  X *`    : $   (0 8 HxME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Ԥ+  $,%: +'# 'xxxME rmm@| +:@~ @ x@< `@ `$K m"  ( H 2X   2R XHXZ    X8p@4: 6`84( "0  *X  6 6 : 88 8p 8 4 4P.`&(   * 0H P` LF 8 <P  D8 6@ <x 8 : :0 $p   *  <  6  8@  Dx  *  H  H8  H  D  D  TX  V  X *`    : $   (0 8 H lch ¼ĺ 2005-11-4]@Xp]"2009 ԱŵǼ-090115.xls$B@T .! 2!4'+ Cells(m, 15) = Date 'ǰ$6 $,%:  $,,:HԶ  $: G  +:F  +:j  $:Ѕ Gѧ  +:F˶ʿ  +:j  $: Gо  +:Fʿ  +:jIDУ$,B@T $,%:+:;  $,%:$ +:Çͷ $,%: +:;name $,%: +:< ʽԤ+  $,%: +:;ԭλ  $,%: +:=Ŀĵλ $,%:+:0·=today()+:&תڶ $,,:F $---------Ϣɼ----------------- Cells $,%:+:> Ա(" $,%: +:> 20  $,%:+:? 뵥λ $,%: +:>֤Ŭ $:$+:7 $,%:+:=뵳  $,%:+:>ѧ  $,%:+:?ְƬ$:KTF/ +:0ѧλѧKTFѧʿ +:оKTF˶ʿ +:n$,B@H$---------Ϣɼ-----------------:j .!Уתe''DF 2!4' $:G|j2009F Sheets("Уת").Cells(m, 9) = Date ' $:  Уת$,,::Զ2 Sheets("Уת").Cells(m + 1, 3) = "Ů" '5 Sheets("Уת").Cells(m + 1, 4) = "ʽԤ" ' 2%VB@HУ$,B@TУ Уת$,%:+:D Уת$,%: +:<̧ͷ Уת$,%: +:=name Уת$,%: +:> ʽԤ Уת$,%: +:=ԭλ Уת$,%: +:>Ŀĵλ Уת$,%:+:<·  Уת$,,: $---------Ϣɼ----------------- Уת$,%: +:E ʽ/Ԥ  Уת$,%:+:F绰 Уת$,%:+:B Ա +:",Sheets("Уת").Cells(m, 4) ' $:+:0ȥλ+: 0 Sheets("Уת").Cells(m, 7) 'ڶ +:!0 Sheets("Уת").Cells(m, 5) '֤Ŷ+:!/Sheets("Уת").Cells(m, 8) '뵳 +:",Sheets("Уת").Cells(m, 10) 'ѧ+:",Sheets("Уת").Cells(m, 11) 'ְ $: GЬ+:F/ +:j $:Ѕ Gѧ+:Fѧʿ +:j $: Gо+:F˶ʿ +:j $---------Ϣɼ----------------- ӡ'3 ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("Уת").Activate GoTo 100dgkoAttribute VB_Name = "Уڽ" Sub CDת%:'   $,%:'"  $,%:'$ $,%:'& $,%:'( $,%:'* 2%VB@H#'''''''''''''''''''''''''''''''''''$6B@8$6B@H2009- +: +: +: "+: Cells(6, 18) = Date $ +: <+: ( ($ +:. 㵳Ա (em ($ +:, 㵳Աd+: 㵳Աk &+:(  )+: (+: *+:1 ActiveWindow.SelectedSheets.PrintOut Copies:=1 $,,: $,%:!j( $,%:!j(l  'P$,B@H  $:B@H$6B@nA@ <̬+:F+:d+:F̬+:kxop* ״ 2007鲿Ա֯ϵ]Xp]0 .!Fݱ!A@0F|j 2!4'  $,%:F+ ʹ!A@0F|j̹ί!A@0 ̹ί״$6B@8 $,%:a $,%:' $,%:' $,%:' $,%:'< $,%:'   $,%:'"  $,%:'$ $,%:'& $,%:'( $,%:'*#''''''''''''''''''''''''''''''''''' ̹ί״$6B@H NO. 2009- y11+ K#'ҰxME II@ `@ x@  @" @$ 15) @& @( `* HOO@ @ `j@ @  @" ʿ@$ @& @( `* CC@ `@ @  @" @$ @& @( `*HH`$K " , 8,H >x  J $8 `       @ ` *0H `  88@ $Hp x&  8" &H(p   *H*P  " 0 , >  PJ`   $  8 X x       8 *X  "     *( X *`           80 h 8x   $      60 "h & (     0 P "X 0`  , >  J "p  $    8 X x    *(@`x **   0@X`x 8 "0&X(     &2007鲿Ա֯ϵ]@X]p .!Fݱ!A@0F|j 2!4'  $,%:F, ʹ!A@0F|jհA4ֽ!A@0 $,%:a $,%:' $,%:' $,%:'< $,+: +: "+: Ԥ̬+:F+:d+:F̬+:kh Cells(6, 18) = Date < +:d +:k $ +: ( ($ +:. 㵳Ա (em ($ +:, 㵳ԱdH+: 㵳Աk &+: (+: *+:0 ActiveWindow.SelectedSheets.PrintOut Copies:=1 $,,: $,%:!j( $,%:!j(l  '$,B@H  $:B@H ̹ί״$6B@noH* ״ 2007鲿Ա֯ϵ]]0H .!Fݱ!A@0F|j 2!4'  $,%:F, ʹ!A@0F|j¿հ׽!A@0ʯ״$6B@8 $,%:a $,%:' $,%:' $,%:'< $,%:'   $,%:'"  $,%:'$ $,%:'& $,%:'( $,%:'*#'''''''''''''''''''''''''''''''''''ʯ״$6B@H2009- +: +: "+: Ԥ̬+:F+:d(+:F̬+:k Cells(6, 18) = Date < +:d +:k $ +: ($ +:. 㵳Ա &+: (+: *+: !B@ $,,: $,%:!j( $,%:!j(l  '@ $,B@H  $:B@Hʯ״$6B@no ʵAttribute VB_Name = "а" Sub Pӡ() '2007鲿Ա֯ϵT Dim m, xuhao As I@nteger0nv, dang, quxitaitou, minzID, tel;SngU If (ActiveSheet.J <> "") Then: MsgBox ("ݱ!"):@ Exit o ` m~'Cell.Row1)-s(*. s(g11)6"34a?3FհA4ֽŀGjDo Until <4)=1ӂ4sexU5@Agݘ8nX 9@ u 10@ B} 6ID7F>{Offset(1, 0).SePlect' Worksü").UnprotB f 23w@9-" &CA  p3, 7v 2 =BJ4, 20 i6H6, 18Date}1@7k` 1>6H$sLen(ID18d7A9 -0 Mid, \!'㡊ElseK 5Y 109+ <2) !m""nd If#g9"Zk5, &"( "") Then: MsgBox ("ݱ!"): Exit SuBbMm = MCell.Row aZs(S.s(m, 11)k"fg} e %¿׽ ID Worksj=ʯ״").UnprotectDo Until Q4)i"" xuhaof() =% sex"5"89@ C \10@ ‡ 6I:D7A=14%' mSelm Ð1, 23h2009-p" & i 3, 7g 4@~0ASDb"Ԥè  2= "|":D%B+ExlseW E nd If V'680D|at @M"1` 3;~  Dc1߀#3Pk97 - Mid(A7, n '㵳Աx,bWk5 " ID 2`E#`U#WindHow.cLed|.PtOut Copies:=1`LA.Font.Bold.8Tru6x Co@lorInd3#m +  &Loop  l g4m."4){TPQxME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2'҆Q#Sheet3 NSheet4^_VBA_PROJECTdirnxME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2'ҔL#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et4" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD20* pHd VBAProject4@j = r $K J< rstdole>stdole h%^*\G0813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 1@0.0 Ob LibraryKE 'ThisWorkbookGTisWrkbUo 2 QHB1Bx=B,!