Tạo mục lục các Sheet trong Excel 2003

Chúng ta sẽ tạo ra một Sheet mới với tên là MụcLục. Sau đó thêm một đoạn code vào Sheet này để tạo mục lục tự động.{ad_200x200_right}Các bước thực hiện:1. Trở về Sheet đầu tiên. Vào Insert Worksheet. Đặt tên của Sheet này lại thành MụcLục hay để nguyên tùy thích.2. Rightclick lên thẻ của Sheet này chọn View Code.3. Copy tất cả đoạn Code này vào:
Nội dung trích xuất từ tài liệu:
Tạo mục lục các Sheet trong Excel 2003TạomụclụccácSheettrongExcel2003Đâylàmộtthủthuậtmàmìnhđánhgiálà...4saochotínhtiệndụng...Vấnđề:KhilàmviệcvớimộttậptinExcel(Worbook)cónhiềuworksheet(bảngtính),cácbạnsẽgặpnhiềukhókhănkhidichuyểngiữacácbảngtínhnày.Giảipháp:ChúngtasẽtạoramộtSheetmớivớitênlàMụcLục.SauđóthêmmộtđoạncodevàoSheetnàyđểtạomụclụctựđộng.{ad_200x200_right}Cácbướcthựchiện:1.TrởvềSheetđầutiên.VàoInsert>Worksheet.ĐặttêncủaSheetnàylạithànhMụcLụchayđểnguyêntùythích.2.RightclicklênthẻcủaSheetnàychọnViewCode.3.CopytấtcảđoạnCodenàyvào:PrivateSubWorksheet_Activate()DimwSheetAsWorksheetDimMAsLongM=1WithMe.Columns(1).ClearContents.Cells(1,1)=INDEX.Cells(1,1).Name=IndexEndWithForEachwSheetInWorksheetsIfwSheet.NameMe.NameThenM=M+1WithwSheet.Range(H1).Name=Start&wSheet.Index.Hyperlinks.AddAnchor:=.Range(H1),Address:=,SubAddress:=Index,TextToDisplay:=BacktoIndexEndWithMe.Hyperlinks.AddAnchor:=Me.Cells(M,1),Address:=,SubAddress:=Start&wSheet.Index,TextToDisplay:=wSheet.NameEndIfNextwSheetEndSub4.NhấnAlt+QvàSavelại.5.TừExcel,vàoTool>Macro>Security.Tronghộpthoạinày,chọnmứcLow.VìtrongfileExcelcủabạncódùngMacro,nênđôikhimứcMacrosecurityởmứchigh,đoạnlệnhcủabạnsẽkhôngcótácdụng.NếubạnchọnMediup,bạnsẽđượcnhắclàchạymacrokhông.Trongtrườnghợpnày,bạnchọnEnableMacrođểthấytácdụng.5.NhấnCtrl+WđểđónglạiWorkbookvàmởlạiWorkbooknày.Đếnđây,khinhấpvàoSheetcótênlàMụcLục,bạnsẽthấydanhsáchcácbảngtínhhiệnra.NhấpvàoSheetnàomàbạnmuốndichuyểnnhanhđếnđểlàmviệc....Theohelloict.com