Meo vat trong tin hoc van phong

[r]

M o v t tin h c văn phòngẹ ặ ọ

Ch c ch n tính m i khó ch u nh t (đắ ắ ị ấ ược đ a vào Word 2002) Drawing Canvas,ư t ch i m i sáng t o c a c nh ng ngừ ố ọ ủ ả ữ ười m i vào ngh nh nhi u nămớ ề ề t ng tr i B t kỳ b n dùng m t công c công c Drawing c aừ ả ấ ộ ụ ụ ủ Word 2002 ho c 2003 (hay nh n Insert.Picture.New Drawing), Word khăng khăngặ ấ đòi t o m t h p - g i "canvas" - đ gi hình đ h a Khi b n đ t b c v ,ạ ộ ộ ọ ể ữ ọ ặ ứ ẽ đường v ch, hình vng, hình ơvan ho c m t hình vào canvas, Word sạ ặ ộ ẽ xem chúng m t nhóm, b n có th di chuy n ho c thay đ i kích thộ ể ể ặ ổ ước chúng nh m t kh i ho c b sung k t n i nhanh gi a ph n t Tuy nhiên Canvas l iư ộ ố ặ ổ ế ố ữ ầ không ti n l i cho vi c thi t k l i ệ ợ ệ ế ế

Mu n t ng kh Drawing Canvas, b n nh n Tools.Options.General, b ch n đ i v iố ố ứ ấ ỏ ọ ố Automatically Create Drawing Canvas When Inserting AutoShapes Mu n di chuy nố ể ho c co dãn hình v theo m t nhóm, b n ch n hình v b ng cách nh nặ ẽ ộ ọ ẽ ằ ấ <Ctrl> đ ng th i nh n chu t lên chúng, sau ch n Draw.Group Drawing Toolbar.ồ ấ ộ ọ N u c n s d ng k t n i nhanh, b n nh n Insert.Picture.New Drawing đ đ t m tế ầ ụ ế ố ấ ể ặ ộ Drawing Canvas to thô vào bên tài li u trau chu t c a b n ệ ố ủ

X p đ t l i My Places Bar ế ặ

B t c b n m m t t p tin ng d ng Office XP ho c 2003 b ng cáchấ ứ ộ ậ ứ ụ ặ ằ nh n File.Open hay nh n <Ctrl>-O, m t li t kê bi u tấ ấ ộ ệ ể ượng xu t hi n ấ ệ khung bên trái Ti n ích My Places Bar cho phép b n m folder v i ch m t cúệ ỉ ộ nh n; nh ng m c d u đấ ặ ầ ược x p hàng đ u v ti t ki m th i gian, tính l i cóế ầ ề ế ệ giao di n x u Mu n b sung thêm m t folder vào My Places Bar, b n ch n folderệ ấ ố ổ ộ ọ nh n Tools.Add to "My Places" Mu n hi n th mấ ố ể ị ười bi u tể ượng folder nh trênỏ My Places Bar thay năm bi u tể ượng l n (Hình 1), b n nh n ph i ch ấ ả ọ Small Icons B n có th s p x p l i folder b ng cách nh n ph i m tạ ể ắ ế ằ ấ ả ộ folder ch n Move Up ho c Move Down, m i l n m t bọ ặ ỗ ầ ộ ước

Hình 1: B sung folder vào My Places h p tho i Open c a Office ổ ộ ủ

V n đ l n nh t v i My Places đ y l i N u lo i b m t s bi u tấ ề ấ ầ ỗ ế ỏ ộ ố ể ượng kh iỏ danh sách, tùy ch n Move Up Move Down s xu t hi n v i màu xám m đ mọ ẽ ấ ệ ả trình đ n Khi x y u này, mu n s p x p l i bi u tơ ả ề ố ắ ế ể ượng b n ph i vàoạ ả Registry đ ch nh s a Trể ỉ ước th c hi n, l u Registry (Xem TGVT A thángự ệ 4/2003, trang 106 đ có hể ướng d n chi ti t) ẫ ế

Khi hoàn thành vi c l u, b n nh n Start.Run, gõ regedit, nh n <Enter> Đi uệ ấ ấ ề n khung bên trái đ n HKEY_CURRENT_USERể ế

\Software\Microsoft\Office\11.0\Common\Open Find\Places (trong Office XP, khóa thứ năm 10.0, khơng ph i 11.0) Bên dả ướ ải c hai khóa StandardPlaces

