ࡱ> |tin hin hnh U ruArial2on ) LabFontErra#r @Arial2on(LabWbookDr5Arialook(LabSheetDr5Arialeet#5% 5Times New Roman$ LabDLieuG$ 5Times New Roman!  @ArialieuPF&)0Tp tin XLS ang m5Arial\F20Tp tin XLS trong th mc5AriallFB0Bng tnh trong tp tin ang chn5Arial b$ruArial<Fg 0Convert all sheets5Arial@,5Arial ( Conv \p Huynh Cao Ky Ba= ThisWorkbook=k+<X@"1Arial1Arial1Arial1Arial1Arial1rCalibri1 rCalibri1rCalibri14rCalibri1 rCalibri1rCalibri1rCalibri1,8rCalibri18rCalibri18rCalibri1>rCalibri14rCalibri1<rCalibri1?rCalibri1h8rCambria1rCalibri1 rCalibri"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)                                                                      ff + ) , *     P  P        `            a>  ( ||?eT}A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef ;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L ;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A}  00\);_(*23;_(@_) }A}! 00\);_(*23 ;_(@_) }A}" 00\);_(*;_(@_) }A}# 00\);_(*;_(@_) }A}$ 00\);_(*;_(@_) }A}% 00\);_(*;_(@_) }A}& 00\);_(*;_(@_) }A}' 00\);_(* ;_(@_) }A}( 00\);_(*;_(@_) }}) }00\);_(*;_(@_)    }}* 00\);_(*;_(@_) ??? ??? ??? ???}-}/ 00\);_(*}A}0 a00\);_(*;_(@_) }A}1 00\);_(*;_(@_) }A}2 00\);_(*?;_(@_) }A}3 00\);_(*23;_(@_) }-}4 00\);_(*}}5 ??v00\);_(*̙;_(@_)    }A}6 }00\);_(*;_(@_) }A}7 e00\);_(*;_(@_) }x}800\);_(*;_(  }}9 ???00\);_(*;_(??? ???  ??? ???}-}; 00\);_(*}U}< 00\);_(*;_( }-}= 00\);_(* 20% - Accent1M 20% - Accent1 ef % 20% - Accent2M" 20% - Accent2 ef % 20% - Accent3M& 20% - Accent3 ef % 20% - Accent4M* 20% - Accent4 ef % 20% - Accent5M. 20% - Accent5 ef % 20% - Accent6M2 20% - Accent6  ef % 40% - Accent1M 40% - Accent1 L % 40% - Accent2M# 40% - Accent2 L湸 % 40% - Accent3M' 40% - Accent3 L % 40% - Accent4M+ 40% - Accent4 L % 40% - Accent5M/ 40% - Accent5 L % 40% - Accent6M3 40% - Accent6  Lմ % 60% - Accent1M 60% - Accent1 23 % 60% - Accent2M$ 60% - Accent2 23ٗ % 60% - Accent3M( 60% - Accent3 23֚ % 60% - Accent4M, 60% - Accent4 23 % 60% - Accent5M0 60% - Accent5 23 %! 60% - Accent6M4 60% - Accent6  23 % "Accent1AAccent1 O % #Accent2A!Accent2 PM % $Accent3A%Accent3 Y % %Accent4A)Accent4 d % &Accent5A-Accent5 K % 'Accent6A1Accent6  F %(Bad9Bad  %) Calculation Calculation  }% * Check Cell Check Cell  %????????? ???+ Comma,( Comma [0]-&Currency.. Currency [0]/Explanatory TextG5Explanatory Text % 0Good;Good  a%1 Heading 1G Heading 1 I}%O2 Heading 2G Heading 2 I}%?3 Heading 3G Heading 3 I}%234 Heading 49 Heading 4 I}% 5InputuInput ̙ ??v% 6 Linked CellK Linked Cell }% 7NeutralANeutral  e%"Normal 8Noteb Note   9OutputwOutput  ???%????????? ???:$Percent ;Title1Title I}% <TotalMTotal %OO= Warning Text? Warning Text %XTableStyleMedium9PivotStyleLight16` YDATAg oaaaThng bo chung Chng trnhAdd-In Ting VitFrmCovFrmSortFrmSo FrmCalendaraKt thcChng trnh c vit bng Visual Basic Excel nhm mc ch h tr ting Vit cho bng tnh Excel 2000, Excel XP hoc mi hn. Mong c s gp ca cc bn cho chng trnh hon thin hn.Tp tin TVEXCEL01.XLA ang m ti @  c TVEXCEL01 trong danh sch Add-Ins... lin kt ti @\TVEXCEL01.XLA nhng tp tin ny khng cn tn ti. Bn phi xa lin kt ny trc khi Add-In TVEXCEL01 mi bng cch: 1. Chn [ ] TVEXCEL01 t danh sch Add-Ins..., Hin thng bo: Cannot find add-in '@\TVEXCEL01.XLA'. Delete from list? 2. Chn Yes > OK. Thot Excel 3. M li TVEXCEL01.XLA. Chn menu Ting Vit > Add-In TVEXCEL01Chuyn bng mTBng tnh @ b kha (Protect), TVEXCEL khng th chuyn m trn bng tnh ny c !5Dng u l 1 nn khng c tiu  ct < No Header >0Tong ket so tien la docso ong (nhomngan).GingaTip tcTp tin TVEXCEL01.XLA ang m ti @  c TVEXCEL01 trong danh sch Add-Ins... lin kt ti @\TVEXCEL01.XLA Bn phi xa tp tin ny mi c th Add-In tp tin TVEXCEL01 mi vo danh sch.Sp xp (Sort)GBn phi copy d liu ra bng tnh mi v chuyn m trn bng tnh mi.Trong vng chn c nh dng ni (Merge Cells) ti @ , khng th sp xp c ! Bn iu chnh li vng chn hoc chn xa Merge Cells*Tng kt s tin l docso ng (nhomngan).HaiaKhng c bng tnh no c m.EGio vin Phm Duy Long, Trung tm dy ngh huyn Lai Vung, ng ThpNu hy chn Add-In TVEXCEL01 trong danh sch, cc lnh trong menu Ting Vit s kt thc lm vic ngay sau lnh ny. Tuy nhin, trong danh sch Add-Ins... vn cn. Khi m TVEXCEL01.XLA ln sau, bn c th Add-In li.Chuyn cu (Change Case)ang chuyn m tp tin rVng chn sp xp 256 ct. Khng th sp xp c ! (vng sp xp ti a 255 ct). Bn iu chnh li s ct chn.<Tm thy s ti @ ( c s cui cng ca dng trn ch)BaaKhng c d liu  lm vic !BT : 067 650 525 - 0918 975 460 Email : pham_duy_long@yahoo.comTp tin TVEXCEL01.XLA ang m ti @ trn  )a @. Khng th Add-In tp tin trn )a mm, di ng, Network, CD-ROM, RAM Disk. Bn phi copy v m TVEXCEL01.XLA t )a cng mi c th ghi vo danh sch Add-Ins... c !c s ting VitBng tnh c @ d liuang sp xp @ i ch @ ( ghi kt qu c s) c d liu l " @ ". Nu bn chn [Ghi c s] s lm mt d liu ch.Taba Add-In TVEXCEL01 vo danh sch Add-Ins& ng dn lin kt @\TVEXCEL01.XLA Menu Ting Vit s m cng vi Excel trong nhng phin lm vic sau.Tch, ghp H TnBng tnh [@] khng c d liu.C tt c # dng c sp xp.!D liu ngun @ khng phi s !NmaTp tin TVEXCEL01.XLA  i tn thnh @ ! Nu mun s dng cc lnh h tr ting Vit, bn phi i tn tp tin @ ny tr v tn ng ca n l TVEXCEL01.XLA.Lch 1920 - 2099$Bang tnh [@] khong co d lieu.JSheet @ b kha (Protect), TVEXCEL khng th sp xp trn sheet ny c !6a ch ngun thiu ct (Column), thiu dng (Row) !Sua= xa xong @\TVEXCEL01.XLA Bn phi xa lin kt ny trc khi Add-In TVEXCEL01 mi bng cch: 1. Chn [ ] TVEXCEL01 t danh sch Add-Ins..., Hin thng bo: Cannot find add-in '@\TVEXCEL01.XLA'. Delete from list? 2. Chn Yes > OK. Thot Excel 3. M li TVEXCEL01.XLA. Chn menu Ting Vit > Add-In TVEXCEL01Bng tnh [@] khng c d liu. sp xp xongJa ch ngun @ trng a ch ch. Khng th chn [Ghi c s] c !Bya chuyn m xongc s @ (s t nhp)Tma ng xa/Chuyn m @ bng tnh nh du X sang Unicode. gBng tnh [@] c bo v (Protect). ang chn @ b kha (Clock). Khng th ghi c s vo @ c ! Chnang _Khng chuyn m @ bng tnh c ghi UNI, ??? (khng xc nh m) hoc BV (bng tnh c bo v)TNhp s  TVEXCEL chuyn sang dng c s ting Vit. Ghi vo bng tnh dng chui.MiacaHy lnh"Khng xc nh bng m bng tnh @\Bn  chn @ (#) lm ch ( ghi kt qu c s). Bn chn li 1 duy nht lm ch.Mi mta8Bn chn m ngun l Unico<] de, VNI Windows hoc TCVN3-ABC ngun @ khng c d liu !Mi haiaFChuyn @ bng tnh m ngun l VNI Windows hoc TCVN3-ABC sang Unicodec s @ ti a>Chuyn m \ tp tin *.XLS trong th mc \ sang bng m Unicode[Khng tm thy c s  cc dng pha trn ch @. Bn t chn ngun hoc t nhp s !a-Chuyn m \ tp tin *.XLS ang m trong ExcelaFTp tin XLS ang hot ng: @ Tn bng tnh BM BVeae' Danh sch tp tin *.XLS trong th mce! Danh sch tp tin *.XLS ang me%Chuyn m bng tnh @ ca tp tin @. e(Tp tin @ cha t tn) Chu nhat, eChuyn m t @ sang @. Thu hai, ebeThu ba, eThu tu, e Thu nam, e Thu sau, e Thu bay, eoaooo Chu nhat, o Th hai, o Th ba, obo Th t, o Th nam, o Th sau, o Th bay, oooc Ch nht,  Th hai, Th ba, Th t, uau Th nm, u Th su, iu Th by, uuub Ch nht,  Th hai, Th ba, Th t, yay Th nm, y Th su, y Th by, yAAAAAAAAAAAAAAAAAEEEEEEEEEEEOOOOOOOOOOOUUhUUUYYYYAAAAAAAAAAAAAAAAAEEEEEEEEEEEOOOOOOOOOOOUUUUUYYYYdaia)(aIeMiQoWu]yaA)E-I1O7U=YA") *Yb*0'3l 4 8;&>c?@AEVE4PHHnJ:K[LMNN BOctOOOP%9PZfPPPQ%6QWbQQQR'ZR{RRR S4 9SZ aS S S S T! 'TH OTp wT T T T U5      ~ @ `l@,@ ~ @   ~  f@ @X@n@  >    ! "~ @ # l@$@ $~ @   %~  g@ &@X@ o@ ' ( >) * + , - .~ @ /@@ /~ @   0~   g@ 1@X@m@ 2 3 >4 5 6 7 8 9~ @ :0p@0p@ :~  ;  <~  e@ =@X@@m@ >> ? @ A B C~ @ D@@ D~ ? ;  E~  `g@ F@X@m@ >G H I J K L~  @ M@@ M~ @ ;  N~  g@ O@X@@o@ >P Q R S T~ "@ U@@ U~ @ ;  V~  g@ W@X@o@ X Y Z~ $@ [ @@ [~ @ ; \~ g@ ] @X@ m@ ^ _ ` a~ &@ b @@ b~ @ ; c~ h@ d @X@`m@ e f g h~ (@ i @l@(@ j~  k l~  e@ m @X@@l@ n o p q~ *@ r @@ r~ ? k s~ h@ t @X@l@  u v w~ ,@ x @@ x~ @ k y~ i@ z @X@l@  { |~ .@ }@@ }~ @ k  ~~   i@ @X@`l@  ~ 0@ @@ ~ @ k  ~  @i@ @X@ l@ ~ 1@ @@ ~ @ k  ~  `i@ @X@l@ >~ 2@ m@@@ ~ ?   ~  i@ @Y@o@ >~ 3@ @@ ~ @   ~  i@ @Y@`o@ >~ 4@ @@ ~ @   ~  i@ @Y@n@ ~ 5@  m@D@ ~ @   ~  j@ @Y@ o@  ~ 6@ @@ ~ @   ~   j@ @Y@m@  ~ 7@ @m@H@ ~    ~  @e@ @Y@@l@ ~ 8@ @@ ~ ?   ~  @j@ @Y@l@ ~ 9@ þ@þ@ ~ @   ~  `j@ @Y@l@ ~ :@ ž@ž@ ~ @   ~  j@ @Y@`l@ ~ ;@ @@ ~ @   ~  j@ @Y@ l@ ~ <@ Ǿ@Ǿ@ ~ @   ~  j@ @Y@l@~ =@ @n@h@ ~ ?   ~  k@ [@o@~ >@ Ͼ@Ͼ@ ~ @   #~   l@ [@`o@~ ?@ n@t@ ~ @   i~  @l@ [@n@ ~ @@ `n@l@ ~ @   ~  `l@ [@ o@ D@l     !"#$%&'()*+,-./0123456789:;<=>?~ @@  ;@;@ ~ @  ~ l@  [@m@ ~ !A@ !!n@p@ !~ ! ! ! ~ ! `e@ !![@@l@ !~ "A@ ""Ӿ@Ӿ@ "~ "? " " ~ " l@ ""[@l@ "~ #B@ ##վ@վ@ #~ #@ # # ~ # l@ ##[@l@ #~ $B@ $$׾@׾@ $~ $@ $ $ ~ $ l@ $$[@`l@ $~ %C@ %%Ѿ@Ѿ@ %~ %@ % % ~ % m@ %%[@ l@~ &C@ &&پ@پ@ &~ &@ & & ~ &  m@ &&[@l@~ 'D@ ''ݾ@ݾ@ '~ '? ' ' ~ ' @m@ ''n@o@~ (D@ ((߾@߾@ (~ (@ ( ( ~ ( `m@ ((n@`o@ (~ )E@ ))@@ )~ )@ ) ) ~ ) m@ ))n@n@ )~ *E@ **۾@۾@ *~ *@ * * ~ * m@ **n@ o@ *~ +F@ ++@@ +~ +@ + + ~ + m@ ++n@m@ +~ ,F@ ,, o@@ ,~ ,? , , ~ , m@ ,,@]@o@ ,~ -G@ --@@ -~ -@ - - ~ -  n@ --@]@`o@ -~ .G@ ..v@v@ .~ .@ . . ~ . @n@ ..@]@n@ .~ /H@ //@o@@ /~ /@ / / ~ / `n@ //@]@ o@~ 0H@ 00@@ 0~ 0@ 0 0 ~ 0 n@ 0 0@]@m@~ 1I@ 1 1@@ 1 ~ 1? 1  1 ~ 1 n@ 1 1n@o@~ 2I@ 2 2@@ 2 ~ 2@ 2  2 ~ 2 n@ 22n@`o@ 2~ 3J@ 33@@ 3~ 3@ 3  3 ~ 3 n@ 33n@n@ 3~ 4J@ 44@@ 4~ 4@ 4  4 ~ 4 o@ 44n@ o@ 4~ 5K@ 55@@ 5~ 5@ 5  5 ~ 5  o@ 55n@m@ 5~ 6K@ 66@@ 6~ 6? 6 6 ~ 6 @o@ 66@^@o@ 6~ 7L@ 7 7@@ 7 ~ 7@ 7 7 !~ 7 `o@ 7"7@^@`o@ 7#~ 8L@ 8$8@@ 8$~ 8@ 8 8 %~ 8 o@ 8&8@^@n@ 8'~ 9M@ 9(9o@@ 9)~ 9@ 9 9 (~ 9 o@ 9*9@^@ o@~ :M@ :+:h@@ :,~ :? : : ~ : f@ :-:@P@k@~ ;N@ ;.;@@ ;.~ ;@ ; ; ~ ; f@ ;/;@P@`k@~ <N@ <0<`h@@ <1~ <@ < < ~ < f@ <2<@P@j@~ =O@ =3= h@@ =4~ =@ = = %~ = g@ =5=@P@ k@~ >O@ >6>@@ >6~ >@ > > 0~ >  g@ >7>@P@i@~ ?P@ ?8? p@ p@ ?8~ ? ?; ? 9~ ?  d@ ?:?@P@@i@D l@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_~ @@P@ @;@@@ @;~ @? @; @ E~ @ `g@ @<@@P@i@~ AP@ A=A@@ A=~ A@ A; A N~ A g@ A>A@P@@k@~ BP@ B?B@@ B?~ B@ B; B V~ B g@ B@B@P@k@~ CQ@ CAC@@ CA~ C@ C; C \~ C g@ CBC@P@ i@~ D@Q@ DCD@@ DC~ D@ D; D c~ D h@ DDD@P@`i@~ EQ@ EEE@h@@ EF~ E Ek E G~ E @d@ EHE@P@@h@~ FQ@ FIF@@ FI~ F? Fk F s~ F h@ FJF@P@h@~ GR@ GKG@@ GK~ G@ Gk G y~ G i@ GLG@P@h@~ H@R@ HMH@@ HM~ H@ Hk H ~~ H  i@ HNH@P@`h@~ IR@ IOI@@ IO~ I@ Ik I ~ I @i@ IPI@P@ h@~ JR@ JQJ@@ JQ~ J@ Jk J ~ J `i@ JRJ@P@h@~ KS@ KyKi@@ KS~ K? K K ~ K i@ KTK@Q@k@~ L@S@ LUL@@ LU~ L@ L L ~ L i@ LVL@Q@`k@~ MS@ MWM@@ MW~ M@ M M ~ M i@ MXM@Q@j@~ NS@ N~N i@Ē@ NY~ N@ N N ~ N j@ NZN@Q@ k@~ OT@ O[O@@ O[~ O@ O O ~ O  j@ O\O@Q@i@~ P@T@ PP@i@Ȓ@ P]~ P P P ^~ P `d@ P_P@Q@@h@~ QT@ Q`Q@@ Q`~ Q? Q Q ~ Q @j@ QaQ@Q@h@~ RT@ RbR¾@¾@ Rb~ R@ R R ~ R `j@ RcR@Q@h@~ SU@ SdSľ@ľ@ Sd~ S@ S S ~ S j@ SeS@Q@`h@~ T@U@ TfT@@ Tf~ T@ T T ~ T j@ TgT@Q@ h@~ UU@ UhUƾ@ƾ@ Uh~ U@ U U ~ U j@ UiU@Q@h@~ VU@ VV@j@@ Vj~ V? V V ~ V k@ VkVS@k@~ WV@ WlWξ@ξ@ Wl~ W@ W W #~ W  l@ WmWS@`k@~ X@V@ XXj@@ Xn~ X@ X X i~ X @l@ XoXS@j@~ YV@ YY`j@@ Yp~ Y@ Y Y ~ Y `l@ YqYS@ k@~ ZV@ ZrZ̾@̾@ Zr~ Z@ Z Z ~ Z l@ ZsZS@i@~ [W@ [[j@@ [t~ [ [ [ u~ [ d@ [v[S@@h@~ \@W@ \w\Ҿ@Ҿ@ \w~ \? \ \ ~ \ l@ \x\S@h@~ ]W@ ]y]Ծ@Ծ@ ]y~ ]@ ] ] ~ ] l@ ]z]S@h@~ ^W@ ^{^־@־@ ^{~ ^@ ^ ^ ~ ^ l@ ^|^S@`h@~ _X@ _}_о@о@ _}~ _@ _ _ ~ _ m@ _~_S@ h@Dl`abcdefghijklmnopqrstuvwxyz{|}~~ `@X@ ``ؾ@ؾ@ `~ `@ ` ` ~ `  m@ ``S@h@~ aX@ aaܾ@ܾ@ a~ a? a a ~ a @m@ aaj@k@~ bX@ bb޾@޾@ b~ b@ b b ~ b `m@ bbj@`k@~ cY@ cc@@ c~ c@ c c ~ c m@ ccj@j@~ d@Y@ ddھ@ھ@ d~ d@ d d ~ d m@ ddj@ k@~ eY@ ee@@ e~ e@ e e ~ e m@ eej@i@~ fY@ ff k@@ f~ f? f f ~ f m@ ff@U@k@~ gZ@ gg@@ g~ g@ g g ~ g  n@ gg@U@`k@~ h@Z@ hhv@v@ h~ h@ h h ~ h @n@ hh@U@j@~ iZ@ ii@k@@ i~ i@ i i ~ i `n@ ii@U@ k@~ jZ@ jj@@ j~ j@ j j ~ j n@ jj@U@i@~ k[@ kk@@ k~ k? k  k ~ k n@ kkj@k@~ l@[@ ll@@ l~ l@ l  l ~ l n@ llj@`k@~ m[@ mm@@ m~ m@ m  m ~ m n@ mmj@j@~ n[@ nn@@ n~ n@ n  n ~ n o@ nnj@ k@~ o\@ oo@@ o~ o@ o  o ~ o  o@ ooj@i@~ p@\@ pp@@ p~ p? p p ~ p @o@ pp@V@k@~ q\@ qq@@ q~ q@ q q !~ q `o@ qq@V@`k@~ r\@ rr@@ r~ r@ r r %~ r o@ rr@V@j@~ s]@ ssk@@ s~ s@ s s (~ s o@ ss@V@ k@~ t@]@ t+th@@ t,~ t? t t ~ t f@ tt@P@o@~ u]@ u.u@@ u.~ u@ u u ~ u f@ uu@P@`o@~ v]@ v0v`h@@ v1~ v@ v v ~ v f@ vv@P@n@~ w^@ w3w h@@ w4~ w@ w w %~ w g@ ww@P@ o@~ x@^@ x6x@@ x6~ x@ x x 0~ x  g@ xx@P@m@~ y^@ y8y p@ p@ y8~ y y; y 9~ y  d@ yy@P@@m@~ z^@ z;z@@ z;~ z? z; z E~ z `g@ zz@P@m@~ {_@ {={@@ {=~ {@ {; { N~ { g@ {{@P@@o@~ |@_@ |?|@@ |?~ |@ |; | V~ | g@ ||@P@o@~ }_@ }A}@@ }A~ }@ }; } \~ } g@ }}@P@ m@~ ~_@ ~C~@@ ~C~ ~@ ~; ~ c~ ~ h@ ~~@P@`m@~ `@ E@h@@ F~  k  G~  @d@ @P@@l@Dl~  `@ I@@ I~ ? k s~ h@ @P@l@~ @`@ K@@ K~ @ k y~ i@ @P@l@~ ``@ M@@ M~ @ k ~~  i@ @P@`l@~ `@ O@@ O~ @ k ~ @i@ @P@ l@~ `@ Q@@ Q~ @ k ~ `i@ @P@l@~ `@ yi@@ S~ ?  ~ i@ @Q@o@~ `@ U@@ U~ @  ~ i@ @Q@`o@~ a@ W@@ W~ @  ~ i@ @Q@n@~  a@ ~ i@Ē@ Y~ @  ~ j@ @Q@ o@~ @a@ [@@ [~ @  ~  j@ @Q@m@~ `a@ @i@Ȓ@ ]~   ^~ `d@ @Q@@l@~ a@ `@@ `~ ?  ~ @j@ @Q@l@~ a@ b¾@¾@ b~ @  ~ `j@ @Q@l@~ a@ dľ@ľ@ d~ @  ~ j@ @Q@`l@~ a@ f@@ f~ @  ~ j@ @Q@ l@~ b@ hƾ@ƾ@ h~ @  ~ j@ @Q@l@~  b@ @j@@ j~ ?  ~ k@ S@o@~ @b@ lξ@ξ@ l~ @  #~  l@ S@`o@~ `b@ j@@ n~ @  i~ @l@ S@n@~ b@ `j@@ p~ @  ~ `l@ S@ o@~ b@ r̾@̾@ r~ @  ~ l@ S@m@~ b@ j@@ t~   u~ d@ S@@l@~ b@ wҾ@Ҿ@ w~ ?  ~ l@ S@l@~ c@ yԾ@Ծ@ y~ @  ~ l@ S@l@~  c@ {־@־@ {~ @  ~ l@ S@`l@~ @c@ }о@о@ }~ @  ~ m@ S@ l@~ `c@ ؾ@ؾ@ ~ @  ~  m@ S@l@~ c@ ܾ@ܾ@ ~ ?  ~ @m@ j@o@~ c@ ޾@޾@ ~ @  ~ `m@ j@`o@~ c@ @@ ~ @  ~ m@ j@n@~ c@ ھ@ھ@ ~ @  ~ m@ j@ o@~ d@ @@ ~ @  ~ m@ j@m@Dl~  d@  k@@ ~ ?  ~ m@ @U@o@~ @d@ @@ ~ @  ~  n@ @U@`o@~ `d@ v@v@ ~ @  ~ @n@ @U@n@~ d@ @k@@ ~ @  ~ `n@ @U@ o@~ d@ @@ ~ @  ~ n@ @U@m@~ d@ @@ ~ ?   ~ n@ j@o@~ d@ @@ ~ @   ~ n@ j@`o@~ e@ @@ ~ @   ~ n@ j@n@~  e@ @@ ~ @   ~ o@ j@ o@~ @e@ @@ ~ @   ~  o@ j@m@~ `e@ @@ ~ ?  ~ @o@ @V@o@~ e@ @@ ~ @  !~ `o@ @V@`o@~ e@ @@ ~ @  %~ o@ @V@n@~ e@ k@@ ~ @  (~ o@ @V@ o@~ e@ q@q@ ~   ~ e@ ~  n@~ f@ m@P@ ~ ?  ~ j@ ~ m@~  f@ m@T@ ~ @  ~ k@ ~ m@~ @f@ ɾ@ɾ@ ~ @  ~ k@ ~ l@~ `f@ r@r@ ~ @  ~ k@ ~ `n@~ f@ ˾@˾@ ~ @  ~ k@ ~ @n@~ f@ z@z@ ~   ~ e@ ~ n@~ f@ {@{@ ~    ~ e@ ~ n@~ f@ @@ ~ @  ~ o@ ~ m@~ g@ q@q@ ~   ~ d@ ~  j@~  g@ i@В@ ~ ?  ~ j@ ~ i@~ @g@ i@Ԓ@ ~ @  ~ k@ ~ i@~ `g@ Ⱦ@Ⱦ@ ~ @  ~ k@ c~ h@~ g@ r@r@ ~ @  ~ k@ ~ `j@~ g@ ʾ@ʾ@ ~ @  ~ k@ ~ @j@~ g@ z@z@ ~   ~ d@ ~ j@~ g@ z@z@ ~    ~ d@ ~ j@~ h@ @@ ~ @  ~ o@ ~ i@Dpl~  h@ @X@$@ ~   ~ @X@ ~ @X@~ @h@ @Y@4@ ~   ~ @Y@ ~ @Y@~ `h@ @Z@D@  ~   ~ @Z@ ~ @Z@~ h@  [@\@  ~    ~ [@  ~ [@~ h@  @]@t@  ~    ~ @]@  ~ @]@~ h@ @^@@ ~   ~ @^@ ~ @^@~ h@ @P@@ ~   ~ @P@ ~ @P@~ i@ @Q@@ ~   ~ @Q@ ~ @Q@~  i@ @R@Đ@ ~   ~ @R@ ~ @R@~ @i@ S@ܐ@ ~   ~ S@ ~ S@~ `i@ @U@@ ~   ~ @U@ ~ @U@~ i@ @V@@ ~   ~ @V@ ~ @V@>@7 Sheet1ggD ThisWorkbookSheet1FrmCalendar SFrmCov9{ !"#$%&'()*+,-./0123456789:;<=>?@ABDEFHIJKLMNOPQRSTUWXYZ[\]^_`acdefghijklmnopqrtuvwxyz{|}~5##xME (SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2ert StyleDr@Arial f05ArialN  $8ComExit0 (_0LComCtit/=5%$m24Lab3RA(n24LabTb0tB, 0@LabFontNamey[+*, 0<LabFontName0EU+*(2<LabTm0t O$#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 @Xx@ 8@ "HPX "`hp08.P  "&( @Pp 8*@px  " ,8@Pp 0(H(P(x LCOxME(S<S<S<S<0{2B50DCAE-4961-4559-96C2-1D6FE54EA373}{CBE3BDB7-19A8-4F90-A6CE-C4F5EC741C71} @ : > T l@     @  4  @    @    @    @    @    @     @         @    "  (  ,@  0  4  8  <@  @  D  H  L@  P  T  $IX  IZ `\X% %@8X  "" " "6(8@Xpx" " ( 0 H P X "` *h   0  6 P h        * "@ h p        0 H J`          ( @ X p    &  h hx " 0HPX`08 "@HXhx "  @"H P`" " "  @"H P`"  " "  @"H P`" " "  @"H P` " " "  @"H P`" " "  @ "H P`" " "  @"H P`" "  "  @"H P`" " "  @"H P`"  " "  @"H P`" " "  @"H P` "     (8PXrh  (8PXrx (08@H X !  $" & (!* ,$$'Z .) .$0!2$"$" .$0(2yhk`X !6$4) !6 (6k +Da chinh ngay cua dong ho may tinh la ngay !6A@8$" ( ko@A@<o@ B!DO J B%H c du lieu. $L)Dong y ghi ngay vao o dang ngay/thang/nam NLich 1920 - 2099$8'F FG|jk dd/mm/yyyy P(R &!* (!* ,$$ B(D|x@p A@roX B!D* J B%H c du lieu. $LDong y ghi ngay vao  J B%H : $L  !6 $ NLich 1920 - 2099$8'F FG|jkP &!* 'V (!* 00$'X ,00$'Z & (!* ,$$$^'\ B!`!$VNIKT \ b%d'\ thang 'f nam 'h.VnKT( \ b%d'\ thng 'f nm 'hS2 \ b%d'\ thng 'f n$jm 'hn \ Z f X h V B(D|@ A@roh%Set sDt = ThisWorkbook.Sheets("DaTa") .3 . &B@n . . b%d (B@n$r$p',$r$t ((*$r$v &(*Gio phut .< . G . 00$ xB@nj .00$ zB@n$r$| x(*$r$~ z(* !6 J B%H (6 !6 J B%H (6oX@A@o@A@o( x!*$r$| z!*$r$~  !2 x(2 !2 z(2d$" x(2$" z(2ko &!* $r$v !2 &(2d@$" &(2k A@o@ (!* $r$t !2 ((2d$" ((2kA@o (!* &!*G|j (!* 'f &!* 'V V f$$$^'\+ thu dau thang V f$$$p' \G \  'cG \ 'j thang truoc .   .$0(6$" .$0(  .$0!`( !2 .$0(2  ' .$0(#cuoithang=ngay cuoi thang dang chon V f $$$p''thang hien tai .     .$0(6$" .$0(  !2 .$0(2 .$0( .$0!`(  , .$0( !2 .$0(2 & (!* $$$r$v$r$t$r$p$$$" .$0(2k0k(  ' .'' thang sau . )  .$0(6$" .$0(  .$0!`( !2 .$0(2 .$0(  'H & (!* ,$$$^'\ \ b%d'\   \ ,00$ thang  (!* 00$ nam  & (6 B@o & (!* ,$$'Z xXD zXD$'$" x(2$" z(2 .) .$0!2$"$" .$0(2yk !6$4) !6 (6kh,Da chinh ngay cua dong ho may tinh la ngay : $L !6 $j $\ x gio  z phutA@8go$r$p',$r$t'f$r$v'V ((*$r$t ((*$r$v &(*$r$| x(*$r$~ z(*o@ !6', ! !`!A@o !6', ! !`!A@ox !6', ! !`!A@o8 !6', ! !`!A@o @ !6', ! !`!A@o  !6', ! !`!A@ox  !6', ! !`!A@o8  !6', ! !`!A@o @ !6', ! !`!A@o  !6', ! !`!A@ox  !6', ! !`!A@o8  !6', ! !`!A@o @ !6', ! !`!A@o  !6', ! !`!A@ox  !6', ! !`!A@o8  !6', ! !`!A@o @ !6', ! !`!A@o  !6', ! !`!A@ox  !6', ! !`!A@o8  !6', ! !`!A@o @ !6', ! !`!A@o  !6', ! !`!A@ox  !6', ! !`!A@o8  !6', ! !`!A@o@ !6', ! !`!A@o !6', ! !`!A@ox !6', ! !`!A@o8 !6', ! !`!A@o@ !6', ! !`!A@o $!6', $! &!`!A@ox *!6', *! *!`!A@o8 .!6', .! .!`!A@o@ 2!6', 2! 2!`!A@o 6!6', 6! 6!`!A@ox :!6', :! :!`!A@o8 >!6', >! >!`!A@o@ B!6', B! B!`!A@o F!6', F! F!`!A@ox J!6', J! J!`!A@o8 N!6', N! N!`!A@o@ R!6', R! R!`!A@o V!6', V! V!`!A@ox ]@$r$| x(*$r$~ z(* Z (!*'\ ((* \ ((*d X  (!* (!* ((*d &!*Thang 1/ & la thang dau tien cua lich ! $LKhong co lich thang 12/ & A@8|k ((* &!* &(*kd (!* (!* ((*d &!* &!^  Thang 12/ & la thang cuoi cung cua lich ! $LKhong co lich thang 1/ & A@8|d ((* &!* &(*kkkko Attribute VB_Name = "FrmCalendar" Bas0{2B50DCAE-4961-4559-96C2-1D6FE54EA373}{CBE3BDB7-19A8-4F90-A6CE-C4F5EC74 1C71} dGlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizD P Sub LabChinh_Click@() If .ForeColorRQB(12) Then D#=SE@al(Cob, Thang.ListInde@x + 1,-NHgay3 . n,0 To 41( ?Controls(n).BackM 7 f 15B ExitEndÀNext@Right(ș.Caption, 1) <> ")"?0 @4MsgBox@ "Da c_ nE cua dong ho may tf la" & qk0@?@} AAComCtǀC$hu!Tr c Ghis O n ErrGotBaoLoiBActCell.ValueRQ aaMD("O :H Addres s(0, @xl A1&c du lieu.!Chr(13)$_-"D!)y ghi(vao oL dR/tS/nam", vbYesNo, "Lich 1920 - 2099^"GC`?6b? I")#If Seleon.N umber[mat"dd/mm/y !gkf@i4A[".: Unload M`z8ThuG8 5,= 54 4g Ǭ4?<" :>|#cMidty2)?>>G@<6 BLA"00Lb= G(zkC@Rthu1@ Weekday(AOj YT CaLPeft(8F.1A, 3@b"V$NIV sDt.xs(30,d4a`ka"aB`$`nam @# .Vn. 4< wEx (5o o%W(259qE"b4>`+< &#G&ng1* pam@O?;?;={UsE_Initializea{'Set  "ThisWorkbook.S@heets(fTaA&(Bw"N@Z1NR4,VItem }Cq2Az13c,W!Pr20 4,0 D +Now()9%obm0E'h(#WЀ^5= Ye ar8Q 'Gio phu|  60 ")"f{F7If MsgB@ox "Da inh a dong ht!la:!IChr(13K_|HU& @WdString(25R  Q#4" gioeM2bp`9"C KMBRLF= N _uQ .= SA.(= -`K ]*=V 2z`9Z1920b+jHou5\q Minu@/\7#7@_11O= 3 5Tabf,UY>X_12_T2_12.\2._DR3_T3_13]n3_0K 4_T4i_14]4___,15_T5_15]5___16_T6_16]6___17_T7_t17]7_P2,>!210[&w_&_2,U,_2,__2,Uy,_2,__2,U,_2,__2,U,_2,w__2,U,_2,_d?2,U,_2, j+3,t3,_0,w?3,U,_3,__3,Uy,_3,__3,U,_3,Tld End Sub Private` Lab_35_Cli@ck() 08u Ed#N amz  Ms@gBox " 1/" &!`@" la t1 dau tien cua h !hr(13)Khong coS12 R 1Exit#If1OP1R + < 11*!` +%  b%Count':>:& Hcuoia__hZ M$((0%;8q q  hx"      ( 8 H$X "  (0@"HP`pX Lh"    ( 8 @ P h p x                ( @ ` p     "    * *@ *p   0 0 0 P X x         0 P  X h "p  x   * * *HP0h000H `  " (@*X** (@ Xx   "  8*P**0 Hhp   " (*@*p*00 0P  0H `  " ***Hx000(0Ph  ( 0@ "HPX "` hx" @ "<(hp    "  8,P( "  * Ph p   @P@LGG_xME(S<S<S<S<0{4AEB87B9-601F-4B35-AE01-ABD8F10EECB7}{B5A312F9-E153-412C-9612-569F7B292DFE}h b0`d`f`h`j`l`n@ @. `p `r `t @v @x z /``````` @ @ x`` &Id If  xpP  xpP  xpP  :8 x  l 8 '@ *     P &  (  , # 6h 7@8 Font B I`f!  0 (  %X 0  %p 0   0@P` "x*(@PX`h x$   2&B@ "" 8 X hx &V@`px    (HX` h"  (8 "@ HX hx &  0(X "` hx  8 "@  H  X  h x     "      !$! @! P! `! p!2!!.!" "" " " 0"@" P"$`" " " " """ ##<#.X##:### "## # $$*($ X$x$ $ $$ ($ *$ % %@%X%p%%%% %%% &"&8& @&`&h&p&& 4&& "&&& &' '0' 8'H' `'p' x' '"'''$'( 8(H(`(h( x((( (( (( ))2 )X) h)2x))0))** * 0*@* P*`*6x** *D* +0+8+ P+`+ "h+p+ x++ + +++(+, , (,$8, `,(p, ,&,, ,, ---(-H-P-0p- ----...8.@. `..p......//0/8/ X/*h///////00080@0X0`04x00 0 0201@01p11 1 "1(11 1 2 2 20282*H2x22 2x]]8Ph*]Z])]0](@Xp |!D'.  ~!^  ~%'j jABCKABC?KVNIKVNI?KT  ~%X  ~, . '.kn (* ( B@FUnicode B@n (* ( ( $L  |!6cc .$' b%d@ .$'  $L b%d@ ~!^ . $'dp  ~!^  ~,0 ~(*  ~(*koFont Convert Executing (6 LabRun.Visible = True ( |( !D] ~!*' |!D'chuyen nhieu sheetA@dchuyen 1 sheet $L$\ b%d@ ~!* ~%$' @ !D$'  A@k ~(*  ~(* !De]  !*'  !^  (*A@ (*  (*dOptTm.Value = True]8P]h !D'  !^   %G 'j  (*A@ B@ B@B (*  (*k ( ( |(Font Convert Successful (6 A@rohX] !!']  !! $! $B@  A@k $B@o]H` ~(*  ~!^  ~%????  ~%UNI  ~%BVd $L '  ~(* $L b%d@ ~!* ~%$' @ !D$'  A@k`XoPx ! $" $" ( d$" ( k $L ' `B@ dUnicodeKT f VNI WindowsA@dA@kx VNI WindowsKT fUnicodeA@d8A@k(S  fUnicodeA@dA@kn f VNI WindowsKTVNI ~!* ~,UnicodeKTUNI ~!* ~,ShABC ~!* ~,n@o8 (]8 t  b%d +#Uni  b%d +#Vni  b%d +#CodeX   b%d : +'Uni  b%d : +(Vni  b%d : +'Code VNI-Times d!`(  $'v $'x v x dB@  $'v $'x v x dB@ (ox (] t  b%d +#Uni  b%d +#Abc  b%d +#Code   b%d : +'Uni  b%d : +(Abc  b%d : +'Code.VnTime d!`(  $'v $'x v x dB@x  $'v $'x v x dB@ (o (]8   b%d +$Vni  b%d +"Uni  b%d +#CodeTimes New Roman d!`(  $'v $'x v x dB@  $'v $'x v x dB@ (o x (]   b%d +#Abc  b%d +$Vni  b%d +#Code .VnTime d!`(  $'v $'x v x dB@  $'v $'x v x dB@  (o  (]8 t  b%d +#Abc  b%d +#Uni  b%d +#Code(   b%d : +(Abc  b%d : +'Uni  b%d : +'Codex Times New Roman d!`(  $'v $'x v x dB@  $'v $'x v x dB@x  (o` x (] t  b%d +#Abc  b%d +$Vni  b%d +#Code   b%d : +(Abc  b%d : +(Vni  b%d : +'Code VNI-Times d!`(  $'v $'x v x dB@@  $'v $'x v x dB@ (oA@<o8 A@rox  Font Convert (6#Want more script? Check out at www. .com (6oA@DaTa %.b !%There's no Excel for working ! Finish WarnA@8dUnicode B@n VNI Windows B@n TCVN3-ABC B@nA@k0 ( (Q (o B@  ! $! B@n $! !G  'jx !   $' X (*o88( !D$B@ !*' !' ! b%d@ !$' $" ( d !' $" ( k`A@ ~B@]x !!'  !! $! $!'j j G  'j j$B@ j ~B@nA@ d ~!^  ~, !BV ~!^  ~,d8 ~!^  ~,kk$dB@H $B@ X ~(*o B@ !.p !'j p j9 *.xls9   7 5!'. 5! 7 j $ B@n kq .X   $ 'o (  !^  %   $B@  $B@Byk \  B@A@ !^ (*o  "( $( ( ~(* X ~(* |( |(Do@P "( $( ( (* ( B@FUnicode B@n (* ( |(D |(  b%d\ !^$' $L ' ,  b%d$'o "( $( ( (* ( B@FUnicode B@n (* ( |(D |( $4. $L  ' *(d  b%d($\ !^$' $L  $L  '  '  $L  b%d$'k o  ~B@ ~( ! b%d@ !$'ChkTm.Enabled = Falsed !'ChkTm.Enabled = TruekH!LabWorkbook = ActiveWorkbook.Name#'LabWorkbook1 = ActiveWorkbook.Name !' . !! .$! .$!'j j G .'j j$B@ j ~B@nA@ d ~!^  ~, 0dd$d%.B@H 2!4 2(4BV ~!^  ~,d ~!^  ~,kk$dB@Hp.If LabKt = "0" Then LisSheet.ListIndex = i - 1o0 ]P $" (  ('F': (* ( ~!D$B@H ~!*''l====== ~!* ~%BV <$d%.B@H r P r$>'n nG n'8cG r'8j l 8$@ 'l l'. . Gyj l$@' ( ~!* ~%UNIKUNI?KT (*VNIKVNI?KT (*ABCKABC?KT (*S $d!`! (m ????)'$ (* ( b%d@ ~!D$' $L '  $L  b%d' $" ( nd (* ( (* ( $" (  b%d $L b%d' @ ~$' ( $L  b%d$@ ~$' *(k$dB@H (Doh ] |(D' ( B@A@ myFont1 ~!* ~%'j .$d%D!`!'f f !`( dUNIKT f (m Unicode)'$VNIKT f (m VNI Windows)'$ABCKT f (m TCVN3-ABC)'$S( f (m ????)'$n !*KT dUNIUNI ~!* ~,dUNI? ~!* ~,' thay font Times New Roman - m Unicode':Times New Roman !`(k8 VNI Windows B@n TCVN3-ABC B@nKT dVNIVNI ~!* ~,dVNI? ~!* ~, (& thay font VNI-Times - m VNI Windows': VNI-Times !`(k8Unicode B@n TCVN3-ABC B@nKT dABCABC ~!* ~,dABC? ~!* ~, (! thay font .VnTime - m TCVN3-ABC':.VnTime !`(kHUnicode B@n VNI Windows B@nn d ~!* ~%$" $( ':d $" $( k l$@ !* b%d@ ~!D$'kH (* *( b%d@ !$' @ !$'  $L b%d@ $' @ $'op==================== $d%D!`!'d d$VNIKTVNI'd.VnKTABC'dS d$F't tGUNI'dcG????'djn ox p Attribute VB_Name = "Frm@Cov" Bast0{4AEB87B9-601F-4B35-AE01-ABD8F10EECB7}{B5A312F9-E153-412C-9612-569F7B292DFE} GlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD O@ption 2licit Dim vtChr() As In teger myFont1 Sng,  2  %DLie"uErri,$ nfsObjectcel&lGktABo oleanB'indRep7P@JA@L Sub ?AllSheets_C@Ak2()  If .Valuri The$ n@m0 @ For i @To LisB.tCount h- 1 KB=U(81 S$el7 Cmy "ABC", ?VNḮ?@A .2)&""-C 5 3 X7n +/ End@$C+Nex CobNguon?Index-B?EnH Dich.Cm r:AAddItem "Unicodebt% 0 LabAM.VisiJr b `Tb1^1! & " @& Fl{(,E.Ca"g@1cc@0n7 0sDt.CTs(14, 201) @& H1J7LE_RFR* E@B-:j:R(``#FBFubIqComChuyenpapOrrj0Resu CMe/,"`Envertecuting ':Run=Fr1@-<DCzriShyt L}?b'e O 'c" nh!sa cobf? F1 @1!7 &$(@IDL) S\gM20wM(>, 0 [ %a_tWi@3!g+a",!}Gp F@ ~ \Wk0, iWknB=Q AG _= 0!`$1 `u4qAeNQ%8 fU?1 C!-Tm%a{iЉP~s!qqrPat2,iTmTmt1bg_QkKID(`1)bk =adobdvQSAct`Workboo k.SavR: Cl0!/hNS/FNHI?HjO(OSuccessfulOUnload M WVCVe A"Cur(a[@&w\.I 112ys.2:#(bI)x،|@Q ";E#u).@ck';aidDm /2!CjD`(i@2?" Orͥ=UBV7SS,PW T^b"Гٮ8d(_ϑf'fxfabmftS2If/!߁ +!v (KaѻS2`ab .eCol= QB(0CM_or(9peo^qc.0ainq UcWɶ 2P" fdows08Vni7ov`Abcb$ #kPҾ5> CovVniUni 0Else8AbcXnd If CaseIf myFont2 = "code" Then_~, EaSelect  laz"VNI Windows">LisSheHet.t( Index, 1)?7/Q)?UNI 6=ABCoub uub() Application.Scr@eenUpdngcFaDim >C(1 T`o 134t3!For i ,16sisDt.Cells(@2) 'i = 15) v'n 3X ' NextI$75,92J% - 58&N& @-_'D ((C..0NamePA-TimeKU34/@ C1@` xRep f].lace What:=, Dmen, Match:=T|ruSBSW#myK#2)<Vr^^^7@3^ ^c10`^U, ^ f^g@^ew^rp^.VnA^@k*?^ D?^?^?^o?^lsor?^Դ,^Sc`]]92}!k3Aq&\T_'1b.>^$"S New RomanN% oT O%KoTLoToTo[FN]O%w2ra  oTO]poT8oToTf%oTo%@ve(iv o|sT@/Ϩ˨T&z%./KcMK///g 7//ep]ǿ///$z/Pz/zoQooضT////=|d(///92 LisCode(i - 58, 1) = sDt.C@ells(iD0@) 'Abc2EZ5ZVniZ3Z,~ Next t.Fon@t.Name"VNI-Times" For i1 To 134dmyFin.d)Re:p 3elace What:=#, men , MatchCase:=T8rueVF:my %F2FApplication.ScreenUpdng:[ESub Private  ComCt_C @k(@$ChuongTrinh " Exi Unload MG !InitMe0.Cap)A%heOrg & " |"nvertz LbAdvH "Want more script? Check out at ww(w."TF.c om/User om_%iali zeA'A SetA(isWorkbook.Sheets("DaTa"IIf  s.Cou(= 0 nAMsg Box "re's no Excel fwi@f! ish", vbOKO nly, ;rn).lsS EbNgd.AddItem "UnicOQ@ WowsTTCVN3P-ABCD b=If LabRun.WidDth 275fH eight30Top 81EE ,Co .ClearLz)(E&(i)Ba)1Active%3 WA:`  D;& Mid(&, InStr(1,  7 ")AhC tIndex CInt@S# qOn Err FResu(.Value)."z3EDYc$))# .Pa@""sf[ Tm A(2"201)`!>@Z, a`abTmreCol!= QB"(1E$_ >N9$,YbOTmisDODim Curb@$"C9,W,$TCSVisibl* my@JG& 2_""O=@- Y Bs(BBa ADRcKiemTraX,%3O w?` t{f$ProtectCus0!(#"BVK "z !t)A"q1"ҁ=1).SelP a3`U#7 ]? 4)~Sx$*Q1*hf}FileSS>cy'; $Wip;fsq.LYlIn.qnaD*.xlbp.Execute(@SortBysNo!!), O0rderAscendm) >p :und11 H?0PLpe`XP5pXe"n. + R ¨WqbPgRPYn)W^TmN^!"1^, 28H_oPN\IDisplayAlFa"O%`oqPy. 0 p  DKi,av„ G0+.CloP0@a,g.OpennQG`\ab b,p Tp( CKOptB3aIy'0.;TabDLieu/;= -L  @F%Ah i3i ).BDdiCD.ecKiemTraFon E E wEB - =iBymy1 l00|00).SpecialxTypeLastaelec W.Number > 0(# aZE= 2bBVea&((Dq`g&#b".Sdo'6Kt4"0chv i*6|E_ Click}Dim FKytuyb0.@ReColS= QB"(DLieuLO_"":a90aNguon#-`=szrRBg?"Fa myBD'= *Rk7@) <> " ?fI*5SConstants3iT!~PEach.c 8In = `myǣ' (myb> a$Amy8#ASf%  "& Trim esaILenBnp5655 Exit 0 1*5abu  G2/ Case;-ox1!"UNIba?5fF ?V`H"IABC1`2V a11qXP9$.&@(m ?) 4GX9Tb)2*Œvr4#45Tܕ"Tg & nȓ3 /GoP2P%)!VOT  3z2X, R4& T&v+F29aϲV+j#@7h02 As ing BghmC 'p }eGc2Characte0rs(nq#nt7= ?=Z cP& CPN!3DuCCN$" WindowsAO KTCVN3- ; 02 O?u#QH0}!a(u 6az=`]thay f Times0w Roman _j]a0a8 %0ȲN3-ABC" Case 1 If myFont1 = "VNI" Thenh Lis@Sheet. t( 4Index, 1)lbEls*e.r? LabDLieu.V@isibleXT$ruOabErro thay f -Times - m Windows W@.Nam,ǁtEnd]CobDich.AddItem "UnicodeTCV2!&.VnT@TT8i?S :SrndSelect TŰ)A}.Fo@reColoQBB(0)XD D1]12@)Trim(my±BGӀReplace(sDt.Cells(`Nguonڂ + 6, 201), "@",ValueE"t= 0omChuyen.Etnad T$b020jActiveCA(}A~< NDWorkbookBnf& Chr(@13) & /"2~2*$?%d"$Sub '=Private  KiemTraF(g51.Characters(I cV C!LeftA3 ¬N,"iiMAǶeSkt@8VnasetSuppor @ b>"IUAa ?_eop(FrmSo  LFrmTb  Mod_Funcv__SRP_2C+Kiem tra bang tinh bi khoaP B!ZF# $L  $\ b%d$$ $L  $\ b%d%$ P(TT P!T@ X$ P(T P!T@ B%H$ P(TO \(RTU P!^(\ P!`(; $" P!T( S PB@V32\kk (bS\ P!d! " Chon nhieu # $L  $\ b%d6$ $L  $\ b%d8$ P(Tl P!T@ P!d!$ P(T P!T# J P%H$ P(T\WB $" P!T( W PB@VTEMgk J B%H'duic B!h'fF B!l'j\; B$@ O dich co du lieuCom# $L  $\ b%d4$ $L  $\ b%d5$ P(T P!T@ d$ P(T P!T@ B$ P(T $" P!T(  P!^( PB@Vk( B%D!`!$VNIKT VNI Windows'n b%d'p.VnKT TCVN3-ABC'n b%d'pSx B%D!`!$F't tUnicode'nd(???'n $" n( ComGhiSo.Enabled = Falsekn lap lis cot  J $d%H'j j j $ rB@nPkiem tra so trong o '. t f '. < t$d t$d$v%.!'. . x t$d t$d$v%.! '. .  j t j$d$z t j$d t'| j r(*yk |Gyjk 2(4 |p ~(D b%d@ d$ $L T'T B!D b%d'j j@ d$'j j@ B$'j j $L T'Tkdtim thay number j r(*p t'| ~(D B!D b%d'j j@ d$'j j@ B$'j j $L T'T $" T(  d b%d@ $ $L T'Tkk B%D!`!' B%D!`! !`( B%D!`! p!`( B%D!`! !`( HB@o A@rxo ~!D ( (D ~!6' R(( ( (|!DA@dX (D ~ ( !6'% R(j (AB'' (' pDocSo $' NhomNgan $' B@ b%d'T $" T( UnicodkHo@o0HA@o $'! p  n$''  b%d'T $" T( Ld b%d@ $@$'T$" T(  ~kHo@ -KT G'j09LT*S'no0A@opA@o 09LT( 0 |# Frame1t$4 CobTm1tjJW, 2\ LabCobWinme0A(2h LabCobTmJ(0 Label4Tm>+*(2dLabel6TmdA, 0HLabFontErre0T<,(08LabWbook**(08LabSheet*,(0@LabTb1etR (0LLabDLieuS (08LabRunP |X `:T!xMEPS<S<S<S<<<<<0{F722F4DD-7B5D-4C7F-BFF8-06BB69A750B8}{B691488E-0AFC-45E4-98FD-9C0F3C696B1A}H`J `L lr`Nx   H   0 )(@ % p   ) % X    X)x%i -   ` I I t CoIn e sci     I @no EI `In Unici  ows 0%8 %0} " ($@h ,r8 P` h.x(@.h   &8(2  8HPXx*(P x & ( @Ph$    ( 0H$`  8>8 x0   (  0  @  P 8`        8 P  X h x      8 @ H P &p & &   "    " (  8  H  X  h  x              $ &H  p     "  "   "   0H`,h "   " (0 "8@H " PX `p2 " " "(08"@HX,x "  "  (8H0X(( ((PX`h((( ((P$h&$$(08@ HX `p x ", " 28 p .  B 0@HX`hp$,@ B HPXhp0@HX`$hB ""( 8 &X   &@X(h  ^ x"(&( (Hp&&,2 X&`, ]0]pXDaTa %.b  Doc so tieng Viet P(6 S@ R( !'.\S .Khong co bang tinh dang moWI $L  $\ b%d $L  $\ b%d P(T CO $" P!T( ; PB@VOGRk !'XOM !'dh | $L$$ G'j nhieuk(S 'noA@<oXA@oA@o ~!D |X r!* $d'j p |X r!* $d n$'dP p  n$'k0o('o (*General B(R* 2(4 ~!DVa !D J |X r!* $d%H'j !D n VNI WindowsKT%" & DocSoVNIH( j) & "' TCVN3-ABCKT" & DocSoABCH( j) & "'S " & DocSoUNIH( j) & "'n d n VNI WindowsKTcess " & DocSoVNI( j) & "' TCVN3-ABCKT " & DocSoABC( j) & "'S " & DocSoUNI( j) & "'n k " & NhomNgan( j) & "'=" p"'j jDocSo  $'j ~ jNhomNgan  $'j?? j"" & $'j j & "" $'j$L j & " & & $'jd 'jk j B(D d  B(Dk A@r !op ` ~!D p |X r!* $d n$'d p H! n$'$"k If Len(LabDocSo) > 350 Then, LabDocSo.ScrollBars = fmScrollBarsVerticalI WindElse( LabDocSo.ScrollBars = fmScrollBarsNoneEnd Ifodeo8   'J !D n VNI WindowsKT J$'L TCVN3-ABCKT J$'LI S J$'LIn d n VNI WindowsKTUNI J$'L~ TCVN3-ABCKTABC J$'L~S8 J$'Ln k DocSo L $' NhomNgan $@ $'i 'J !D n VNI WindowsKT J$'L TCVN3-ABCKT J$'LS8 J$'Ln d n VNI WindowsKT J$'L TCVN3-ABCKTVni J$'LdS J$'Lnk DocSo L $' NhomNgan |X r!* $d$ $'vi  $" T(  mau xanh=9'RF' r |''ComGhiSo.Enabled = False Kiem tra dong, cot, trung o dich | r!* p' | r!*???'%d |e r ?' b%d$'T T b%d+$'T r!*e? |' b%d"$ !'Tkh  deUni p' b%d'T T@ $'T r |'d !G \(j.VnTX If ActiveSheet.ProtectContents = False And LabMa <> "???" Then ComGhiSo.Enabled = Truegan gia tri cho LabNguon |X r!* $' |X r!* $'R' b%d@ $'Td |X r!* $d'R |X r!* $d$@ $" T( + b%d@ $'T |X r!* $d$zed$" T( #Co |X r!* $d$'( b%d@ $@$ 'Td b%d@ $'Tkpkh p |X r!* $d n$'k0o( DAttribute VB_Name = "Frm So" Basp0{F722F4DD-7B5D-4C7F-BFF8-06BB69A750B8}{1488E-0AFC-45E4-98FD-9C0F3C69 6B1A} GlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizD Dim sochuyen As Vari ant,  so1 P26 Sub UserForm_Initialize()(tbByteOn Error ResuNext Set sDtxhisWorkbook.Sheets("`DaTa"&Tb.Caption Re\ & " Doc. tieng ViethLabNgu@on.Top 7`6.5 As .Coun@ IfB 0 Th@>'Kho@co batinh dAmo ! Tb@Chr((13)!Sng(10,#"A5.Cells(4`, 197 _i 5 L.!@ZeColQ= QBB(12H'Show End If mycR+ActB.A @> ProtectContpents Ei@em traEbi khoa(FA<.LockB)OLeft(GPU203), 3F6Q1)MidS7%Regce((<`9@", D(1{@.Cd+"Address(@D0)ComGhiSo.En!rh{ C`2.Visi1a.-gF!F %GA@pplicao.ReferencPeStyB1HS 1GC`j nhieu ah,L#h A2, A54Ai@6"0 W@C?abTbA#H'@, xlA~1Ah|5g}OD8ich@*N hRow: c# umn;Trim() <> ""c; 'O d du l` "A>ߴH>!}A oobZ=;3se8$ C!2w.Characte0rs(11JntB^S`B"VNIɀq Ma WindowsTxtCacht=AykD3 c.VnkTCVN`3-ABCO'\3;DE kVn setSu`pport& Fi pg"(Unicodeǂ 5???$ 'Z Uq 'lap1s co`p{ iP0Qo 25v6 et8ai ).ACobCotItx @, Len()0 - 1'ks%{trQ R r1r1 ToZStep -]  Re(3 r%,  )).SpeccxlqTypрnstPsR)n + l mula npg mMp nAt IsNricHc))r%A cO#a3D!= r 1 TListIndex cwExit $s@ Wu3.0 be%r0C\xt [OptSValu0B%qVySZap hJC  +'ԕpo%%[25b?bB`/& C@@t`thay num1Ot8m!r d.Q S Y0Babytb_TWT:X&%RC%LabTb End If  8Font = ActiveCell.Characters(@1, 1)..@Name `D0ocSo&'vTx`tCach?4=Nguon1;FrmYRepaint ~Su Pr@ivate  ComExit_Click() Unload M{ OptEK_ngeIf .ValueTrThen€CThuc.Enabled  Loai-Captio(Visi)( Fals4 FraDi`aChi. yDongCoLD .huo 6 .4.hap...RCNhomNgan;""8I=@laceF( D, ""@, , vbTeompare ; ,=SetFoHcus7Tb%s8Dt.@203ETbreColor QBB(12}XE^IcaN6Gcq_^?vjEc!)7 " & %-U&ChuyenSoT*2 ,. &g = 08 To 57E#"Hbb Bf Փ A`'o_'_'N! %48 AP *d(@:!\bChr(+))) > 65536[o Hb;3pepC ,nh?7o P350 '.ScrollBa$rsffmVertical&LNona'ECSub Function T(myAbc, consocsocI HoaSelect Case"VNI Windows" 4 -s߂qVnXiH(a "TCVN3-ABC @. qUG.22 Z2  2 z@rReplace|"^"~z, , vbTComparec, "NhomNganTrim,SSSAN?:SVSZS.@3B1S?mLmbcSA"&SS`ShhSKSER(åÿW WPrivate ݠ 9aΠ( Tb.ForeCol= QB"(12) 'mau xanh=9 @B"":Oa"RC`Cb & A ĀvGhiEnabHledFab'Kiem traL d t,ung o dich$ "" O r C = -1D؊!T@* A[ R "???^%c@"& cTb Left(sDt.@7, 2032&2)ab& Mid, 43? )Bt "= R 34) !D\pD_ Qr'8#%a2@[RC2 /VdrA@veSheet.Prot`Content' $m)Ap+ t~$@ Ma <> "/ '@iP gia.io}5ga "Rc)r"B: 19'#ѧgt" "U6,"" 0//#|{ ) 4 OorOs13)  IsNri//"q " 0 X B>_e?4 /r 14^B:C# |#FlP(uo֯33 #:BLԑ>xME(S<S<S<S<0{C2DBCD72-B687-41F9-9881-253EBC74A3FF}{8E91E4B5-9D0C-4AB7-8F3B-AF869A91EC7B} @ % %@ "  (>8 x "    (8@ HX ` pKet thuc`' `!6l b%dK b%dK b%dKT A@rxSpghn`oX@Tiep tuc8 ^!6j b%dKT' A@r b%dKT' A@rS' A@rnoAttribute VB_Name = "Frm Tb" Basp0{C2DBCD72-B687-41F9-9881-253EBC74A3FF}{8E91E4B5-9D0C-4AB7-8F3B-AF869A!6C7B} GlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizD` P Sub Com1_Click() 'Ket thuc On Error ResuNext chonX0 Select C!.Caption  sDt.Cells(12, 199),* 3 4 Unload, MBEY End  C)ub525 'Tiep tW52220(B1+H:~1c E8XJA < <X8 jX @˜B%xhhhh hhh h8hPhhhhh( +p( i H) hpA%iiiL (p((iHihi+"LpL i$+(hhp(h i$Hi +*` ir `,+F`   i, .X%`0`2 4+:`i<(i>Hi@hi+>`I +h`(If HIj +` I +(` EEI +`h WWI +` HHI +H `(  KKI + ` JJI + ` EEI 0 @f@˜( B( (h`0 hH X  P` `( " 0J$*\Rffff*0<4a30f207(*\Rffff*0<4a30f207\0.  0 P p  H$( @(PH `H h B px B ,8Xhx B   B  (8 @P ` p      H8   2     !! (!0! 8!H!P!<X!! !<!!"" "0"8"H"`" h""""""""6"(#"@#h#"p###### B #X#B $h$$$($$$$% (%8%"X%(%%%%8%&&& &(&@&`&&&&H&' '0('X'`'' '' '' '''<' ( ((88(p( ((((((( ()))()@)P)h)6p))))")** *(*0* B 8*@*X+p+++2+++,(, @,P,"p,(,,,,8, -(-0-8-@-X-x----R-8. @.TP..,.. .. //  /0/8/t@// /\/00H0h0p00000 000001 181F@1"111111Option Explicit] ]0 ============================= Kiem tra Unicode ============================]D X ``^x^^^^^^^ ^8^P^h^^^ p ]D(h] r!`!', ,$F'*iX]@`x$"'0 XD .( , 8$6'4A .%$4 4 A@ 0 .I: 2A@ 0A@( 2 'Fi  '':iP========================== Doc so Viet Nam =========================="xxxxx $B  DY(KT#DIV/0!'> FY(KT#N/A'> HY(KT#NAME?'> JY(KT#NULL!'> LY(KT#NUM!'> NY(KT#REF!'> PY(KT#VALUE!'>nki#xxxxx f j$$d!D$B f j$d!D DY(KT#DIV/0!' FY(KT#N/A' HY(KT#NAME?' JY(KT#NULL!' LY(KT#NUM!' NY(KT#REF!' PY(KT#VALUE!'nkih $> $>' $ze 'd0  G-'RcG'Rj  !T%V#,##0$'  R    $.$'d R 'kpkhi` mot hai ba bon nam sau bay tam chnD 'X trieu nghn tyD'Z $@' $ze  Gam 'RcG'Rj  !T%V' ' ,$' E'    $$'\   $$@'  \   0$\'kx $@'  '^ ^ G ^  0$\ 'j'`''b_  $'d   $'f   $'h  $'j  ' d f h000 ` b    G ty'lcG'ljd d `G'ncG khong tram'njd d$X tram'nk f n h'pd` linh'pkHd@ fG mi'pcG f$X mi'pjk h f fG mot'rcG mot'rj h fe lam'rdx h$X'rk`   n p r'ld0 n p r b$Z'lkk b 'b b G'bj ` l'`   Gxj `Gkhong'cG R `$@'jdh 'kXiP( mt hai ba bn nm su by tm chnD 'X triu nghn t triu nghnD'Z $@' $ze  Gm 'RcG'Rj  !T%V' ' ,$' E'    $$'\   $$@'  \   0$\'k` $@'  '^ ^ G ^  0$\ 'j'`''b_  $'d   $'f   $'h  $'j  ' d f h000 ` b    G t'lcG'ljd d `G'ncG khng trm'njd d$X trm'nk f n h'pdP linh'pk8d0 fG mi'pcG f$X mi'pjk h f fG mt'rcG mt'rj h fe lm'rdp h$X'rkX   n p r'ld( n p r b$Z'lkk b 'b b G'bj ` l'`   Gxj `Gkhng'cG R `$@'jd` 'kP iH khong = " kh" & ChrW(244) & "ng"mot5 = " m" & ChrW(7897) & "t"mot1 = " m" & ChrW(7889) & "t"bon = " b" & ChrW(7889) & "n"nam = " n" & ChrW(259) & "m"sau = " s" & ChrW(225) & "u"bay = " b" & ChrW(7843) & "y"tam = " t" & ChrW(225) & "m"chin = " ch" & ChrW(237) & "n"tram = " tr" & ChrW(259) & "m"!trieu = " tri" & ChrW(7879) & "u" nghin = " ngh" & ChrW(236) & "n"ty = " t" & ChrW(7927)am = ChrW(226) & "m "9khongtram = " kh" & ChrW(244) & "ng tr" & ChrW(259) & "m"+muoi2 = " m" & ChrW(432) & ChrW(7901) & "i")muoi = " m" & ChrW(432) & ChrW(417) & "i" m$jt hai ba b$jn n$jm s$ju b$jy t$jm ch$jnD 'X tri$ju ngh$jn t$jD'ZStop $> $>' $@e' $ze  G$jm 'RcG'Rj  !T%V' ' ,$' E'    $$'\   $$@'  \   0$\'k $@'  '^ ^ G ^  0$\ 'j'`''b_@  $'d   $'f   $'h  $'j  ' d f h000 ` b    G t$j'lcG'ljd@ d `G'ncG kh$jng tr$jm'njd d$X tr$jm'nk f n h'pd` linh'pkHd@ fG m$j$ji'pcG f$X m$j$ji'pjk h f fG m$jt'rcG m$jt'rj h fe l$jm'rd h$X'rk   n p r'ld n p r b$Z'lkk b 'b b G'bj ` l'`   Gxj@ `Gkh$jng'cG R `$@'jd 'ki mot hai ba bon nam sau bay tam chnD 'X trieu nghn tyD'Z $@' $ze  Gam 'RcG'Rj  !T%V' ' ,$' E'    $$'\   $$@'  \   0$\'k $@'  '^ ^ G ^  0$\ 'j'`''b_x  $'d   $'f   $'h  $'j b$Z't  ' d f h000 ` b    G ty'lcG'ljdx d `G'ncG khong tram'njd( d$X tram'nk f n h'pd linh'pkd fG mi'pcG f$X mi'pjk` h f fG mot'rcG mot'rj h fe lam'rd h$X'rk   n p r'ld n p r b$Z'lkpkh b 'b b G'bj ` l'`   Gxj `Gkhong'cG R `$@'j $a $$v d $$v k`dX 'kHi@H  mt hai ba bn nm su by tm chnD 'X triu nghn t triu nghnD'Z $@' $ze  Gm 'RcG'Rj  !T%V' ' ,$' E'    $$'\   $$@'  \   0$\'kP $@'  '^ ^ G ^  0$\ 'j'`''b_  $'d   $'f   $'h  $'j  ' d f h000 ` b    G t'lcG'ljd d `G'ncG khng trm'njd d$X trm'nkx f n h'pd@ linh'pk(d  fG mi'pcG f$X mi'pjk h f fG mt'rcG mt'rj h fe lm'rd` h$X'rkH   n p r'ld n p r b$Z'lkk b 'b b G'bj ` l'`   Gxj `Gkhng'cG R `$@'j $ $'d $$v kd 'ki  m$jt hai ba b$jn n$jm s$ju b$jy t$jm ch$jnD 'X tri$ju ngh$jn t$jD'Z $@' $ze  G$jm 'RcG'Rj  !T%V' ' ,$' E'    $$'\   $$@'  \   0$\'k8 $@'  '^ ^ G ^  0$\ 'j'`''b_  $'d   $'f   $'h  $'j  ' d f h000 ` b    G t$j'lcG'ljd d `G'ncG kh$jng tr$jm'njdP d$X tr$jm'nk f n h'pd linh'pkd fG m$j$ji'pcG f$X m$j$ji'pjk@ h f fG m$jt'rcG m$jt'rj h fe l$jm'rd h$X'rkx   n p r'ldH n p r b$Z'lk k b 'b b G'bj ` l'`   Gxj `Gkh$jng'cG R `$@'j $$v dH 'k8i0(SAttribute VB_Name = "Mod_Fun" 'Option Explicit Dim vt As Integer$r"Dou@ble, c <'=4 Kiem tra Unicod==: PrivaConst LF_FACESI$ZE32Type LOGFONT lf HeighLongWidthY Escapemen Ori a!+ItaC,Byte5Underline SkeOu7CharSe Precis#Blip Qu Ety:PitchAndFamiBlFace(P1 ToX)End X\Declare cCnumFontiesEx Lib "gdi32" Alias _F"E A" (ByVal hd[, lpLogA"Dw,C DlpPro PparamB  dw7vVIETNAMESE_CHARSET@163O?Sub CopyMemory "7qCalpelfl#Xlpntd!K9lꋂ6= m$? @# Dso Vi`E& w rrC@l(c to #+ 'x If IsError5The7 SP@ct C@ [CV(xlPDiv  "#DIV/40! NAP'N/Aa15#Y?ull#NULL NumMRef#RENF@mue#VALUE# 4d Ifs%AIRc(r sP(c))J. e cdrrRcs"$ y/1N.%OrTMob.nϏA `)?$oaNhomNgan<24<> ""kPlse@!`0eric= Fa@E CA < 0 dau1!-" 1:ormat(Abs(Ap!r.Worksheet..Rg D b)`h"#,#x#0"B5E >d 4 H &` Repl,0 Mid(- 3, 1Q."!/ "u;;X`\SoVniA; s09pA@rray("" mothairbacon!namsaubaytachnalop3eBsngh3t yTrimu $hB "pIs>$True "am "& ""$_h` &E+ F ",A01b%͐=r(1`Vs, "Eq Y0& sonhavn `?(%0)/BX2Pt - 2C & #{(T- + 0d'coOnso) sochuso = Len(co Mod 9tIf> 0 T0hen String(9 - (p12), "0") &Vdoc""i|1lop Do n1Mid, i,, 12  +T 132ba Z3-Hi'3B{C& n2bn+"000"3 j<> "" And g3- i > 2s12' ty" Else  2o >==sD)" khong tra 35= € `d0 Exit cLoopa `bbDocSoV:n{"ca4dau Trim(`L eFunctionp e@ ADbcEAs   7`"Array(""` mthaibaDnnmsDubytchn"/ )C) `փng$h triM'b )d(?!+  ZIs@Numerif= True;1  }}Xx}wz}, }}}D}~}CM| 6}Pok 7}0p}`}}PBS)?\pb}om};e{o}}dP ѕPrat " m}}}R}A}YTo}o}e}o Sb_} ?ppg_}!§_}@!7F {`H*_} U,s_}Mz_} eZ}hkh@0I}se&hO}z1RO}E}' 6 kh"ChrW(244 ng/'mot5!7897O" m89bod" bEnnamn25!'s s25ubay43yt& chi c3 tr rieu"e&7873 B 0dyg36r sc g 79270n' Ѕ  "S9muoiG43rF790U=G'41GUnit ߏf%p x4&#"m", " s" & ChrW (225)X"ub7843`y`tch037`n") lop3 = A@rray("riV7879,vtng F6Fw7927)Y'Stop If ErrCell(conso) <> "" Then DocS0oUni ' ElseTriJm=""IsNumericTrue8(D < 0 dau>jm? / pplication.Workshee tFuncRound(Abs?X, 0"-&%*Replalce,b1 vt@(InStr(1,EApl @4>3 sonhan Val(Mid + 1g #XH 2, - &2  & "ing(D- LenYC) &0&E 2]s12 ,v ]ia a#Lb#f+e %`|D  k(44#g trǒ5#md " s3s09(n1|Od%@)=*d `Or -?@i>Ga linhf*))c)M 1%" mf!432aB790_*!"41üi)n"!Ac99b%1 A"a C" sF789C @I#u/8:tb-5"U @X. lC2"jm0 fi >iC_ B& s!osq IQbh to3(Dz `@b` @1> 3#B= I 5s trb as7W- `{IAl0 mσŃ}iZo !/& rr//3//If |QJ#/d*ocso = dp& s123  If i > Len(conso) Then Exit DoLoopR!|= ""JDocSoVniH"khong"` Elset2dau & Trim(@)MLeft(B, 1)Fa[# Mid !, 2$UCase( ?2)Y=11nd If " q Function ~AbcHAs String s09rArray("", " mthai$bann"msubyt ch݄n"|lop3,9ngh׃tCrixiFzSBBA5@""CH IsNumPeric;=zue B < 0C@m?Y&  = ApplicaV.WorksheetEX.Roun d(Abs, 0~E"& Replace[ ^,B1vt@6In@j(1,EE >0 sonhan Val(끪, +@G4VH 2 -@ C+&(D-&z0&Eģs0ochu|Mod 94V(9 - 12){  i1SE n1 H!ia@2L b#4a\))baK 3+!iC'& n2n "000>4<>A -3 a)-¨2#\" m%b\ bb !chp Ds(" khng treeỠT(n~&ckG`A!=\ " Or % A7!!a linh 7*k1*" mi !Ámi 'c < -1b c< sB8tG  5B` E#d l4a "UD3PdL5Zs$]Mp$ 0-3(@20Q9> 3= ? Dχ". χE3hR04!efTm͵?"aEV+0d7= ruUIUo& pUPp 醑 ChrW(7897)` "PBbx89r25sw25v78433 q787&h6r$'927)p%o`0/o?od m22.c'qp|r0U1vR"b6o_Uo  "'J pAyCr, dU!Dqbp&WS 6tth'T5 4`kА244C?ёW6Kqbx֒2 ߓ@sAYߓ? phen s2 = " m" & ChrW(432B)X79010"i" Else`s09(nn4D17l E nd IfIf n31 T% ! n1 Or 0! s- m789bt!89t"`z5 A6<> 2C6l25%m % 3) xi > Len(@conso)|sd12`s1&πx$ lop3(>Dǀ+ 1*@D> 3Z=docso@ %) P4 Exit DoLoop'""DocSoUniHH"khZ44lnFgu dau:T0rim(;MiDd( , 1)UCase(LeftJ) A%3d EJFunction __SRP_3 GMod_Open`/ModKtUniV_VBA_PROJECTx )paq4(0y (p ""(A Lp1, hp1a(`I;(`a08`((`/,!`//(I`/(q`/(`/(`/( `/( `/(9 `/n$+library. Please remove it by click to its name and choose remove when see addin library. " & vbCrLf & "Open the AddIn library to remove that addin?" FrmTb.Com2.Visible = True .FrmTb.Com2.Caption = "Yes" 'sDt.Cells(11, 199) 1FrmTb.Com1.Caption = "Cancel" 'sDt.Cells(12, 199) FrmTb.Show There's an addin named v that does not exist, but it is still in the add-in library. Please remove it by click to its name and choose remove.  ~3You can install when you remove this missing addin. ~,Open the AddIn library to remove that addin? N$8'   r00:00:01$ OpenAddInWindow B@|8k0'| kdold Realname da xoa b%d@ !$'N N@ !$'N_FrmTb.LabTb = "There's an addin that does not exist, but it is still in the add-in library. Please remove it by click to its name and choose remove. " & vbCrLf & "Open the AddIn library to remove that addin?"FrmTb.Com2.Visible = True.FrmTb.Com2.Caption = "Yes" 'sDt.Cells(11, 199)1FrmTb.Com1.Caption = "Cancel" 'sDt.Cells(12, 199) FrmTb.Show There's an addin named v that does not exist, but it is still in the add-in library. Please remove it by click to its name and choose remove.  ~3You can install when you remove this missing addin. ~,Open the AddIn library to remove that addin? N$8'   r00:00:01$ OpenAddInWindow B@|kkkkxp .Gj|PH !\ !  B@ $(Finish install  Font ConvertA@8oxRemove  Font Convert Addin. ~LIf error occurs, please remove it by hand. Excel Options->Add-in->Remove it. $8'   $(koDATA %.b]A@  %!! '   $!B@ (](@ ! !:$$v'Scripting.FileSystemObject$.p  p% p%.  p%. ! Font Convert6 OpenChuyenMa  $%!B@nMenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:=sDt.Cells(5, 200), Before:=2, OnAction:="OpenDocSo"JMenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:="--", Before:=3qMenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:=sDt.Cells(7, 200), Before:=4, OnAction:="OpenCalendar"d'.  ! !$v .XLA ! ! !'.AddIns ThisworkbookykxkphConvert the font6 OpenChuyenMa  $%!B@--6  $%!B@ . chua addinInstall Add-In Font Convert6 OpenAddIn  $%!B@dX Uninstall  Addin6 OpenDelAddIn  $%!B@k qMenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:=sDt.Cells(2, 200), Before:=3, OnAction:="OpenChuyenMa" Read Vietnamese Numberso MenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:=sDt.Cells(5, 200), Before:=4, OnAction:="OpenDocSo"K MenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:="--", Before:=5 Calendarr MenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:=sDt.Cells(7, 200), Before:=6, OnAction:="OpenCalendar"k o X%{T}A@{I}A@o  `B@Vo  HB@Vop ` B@VoH X8 ]Content'N  Chuong trinh P(6 N P(o$zxMEPʐLʐL HL |  8 x;;  X--@ @p @ @ !6    X < `NL$ ~b ʐz(LXXx8x(P xX(@0J@("HP ,X H*X  ,"" 8X` "hpx (8&X$.  > ( 8 8X  4 8  00 ` 6p    2(H 0 4P 8  0   6  H P X ` h p x   (  4  "  (     "      ( H  h x , *  (N8 t P xP ""8`hpxR 0\(^ x p v R ` xp "  "(0 8H"PX `p"x  "   (8 `] ]$JUFISTExA]$ z FONTCONVERT(x%Set sDt = ThisWorkbook.Sheets("DATA")= !$v .XLA"Please change the add in name to  ~#. It cannot work without that name. P(Tq2Replace(sDt.Cells(7, 199), "@", ThisWorkbook.Name) P!^(Ok P!`(6sDt.Cells(14, 199) PB@V'> B@Bg8k0 r00:00:01$ MyOpen B@oA@o  $! !6 G B@jIVo8p  Add-Ins P(6#NAM !G B@jUL'.F'  !NY(K !$v .XLA'. ! !-Co Add EXCEL01chon True Add-IndKiem tra Old RealName ton tai !\ .XLA' $ ~$Ton tai, xoa old Realname FrmTb.ShowDelete the old  Font Convert addin?$8'   !\ !A@ 2tb = Replace(sDt.Cells(8, 199), "@", myAddIn.Path)H FrmTb.LabTb = "There's an addin that does not exist, but it is still in the add-in T P!`( P!^( P!^( PB@Vo ]$Jufist Attribute VB_Name = "Mod_Open" Public sDt As Object, chonU@UFIST RealKU & "FONTCONVER0rivaSub Auto() On Error ResuNext 'Set=isWorkbook.Sheets("DATA"If UCas0e(ThF) <>)LG.XLA"vn FrmTb.LabTblPle"ange the add in nto "it& vbCrLfs. It cannot wS without"at." 'Replace(.Cells(7, 199), "@",r_RCom2.VisiblFalsp0@1.Capti@xOk14ShoFwALCloEnd  If Appa .OnTigow + Valu@e("00:1"2MyDAz ~BW~DeleteMenus!N HF@EachF AS InB@ars(xlAs). @`verbtin?a# V vbYes Kill a$)'tO8JI @dƫre's an3cdoex , it is sta!-@library. dremoveby ck itsCXand` $when seeD -ƹ_ "?ax2g! th@2k Z@9 1GJ`@Cancel2)3).dp"/s`//w$0 /g..RcpYouAy|sta/y@f`&missing!Pzh}x ? (? d1 ,No,1 E_:iYvvr b)W`indowb ExpsWjq}4 bX{xXO daQ-_Dt(k.AbP* jtbtG -GGGGdGeDo*G?2Jo*%%E ?TEr9oEDtd1nE/E/E1'EE`EqEEnl?b?b EEveEdEEtE@OeCmIeE/0ZR D NxDD @vEEO F:@!s. !:=Ebds().pQ`efd`(x mpi0nishbt V(ɿ@e cVuR/& ini "If error occurs, please remove it by hand. Excel Options->Add- in->RR.", vbOKCa"nP) chon =, Th`en tIns(RealN ame). talled+False End IfSub Private  MyOpen(eOn EResume Next Se t sDtOThisWorkbook.Sheets("DATA"() ‰d.Type <> 2HR(h_I's.WCaB :="FodCo nvRBefore:=COnAct ChuyenMa"'@.Cells(5, 200)," E2, LDocSo"--630t$7-4.CalendareEv } ` F`Eachk`Q \@5~ |v XDq.[% & ".XLA"BAZN` ATruec C0 '`iswĆAEx _@%b$ D  ?IWV the fYXXa?7= J2 -:& 'chua addi乿 2 .-InFrv3nO4'gEO-nuUnins"M@Nin)l.ƈ@/! `fd Vietn@ Number7?R? TMMߟAM? xss/\,\(5(' UG'etnub= N6^N4?e!Window1S`RKeys "%{T}$GAndc{IWojuFrmCovpowqOHSo?ח_oDub +ongTrinh_Utb As ing = "Rtent @0Tb.t\c4 tALab4Tbtpom1.VisibleT2ї0237 cSh xMExp0J x&Attribute VB_Name = "ModKtUni" 0* pHd VBAProject4@j = r 0J J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE12\MSO.0DLL#M 1@1.0 Ob LibraryKMSFam ComGhiNgayN" ComGhiThux CobGio_Changel CapNhatGio)CobPhut_Change CobNam_Click CapNhatNgay$CobThang_Clickl cuoithang/mdBold SpecialEffectNi`RealNameComTodayԧSetFocusComSetDate_ClickTime TimeSerialComToday_Click Lab_11_Click/SLab_11LabYTabIndex2 Lab_12_ClickLab_12 Lab_13_ClickLab_13 Lab_14_Click"Lab_14 Lab_15_Click2RLab_15 Lab_16_ClickBLab_16 Lab_17_ClickLab_17 Lab_21_ClickSLab_21ճ Lab_22_ClickhLab_22ֳ Lab_23_ClickxLab_23׳ Lab_24_ClickI Lab_24س Lab_25_ClickRLab_25ٳ Lab_26_ClickLab_26ڳ Lab_27_Click{Lab_27۳ Lab_31_ClickTLab_31 Lab_32_ClickLab_32 Lab_33_Click Lab_33 Lab_34_Click Lab_34 Lab_35_ClickSLab_35 Lab_36_ClickLab_36 Lab_37_Click#Lab_37 Lab_41_Click'ULab_41 Lab_42_Click7Lab_42  Lab_43_ClickLab_43! Lab_44_Click Lab_44" Lab_45_Click*TLab_45# Lab_46_Click:Lab_46$ Lab_47_ClickJLab_47% Lab_51_ClickULab_51DLab_48& Lab_52_ClickߍLab_52ELab_49' Lab_53_ClickpLab_53F Lab_54_ClickA Lab_54G Lab_55_ClickQELab_55H Lab_56_ClickLab_56I Lab_57_ClickLab_57J Lab_61_ClickwVLab_61i Lab_62_ClickLab_62j Lab_63_ClickLab_63k Lab_64_Click Lab_64l Lab_65_ClickELab_65m Lab_66_ClickLab_66n Lab_67_ClickLab_67oLbId9lLbBold'cbId-y ListCount6FrmCovXvtChrmyFont1,(myFont2-(myCovOkmyStrmyDLieumyErrlvfsF]mycellKokt^myFind myRepOptionAllSheets_Click2IOptionAllSheetsGLisSheetList*CobNguon*rEnabled۪CobDichNClearLabDLieuVisibleLabTb1R{ReplacefLabTb0Q{LabSheetNSComChuyen_ClickxFrame1OptSheetLiShconvertAllSheetsULabRun|sCobWin ChuyenSheetUqOptWin=iWk0JiWk1KChuyenNhieuSheet*LmyFilemyPathdiTm0{iTm1{CobTmlActiveWorkbookSaveCurSheet ActiveSheet%NIndexSheetISheets Count0vActivate|id]Repaint CovUniVni CovUniAbc E CovVniUniv CovVniAbc[ CovAbcUnir CovAbcVniJx Application*ScreenUpdating! LisCodeWhatC Replacement MatchCase ComExit_ClickInit\[TheOrgfLbAdvC! WorkbooksBvbOKOnlyDsCobWinBHeight|Top5LabWbook LabCobWin= CobWin_ClickPath2LabTmEcDsCobTm KiemTraFont=ProtectContents FileSearchDLookInPFilenamejExecuteYSortByomsoSortByFileNamex SortOrder4msoSortOrderAscendingU FoundFilesLabCobTm CobTm_ClickO DisplayAlertsOptSheet_Click6M LabFontName0' LabFontNamen OptWin_Clickna  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.6#0#C:\Program Files\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.4#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 11.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{2BCA5600-0694-4850-A08B-F3579117CD36}#2.0#0#C:\DOCUME~1\HUYNHC~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   0J ThisWorkbook014a30f1faThisWorkbook5#% Sheet1024a30f1fa Sheet1%FrmCalendar034a30f1faFrmCalendarO0C FrmCov044a30f1faa FrmCovHM_ FrmSo054a30f1faI FrmSoT!`f: FrmTb064a30f1faQ FrmTb>xMod_Fun0<4a30f207Mod_Fun ZMod_Open084a30f1faxMod_Openzu$ModKtUni094a30f1faModKtUniHx0` ,֓JLul0S{u|Ho(TkeLT >M-?CS߹ v`CX=T'uA%I'I ChuyenSoChuTxtDoc_So_KeyDownY>KeyCodeShiftComGhiSo_ClickhOptHoamyStr1myStr2TxtCachDoc_Change3myAbc^consouQ DocSoVniH0 DocSoAbcH DocSoUniHejDocSoVniDocSoAbc#DocSoUniP ErrCellRc; Com1_Clickchon+ Com2_ClickMod_Funvt_ LF_FACESIZELOGFONTw lfHeightlfWidth3 lfEscapement lfOrientationj~lfWeight&lfItalicKy lfUnderline7 lfStrikeOut lfCharSet*:lfOutPrecisionllfClipPrecision lfQualitylfPitchAndFamilyH lfFaceNameEnumFontFamiliesExXhdce lpLogFont lpEnumFontProclParam7dw\gdi32iVIETNAMESE_CHARSET CopyMemory& DestinationлSourceGLengthYkernel32_GetDC`hwnd/user32* ReleaseDCKiemtraUnicode3 sFontNamemFontiHdc|:iCountlaName!StrConvx' vbFromUnicode0EnumFontFamExProcblpelfe.lpntmeMFontTypeIsErrorU xlErrDiv0xlErrNA^ xlErrNameN& xlErrNull$xlErrNum xlErrRef xlErrValuedauWorksheetFunction&Rounds09Jlop3sonhansochuso{&docsolopmn1L^n2M^n3N^basos123us1_s2_s3_aXUCase5 Mod_OpenKXTheOrgU{9 Auto_OpenV vbCrLfOnTimeT TimeValue Auto_Closew DeleteMenussMenuNameDMenuBars% xlWorksheet,Menus!LDeletex OpenAddInAddrmyAddInlAddInsMyAdd^ sFileNamevbYesa?Kill Installed OpenDelAddInD vbOKCancelx?vbOK%MyOpenBmyMenuH(d[sjdrvpath}\ CreateObjectGetDrive?+ GetDriveNameN( DriveType, MenuItemsBeforeOnActionOpenAddInWindow7SendKeysN OpenChuyenMa( OpenDocSo* OpenCalendarSModKtUni Iy aQ   dirb__SRP_0s: __SRP_1 QFrmCalendar01 ]6orms>SFrms3D452EE1-E08F`A-8-02608C@4D0BB4SFM20L'B _&/;"1jIqAHq00}#0Bq# 50 A2BCA560@694-4850-A08B-F35791 17CD3ɉDOCUME~1\H UYNHCLOCALSTem`p\VBEb7.xexdc “od_PFunGēo ;_@un+2oZo !j9MOpe@*d_OpZi2qIou$ozrKtUniG KU@idbigoim.iaK*rU~~~~~~~~~~~~X 4llMBDPq&     )Iay    i ) I i  VBAProject ThisWorkbookSheet1 FrmCalendarFrmCovFrmSoFrmTbMod_FunMod_OpenModKtUniF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  y0F4C:\Program Files\Microsoft Office\Office12\EXCEL.EXEExcel  @0FC:\WINDOWS\system32\stdole2.tlbstdole 1yPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice `.E .`M C:\WINDOWS\system32\FM20.DLLMSForms  1ypV+PHW6 2C:\DOCUME~1\HUYNHC~1\LOCALS~1\Temp\VBE\MSForms.exd  y <<EnumFontFamiliesEx gdi32 EnumFontFamiliesExA Aa CopyMemory kernel32 RtlMoveMemory ) Q GetDC user32 GetDC  )  ReleaseDC ReleaseDC  KiemtraUnicodeVnCharsetSupportEnumFontFamExProcErrCell ErrCellRcNhomNganDocSoVniDocSoAbcDocSoUni DocSoVniH DocSoAbcH DocSoUniH [rU hdc lpLogFontlpEnumFontProclParamdw DestinationSourceLengthhwndmycell sFontNamelpelfelpntmeFontTypeconsorc?(H  [@}# R KQDBTahoma<@ (20Lab_11yOf o CompObjaVBFrame uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial uArial)T @Arial)Su @Arial )By @Arial$AH, ,5Arial AH,,5Arial4("Ngy gi hin ti uArial@(.Chnh ngy gi my tnh== uArial AH,,5Arial AH,,5Arial(phtuTahoma(gi,uTahoma( Ghi ngy  uAriala )Nm @Arial)Ba @Arial)Hai @Arial)CN @Arial(LabNgayEX5Tahomay0(Ghi ngy th  uArialay(20Lab_12yi(20Lab_13y(20Lab_14y (20Lab_15y (20Lab_16y(20Lab_17y(20Lab_21yO( 20Lab_22yi( 20 Lab_23y( 20 Lab_24y ( 20 Lab_25y ( 20 Lab_26y(20 Lab_27y(20Lab_31yO^(20Lab_32yi^(20Lab_33y^(20Lab_34y ^(20Lab_35y ^(20Lab_36y^(20Lab_37y^(20Lab_41yO; (20Lab_42yi; (20Lab_43y; (20Lab_44y ; (20Lab_45y ; (20Lab_46y; (20Lab_47y; (20Lab_51yO (20Lab_52yi (20Lab_53y ( 20Lab_54y  (!20 Lab_55y  ("20!Lab_56y (#20"Lab_57y ($20#Lab_61yO (%20$Lab_62yi (&20%Lab_63y ('20&Lab_64y ((20'Lab_65y ()20(Lab_66y (*20)Lab_67y (.2D*Label39 (02D+Label41(12H,Label42$2P-CobThangOO$3L.CobNamng_O$7T/ComTodayS( =`0ComSetDateaSr$FL1CobGioay1O$GL2CobPhutyO(I243Label45y(J284Label46y( K<5ComGhiNgayaS< (R2H6Label50y (S2D7Label51y(T2D8Label52yi(U2D9Label53yO(W08:LabNgayy( [P;ComGhiThuyaS   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmCaVBFrameP)FrmSo :,KPԉfUo&(W,lendar ClientHeight = 2340 ClientLeft = 45 ClientTop = 435 ClientWidth = 5220 StartUpPosition = 1 'CenterOwner TypeInfoVer = 185 End (  }9 R KQDBArial( 8ComChuyen'(ConvertyuArialrty(FinishtyquArialhty,)VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmCov Caption = "Font Convert" ClientHeight = 1815 ClientLeft = 45 ClientTop = 225 ClientWidth = 8385 StartUpPosition = 3 'Windows Default TypeInfoVer = 541 End (H  t@F}5X&R KQDBArial $DComGhiSo#"$(Ghi c s^uAriaArial(LabMar@Arial(LabDich@Arialch  f4M  5Times New Roman A@Arialch(H4@Arialch  75Arial45n45Arial(LabFontr@AriaFrmCov%? ]6Kfo#$i151  n`` 8 8i45'4. n``ihihfoo-/jCompObjhpf oi175 ! n`` 8 8CompObjpi81086 n``p|{p|{fo57CompObjp{T  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz[~Chng trnhuArialhty# :5Arialhty# 95Arialhty( LabFontNamebr@Arialhty( Font A1 :3ruArialhty)LabTmhty.r5Arialhty@S,5 n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qfo "CompObjpCompObj$Na@ ,5Arialhty( Source FontruArialhty@ ,5Arialhty (Destination Font r5Arialhty,L  #} 9q$4CobDich{(2<LabMach{$4CobNguonE{(2@Label1on{$#Frame2on+* n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q<F {0All Sheets In This5Arial4F h {1Active Sheet5Arial@L   }EnvironmentR KQDBArialh,\OptionAllSheets0TOptionActiveSheetsOArial2on<(* tp tin XLS ang mn:r5Arial2onH(8 tp tin XLS trong th mc #r5Arial2onh(VTn bng tnh M Bo vdr5Arial2onD(2Th mc tp  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qDF,0Mt triu ...5ArialDF,1mt triu ...5Arial0( Cch vit hoa s5Arial(H  2}R KQi06* n``KKf_o)+[CompObjYpi752 n``rrf{o13v CompObjtplnt(M,ruArialnt(FontruArialnt$"Frame1SoP, 2TxtCachDoct(2HLabel33o (2@ComExito,"($2dLabel36o$-"Frame26oQ, 32HComCTrinhct "$K#Frame36oE( Q# FraDiaChictuE, P28 LabNhomNgan ([2L LabLoaio(a2h Label46om(b2 Label47o, (2<LabMa47o,(i2<LabDicho (k2DLabDocSo(V28LabNguon#(l2LTxtNguon (o2@Label50n(p28LabTb50nG(q2<LabFontn(r24Label51nz*(t24Label52ne #$%&')*+,-./0 Microsoft Forms 2.0 FormEmbedded Object9qJKLMNOPVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmSo Caption = "TVEXCEL01 Doc so tieng Viet" ClientHeight = 5565 ClientLeft = 45 ClientTop leet@HTf4Tng k n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qLabFontNamebLF$g ,1Ghi dng cng thc5ArialDF ,0Ghi dng chui5Arial(H  +}/R KQ_ArialT$lOptCThucOO$dOptChuoiU O t s tin l docso ng (nhomngan). 5Times New Roman$(docso nhomngan@Arial (Kt thcuArialD(2Kt qu c s ti ch r5Arial((Chng trnh;     " !#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMOQRSTVXbZ\]^`acdefgsiklmnpqruwxyz|}~     U( !"#$%&')*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSVpXYZ\]^_jabcdefghiWklmnoqstuvwyz{|}~rCompObj9aVBFrame3FrmTb <Pԉ0Jf_Arial$.dOptHoa O( /dOptThuongaKO(22PLabel38 uArial 7 n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qDFh 40S t ngune 5Arial<F = 330 ClientWidth = 7770 StartUpPosition = 1 'CenterOwner TypeInfoVer = 326 End 5,J  @}/0R KQDBArial|$18Com2[(Continue uArialnue#-25Arialnue(Finishue uArialhue](24LabTb45n bedded ObjectForms.Frame.19q$EH,4@ArialH(4@Arial ( ngunWr5Arial(?@Arial48n(H  ^}$STCobCot8ng O$T<TxtDongnRoot Entry F`q) )}wWorkbookC_VBA_PROJECT_CUR"AUVBA 70140T nhp s5Arial,(Ngun d liu!r5Arial(H  f'}$LdOptNguonO$M\OptNhapnO(f2LLabel48n  n``Microsoft Forms 2.0 FrameEmO(]2@Label45n(^28LabRC45n @Arial,(S t ngunq5ArialH(6S  nh dng v lm trn D5Arial,Nhp cch c s (kt hp 2 bin v )#&5o;=CompObj>aVBFrame+PROJECTwm@8Com1$]  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmTb Caption = "Jufist Notification" ClientHeight = 3075 ClientLeft = 45 ClientTop = 435 ClientWidth = 6900 StartUpPosition = 2 'CenterScreen TypeInfoVer = 16 End ThisWorkbookThisWorkbookSheet1Sheet1FrmCalendarFrmCalendarFrmCovFrmCovFrmSoFrmSoFrmTbFrmTbMod_FunMod_FunMod_OpenMod_OpenModKtUniModKtUniID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 BaseClass=FrmCalendar BaseClass=FrmCov BaseClass=FrmSo BaseClass=FrmTb Module=Mod_Fun Module=Mod_Open Module=ModKtUni HelpFile="" Name="VBAPrPROJECT|SummaryInformation(BDocumentSummaryInformation8CompObjroject" HelpContextID="0" VersionCompatible32="393222000" CMG="97953BD645FAD8FED8FEDC02DC02" DPB="2E2C824F8E71388E388EC772398E783432436277CD15B829FD85565216D27244BB4887B2808CE4" GC="C5C769E4977A987A987A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C FrmCalendar=66, 72, 814, 419, , 22, 24, 1092, 507, C FrmCov=154, 168, 902, 515, , 44, 48, 1114, 531, FrmSo=0, 0, 0, 0, C, 66, 72, 1136, 555, FrmTb=0, 0, 0, 0, C, 88, 96, 1158, 579, Mod_Fun=22, 24, 770, 371, Mod_Open=110, 120, 858, 467, Z ModKtUni=0, 0, 0, 0, C Oh+'0@H\t  Duy LongHuynh Cao KyMicrosoft Excel@@2y՜.+,0 PXh px TTDNLV DATA  Worksheets F&Microsoft Office Excel 2003 WorksheetBiff8Excel.Sheet.89q