kho n m c Index khung bên ph i, thay 'Value data' c a b ng 1, nh n OK.ả ụ ả ủ ằ ấ (N u khơng có kho n m c Index c , b n nh n ph i khung bên ph i, ch nế ả ụ ả ấ ả ả ọ

New.DWORD Value, gõ Index, nh n <Enter>) L p l i nh ng bấ ặ ữ ước cho bi u tể ượng My Places, gán cho m i m t giá tr Index khác (giá tr '0' s làmỗ ộ ị ị ẽ cho bi u tể ượng không xu t hi n, n u t t c bi u tấ ệ ế ấ ả ể ượng đ u đề ược cài đ t '0' thìặ Desktop s xu t hi n) L n sau, m Office v i My Places Bar hi n th , bi uẽ ấ ệ ầ ể ị ể tượng s xu t hi n theo trình t mà b n xác đ nh Registry ẽ ấ ệ ự ị

Gán cho Word m t ki u ch m i ộ ể ữ

Hình 2: T o dáng v m i cho Style Word b ng Modify Style ẻ ằ

Ch c b n bi t s d ng ki u ch (style) Word đ đ n gi n hóa vi c ch nhắ ế ụ ể ữ ể ả ệ ỉ s a tài li u dài Tuy nhiên, ki u ch gi ng nh m t gông sang tr ng mang c ,ử ệ ể ữ ố ộ ọ ổ ki u ch m c đ nh c a Word có v khơng thích h p: Gõ m t dòng tàiể ữ ặ ị ủ ẻ ợ ộ li u, ch n Heading t danh sách Style r i xu ng (thệ ọ ố ường n m bên trái c a thanhằ ủ công c Formatting); Word s làm cho dịng văn b n có ki u Arial ch đ m c 16ụ ẽ ả ể ữ ậ ỡ r t khó đ c Ch n heading 2, dịng s xu t hi n dấ ọ ọ ẽ ấ ệ ướ ại d ng ch nghiêng đ m - m tữ ậ ộ format d làm n i gi n th s p ch in ễ ổ ậ ợ ắ ữ

R t may ki u ch cài s n Word đ u d tùy bi n Trong Word XP ho cấ ể ữ ẵ ề ễ ế ặ 2003, b n ch c n ch n format.Styles and Formatting, nh n lên mũi tên ch xu ng xu tạ ỉ ầ ọ ấ ỉ ố ấ hi n b n d ch chuy n tr ki u ch mà b n mu n thay đ i, ch nệ ị ể ỏ ể ữ ố ổ ọ Modify (ho c Modify Style) Trong Word 2000 97, b n nh n Format.Style, ch nặ ấ ọ style đó, ch n Modify Trong t t c phiên b n c a Word, b n dùng tùyọ ấ ả ả ủ ch n Formatting đ t o nh ng thay đ i mà b n mu n B n nh n nút Format gócọ ể ữ ổ ố ấ bên trái c a h p tho i Modify Style, t o bi n đ i sâu h n cho fontủ ộ ạ ế ổ ch ho c ki u ch khác; sau nh n OK (xem Hình 2) Đánh d u ch n lên Addữ ặ ể ữ ấ ấ ọ to Template nh n OK l n n a T tr đi, t t c tài li u m i s tuân theoấ ầ ữ ấ ả ệ ẽ cách đ nh d ng ki u ch mà b n ch n ị ể ữ ọ

Đ nh l i l cho Word ị ề

Khó khăn vi c thi t l p kho ng l c a m t tài li u Word ph i làm saoệ ế ậ ả ề ủ ộ ệ ả cho ph n đ u (header) dòng th nh t c a văn b n xu t hi n n i b n mu n,ầ ầ ứ ấ ủ ả ấ ệ ố v a đ đ dài nh b n dùng máy đánh ch IBM Selectric II Hãy quên vi c ủ ộ ữ ệ ước lượng theo tài li u c a Microsoft, sau đúc k t v vi c đ nh l Word ệ ủ ế ề ệ ị ề Word ch a m t kho ng tr ng đ u m i trang c a tài li u đ dùng cho ph n đ u vàừ ộ ả ố ầ ỗ ủ ệ ể ầ ầ kho ng tr ng cu i m i trang cho ph n chân (footer) Khi nh n File.Page Setup, b nả ố ố ỗ ầ ấ có th báo cho Word bi t ch a l r ng bao nhiêu, đ t ph n đ u cách mép trangể ế ề ộ ặ ầ ầ gi y bao xa (v trí c a thơng s cài đ t thu t ng xác đ nh chúng thay đ i tùyấ ị ủ ố ặ ậ ữ ị ổ phiên b n Word) ả

N u dòng cu i c a ph n đ u trang có thi t l p Space After, ví d nh 18 m, Wordế ố ủ ầ ầ ế ậ ụ ể s d tr m t kho ng b sung 18 m cu i ph n đ u Cu i cùng, Word b t đ uẽ ự ữ ộ ả ổ ể ố ầ ầ ố ắ ầ x p dòng văn b n th nh t lên trang Khi đ t xong dịng đó, Word s ki m tra xemế ả ứ ấ ặ ẽ ể kho ng cách t đ nh dòng đ u tiên đ n đ nh trang gi y có bé h n thi t l p Top Marginả ỉ ầ ế ỉ ấ ế ậ (l trên) hay không (trong h u h t trề ầ ế ường h p, Top Margin m c đ nh inch).ợ ặ ị N u kho ng cách bé h n Top Margin, Word s d ch dòng đ u tiên xu ng choế ả ẽ ị ầ ố ph n Top Margin đầ ược ch a l i rõ ràng

Trong "ngôn t " kho ng cách c a Word, s đo Header From Edge 'Exactly' (chínhừ ả ủ ố xác), Top Margin 'At Least' (t i thi u) Các s đo ph n chân tố ể ố ầ ương t :ự Footer From Edge (mép trang đ n ph n chân) 'Exactly', Bottom Margin (l dế ầ ề ưới) 'At Least'

Cho nên, n u khơng tìm lý t i Word l i d ch dòng th nh t c a trang xu ngế ạ ị ứ ấ ủ ố th p h n n i mà b n mu n đ t, b n th đ nh d ng l i n i dung c a ph n đ uấ ơ ố ặ ị ạ ộ ủ ầ ầ trang Đ ng c thu nh thi t l p Top Margin - s khơng làm vi c ố ỏ ế ậ ẽ ệ

Đ NH D NG D LI U T T H N TRONG EXCEL Ị Ạ Ữ Ệ Ố Ơ

M t nh ng vi c mà ngộ ữ ệ ười m i dùng Excel ng i nh t đ nh d ng d li u,ớ ấ ị ữ ệ thường người dùng ph i dị đ n t ng đ đ t l i đ nh d ng sai Dả ế ể ặ ị ưới m t vàiộ m o nh giúp b n "thu n ph c" Excel, bu c ph i đ nh d ng d li u nh ýẹ ỏ ầ ụ ộ ả ị ữ ệ b n t lúc nh p li u ậ ệ

• Đ nh p m t giá tr v i đ nh d ng ti n t (currency), gõ m t d u đô la ($) phíaể ậ ộ ị ị ề ệ ộ ấ trước giá tr c n nh p ị ầ ậ

• Đ nh p m t giá tr v i đ nh d ng phân s (fraction), gõ m t s m t d uể ậ ộ ị ị ố ộ ố ộ ấ cách phía trước phân s Ví d : nh p "0 1/2" thay "1/2", Excel s hi u c n ph iố ụ ậ ẽ ể ầ ả hi n th giá tr theo đ nh d ng phân s thay đ nh d ng ngày tháng "01-Feb" ể ị ị ị ố ị

• Đ nh p m t giá tr v i đ nh d ng ph n trăm (percentage), gõ d u % phía sau giáể ậ ộ ị ị ầ ấ tr c a b n (ví d nh 70%) ị ủ ụ

• Đ nh p m t chu i s v i đ nh d ng văn b n (Text), gõ m t d u ' phía trể ậ ộ ỗ ố ị ả ộ ấ ước chu i s M o đ c bi t h u ích Excel ln "thơng minh thái quá" hi uỗ ố ẹ ặ ệ ữ ể chu i toàn ch s ki u s t đ ng đ nh d ng chúng theo ki u s Nh ngỗ ữ ố ể ố ự ộ ị ể ố ữ chu i s có s đ u s b c t h t nh ng s c n thi t N u b n nh p mã 08053,ỗ ố ố ầ ẽ ị ắ ế ữ ố ầ ế ế ậ Excel s đ nh d ng theo ki u s ch hi n th 8053 Đ bu c Excel đ nh d ng chu iẽ ị ể ố ỉ ể ị ể ộ ị ỗ theo ki u text, b n gõ '08053 (V i nh ng chu i s dài, Excel chuy n sangể ữ ỗ ố ể hi n th d ng mũ cịn khó coi h n, ví d chu i 123456789012 s để ị ụ ỗ ẽ ược chuy n thànhể 1,23457E+11)

Bi n pháp "ch a cháy" ệ ữ

V i nh ng ô Excel đ nh d ng theo ki u s , dù b n có đ nh d ng l i theo ki u textớ ữ ị ể ố ị ạ ể cách hi n th c a chúng v n không thay đ i Đ tránh ph i gõ l i t đ u, làmể ị ủ ẫ ổ ể ả ầ nh sau (l u ý cách làm ch giúp b n phá v đ nh d ng mũ "ng a m t" chư ỉ ỡ ị ứ ắ ứ không c u l i đứ ược nh ng s ph n đ u b Excel c t): ữ ố ầ ầ ị ắ

- Ch n Text danh m c Category r i nh n nút OK ọ ụ ấ

- Nh n vào ô c n chuy n đ nh d ng, nh n F2 r i nh n ENTER ấ ầ ể ị ấ ấ Làm trơi hình Word

Hình 3: Bao văn b n quanh hình Word b ng tùy ch n Format Picture ả ằ ọ Mu n đ a m t hình v vào bên tài li u Word, b n ch c n nh nố ộ ẽ ệ ỉ ầ ấ

Insert.Picture.From File, ch n t p tin, hình xu t hi n Trong h u h t cácọ ậ ấ ệ ầ ế trường h p, b n s đ t đợ ẽ ược nh ng mu n: m t hình v chèn vănữ ố ộ ẽ b n Word t o hình chen vào gi ng nh cách t o ký t l n N u b n gõả ố ự ế ký t vào phía trự ước hình, s b đ y gi ng nh trẽ ị ẩ ố ường h p gõ văn b n N u b nợ ả ế canh gi a m t dịng có hình chèn, s xu t hi n gi a dịng Th m chí b nữ ộ ẽ ấ ệ ữ ậ cịn có th v m t h p bao quanh hình ho c g ch dể ẽ ộ ộ ặ ưới nó, gi ng h t nh khiố ệ th c hi n v i m t ký t ự ệ ộ ự

Tuy nhiên, b n không mu n hình v c a ho t đ ng gi ng nh m t ký t ố ẽ ủ ộ ố ộ ự C th , b n có th mu n văn b n xu t hi n xung quanh hình Cách đ n gi n nh t đụ ể ể ố ả ấ ệ ả ấ ể Word b trí văn b n xung quanh hình làm cho hình trơi Khi hình trơi, Word s l y nóố ả ẽ ấ kh i văn b n trang, đ t vào m t m t ph ng o, thỏ ả ặ ộ ặ ẳ ả ường g i làọ "l p v ", n m bên dớ ẽ ằ ưới ho c bên văn b n ặ ả

Mu n làm cho hình trơi, b n nh n ph i ch n Format Picture Trên nhãn Layout,ố ấ ả ọ b n ch n 'Wrapping style' Square ho c Tight, nh n OK (xem Hình 3) Word sạ ọ ặ ấ ẽ dán hình m t l p v b c văn b n chung quanh Khi di chuy n hình trongộ ẽ ọ ả ể l p v c a tài li u, Word s tuân l nh b trí l i văn b n, t o kho ng tr ng cho hình ẽ ủ ệ ẽ ệ ố ả ả ố T đ ng b o v b ng Password ự ộ ả ệ ằ

B n có thạ ường t o tài li u b ng tính đạ ệ ả ược b o v b ng password? Hay b n cóả ệ ằ thường quên b o v b ng password? ả ệ ằ

Có m t cách đ m b o ln th c hi n b o v tài li u dùng template (tài li u m u)ộ ả ả ự ệ ả ệ ệ ệ ẫ c a Word Excel Theo cách này, m i tài li u hay b ng tính m i dùng template nàyủ ọ ệ ả đ u đề ược b o v b ng password ả ệ ằ

Đ t o m t template b o v b ng password Word ho c Excel, b n m m t tàiể ộ ả ệ ằ ặ ộ li u m i, nh n File.Save As, ch n Document Template (trong Excel ch ch nệ ấ ọ ỉ ọ

Template) h p tho i 'Save as type' g n dộ ầ ưới (trong Word 97 ho c 2000 làặ 'Files of Type') Gõ tên cho template m i c a b n, r i nh n OK Đ cài đ t m tớ ủ ấ ể ặ ộ password phiên b n 97 2000 c a Word Excel, b n nh n Tools.ả ủ ấ

Options.Save; phiên b n XP 2003, b n nh n Tools.Options.Security (Hìnhả ấ 4) Nh p password đ m t p tin (và n u thích, b n nh p vào m t password khácậ ể ậ ế ậ ộ cho vi c s a đ i nó); sau nh n OK ệ ổ ấ

L n sau, mu n t o m t tài li u ho c b ng tính m i đầ ố ộ ệ ặ ả ược b o v b ngả ệ ằ

s th a hẽ ưởng password c a template ủ

Khi mu n thay đ i password c a tài li u Word 97 ho c 2000, b n nh nố ổ ủ ệ ặ ấ Tools.Options.Save th c hi n thay đ i h p password Trong Word XPự ệ ổ ộ ho c 2000, b n nh n Tools.Options.Security đ truy c p cài đ t ặ ấ ể ậ ặ

In ph n đ u đ l p l i ầ ầ ề ặ

Hình 4: B o v t p tin Word Excel b ng template có password ả ệ ậ ằ

Ngườ ụi s d ng Excel thường th c m c v cách cài đ t thao tác in nhi u trang l p l iắ ắ ề ặ ề ặ đ u đ c t t ng trang N u đ u đ mà b n mu n in ph n đ u đ c tầ ề ộ ế ầ ề ố ầ ầ ề ộ hàng đ u tiên c a b ng tính, r t d làm cho chúng xu t hi n t ngầ ủ ả ấ ễ ấ ệ trang in

Trước tiên ph i b o đ m nh t m t hàng b ng tính c a b n có ch a đ u đả ả ả ấ ộ ả ủ ứ ầ ề mà b n mu n in Sau nh n File.Page Setup.Sheet, nh n bi u tạ ố ấ ấ ể ượng Collapse Dialog bên ph i c a ô 'Rows to repeat at top' Tr l i b ng tính, b n s nhìnở ả ủ ả ẽ th y tr c a tr thành m t mũi tên ch v bên ph i Nh n kéo mũi tênấ ỏ ủ ộ ỉ ề ả ấ hàng có ch a văn b n mà b n mu n xu t hi n đ u trang in Sau khiứ ả ố ấ ệ ầ ch n xong, b n nh n bi u tọ ấ ể ượng Expand Dialog n m bên ph i c a h p tho i Nh nằ ả ủ ộ ấ Print Preview đ tin ch c đ u trang đ u N u m i xu t hi n trình tể ắ ầ ề ế ọ ấ ệ ự (đ ng quên ki m tra trang 2), b n nh n Print.ừ ể ấ

Cu i năm th i m c n quy t toán thu thu nh p cá nhân Đây v n đ khôngố ể ầ ế ế ậ ấ ề "nh nhàng" chút nào, nh t qui mô công ty c a b n không nh Tuy nhiên b nẹ ấ ủ ỏ đ ng lo, b n có th l p trình "b t" Excel x lý giúp "gánh n ng" ể ậ ắ ặ

Công vi c chu n b ệ ẩ ị

- PC cài HĐH Windows 2000 ho c XP, Microsoft Excel XP ho c 2003 ặ ặ

- Ph l c s s 2, kèm theo Thông t s 81/2004/ TT-BTC ngày 13/8/2004 c a Bụ ụ ố ố ố ủ ộ Tài

- Lên k ho ch t o hàm sau: ế ạ

• PITLC: Hàm tính thu thu nh p cá nhân dành cho công dân Vi t Nam cá nhânế ậ ệ khác đ nh c t i Vi t Nam ị ệ

• PITFR: Hàm tính thu thu nh p cá nhân ngế ậ ườ ưới n c c trú t i Vi t Nam vàư ệ công dân Vi t Nam lao đ ng, cơng tác nệ ộ ước ngồi

đ ng, công tác nộ ước ngồi

L u ý: Tên hàm có th thay đ i cho phù h p v i yêu c u c a b n ể ổ ợ ầ ủ T O HÀM Ạ

1 M b ng tính (workbook) m i ả

2 Nh n t h p phím Alt+F11 đ kh i đ ng microsoft Visual Basic ấ ổ ợ ể ộ

3 Nh n vào b ng tính c a b n t i c a s VBA project Ví d : VBA project (book1) ấ ả ủ ạ ổ ụ Ch n Insert.Module ọ

5 Nh n đúp vào module m i t o nh p vào đo n mã sau ấ ậ Function pitlc(gross_local)

'Personal Income Tax for Local Vietnamese Citizen If (gross_local > 0) And (gross_local <= 5000000) Then pitlc =

ElseIf (gross_local > 5000000) And (gross_local <= 15000000) Then pitlc = (gross_local - 5000000) * 0.1

ElseIf (gross_local > 15000000) And (gross_local <= 25000000) Then pitlc = 1000000 + ((gross_local - 15000000) * 0.2)

ElseIf (gross_local > 25000000) And (gross_local <= 40000000) Then pitlc = 3000000 + ((gross_local - 25000000) * 0.3)

ElseIf (gross_local > 40000000) Then

pitlc = 7500000 + ((gross_local - 40000000) * 0.4) End If

End Function

'Personal Income Tax for Resident Foreigner in Vietnamese If (gross_foreign > 0) And (gross_foreign <= 8000000) Then pitfr =

ElseIf (gross_foreign > 8000000) And (gross_foreign <= 20000000) Then pitfr = (gross_foreign - 8000000) * 0.1

ElseIf (gross_foreign > 20000000) And (gross_foreign <= 50000000) Then pitfr = 1200000 + ((gross_foreign - 20000000) * 0.2)

ElseIf (gross_foreign > 50000000) And (gross_foreign <= 80000000) Then pitfr = 7200000 + ((gross_foreign - 50000000) * 0.3)

ElseIf (gross_foreign > 80000000) Then

pitfr = 16200000 + ((gross_foreign - 80000000) * 0.4) End If

End Function

Function net2grosslc(net_local)

'Local Net Salary to be gross-up to Gross Salary If (net_local > 0) And (net_local <= 5000000) Then net2grosslc = net_local

ElseIf (net_local > 5000000) And (net_local <= 14000000) Then net2grosslc = Round((net_local - 500000) / 0.9, 0)

ElseIf (net_local > 14000000) And (net_local <= 22000000) Then net2grosslc = Round((net_local - 2000000) / 0.8, 0)

ElseIf (net_local > 32500000) Then

net2grosslc = Round((net_local - 8500000) / 0.6, 0) End If

End Function

Function net2grossfr(net_foreign)

'Foreigner Net Salary to be gross-up to Gross Salary If (net_foreign > 0) And (net_foreign <= 8000000) Then net2grossfr = net_foreign

ElseIf (net_foreign > 8000000) And (net_foreign <= 18800000) Then net2grossfr = Round((net_foreign - 800000) / 0.9, 0)

ElseIf (net_foreign > 18800000) And (net_foreign <= 42800000) Then net2grossfr = Round((net_foreign - 2800000) / 0.8, 0)

ElseIf (net_foreign > 42800000) And (net_foreign <= 63800000) Then net2grossfr = Round((net_foreign - 7800000) / 0.7, 0)

ElseIf (net_foreign > 63800000) Then

net2grossfr = Round((net_foreign - 15800000) / 0.6, 0) End If

End Function T O ADD-IN Ạ

b c b n t o đ c hàm dùng đ tính thu thu nh p Tuy nhiên Ở ướ ạ ượ ể ế ậ

hàm ch s d ng cho b ng tính có g n hàm t o mà Đ t t c cácỉ ụ ả ắ ể ấ ả b ng tính đ u có th s d ng hàm t o ho c b n mu n g i nh ng hàm nàyả ề ể ụ ặ ố ữ cho b n bè b n c n ph i t o add-in Cách t o add-in nh sau: ạ ầ ả ạ

a Project Name: Đi n tên hàm (ví d : PIT) ề ụ

b Project Description: Đi n vào mô t c a d án (ví d : PIT formular) ề ả ủ ự ụ

3 Trong tab Protection, nh n vào Lock project for viewing sau n m t kh u xácấ ề ậ ẩ nh n m t kh u n u b n không mu n ngậ ậ ẩ ế ố ười khác xem ch nh s a đo n mã c a mình.ỉ ủ Đóng c a s VBA ổ

5 Vào File_Save As, nh n vào khung Save as type ch n Microsoft Office Excel Add-ấ ọ in (*.xla)

6 Đ t tên file ch n đặ ọ ường d n đ l u file (ví d : c:\PITformular xla) ẫ ể ụ Hoàn t t ấ