


下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
原因:一個(gè)工作表常時(shí)間的使用,或經(jīng)多人不同的編輯會(huì)使表格的格式日積月累越來越多,以至在2003以下的版的用戶打不開(或格式超過4000種)大家可以去看看自己表格是否有過多的格式(色彩也是格式的一種)可以在單元格樣式中看到。如何來清除過多的格式呢解決方案:打開出現(xiàn)“太多不同的儲(chǔ)存格格式”的Excel文件;第一步:“開發(fā)工具”一“進(jìn)入VB(VisualBasic)”(如下圖)第二步:打開代碼窗口,建模塊,在代碼窗口里將‘SubRebuildDefaultStyles'(見附檔)檔案中的內(nèi)容copy進(jìn)去,替換原來的內(nèi)容第三步:運(yùn)行代碼(點(diǎn)擊運(yùn)行里選擇“運(yùn)行子過程/用戶窗體”或直接點(diǎn)擊如圖箭頭所示)(如圖)第四步:看看工作表的格式是不是已去除了,如下圖那些在使用過程中留下的格式已除去了,只剩下Excel默認(rèn)自帶的格式。你的工作表如果格式太多了,最好清一清,工作時(shí)盡量不要更換太多不一樣的格式。使用上述的辦法不會(huì)對(duì)你的工作表內(nèi)容更改。記得使用過后把代碼刪了。(文件占有空間也會(huì)變?。└綑n:SubRebuildDefaultStyles()'Thepurposeofthismacroistoremoveallstylesintheactive'workbookandrebuildthedefaultstyles.'Itrebuildsthedefaultstylesbymergingthemfromanewworkbook.'Dimensionvariables.DimMyBookAsWorkbookDimtempBookAsWorkbookDimCurStyleAsStyle'SetMyBooktotheactiveworkbook.SetMyBook=ActiveWorkbookOnErrorResumeNext'Deleteallthestylesintheworkbook.ForEachCurStyleIn'If<>"Normal"ThenSelectCaseCase"20%-Accent1","20%-Accent2","20%-Accent3","40%-Accent1","40%-Accent5","60%-Accent3","20%-Accent4","40%-Accent2","40%-Accent6","60%-Accent4","20%-Accent5","40%-Accent3","60%-Accent1","60%-Accent5","20%-Accent6","40%-Accent4","60%-Accent2","60%-Accent6","Accent1","Accent2","Accent3","Accent4","Accent5","Accent6","Bad","Calculation","CheckCell","Comma","Comma[0]","Currency","Currency[0]","ExplanatoryText","Good","Heading1","Heading2","Accent1","Accent2","Heading3","Heading4","Input","LinkedCell","Neutral","Normal","Note","Output","Percent","Title","Total","WarningText"'Donothing,thesearethedefaultstylesCaseElseEndSelectNextCurStyle'Openanewworkbook.SettempBook='DisablealertssoyoumaymergechangestotheNormalstyle'fromthenewworkbook.=False'Mergestylesfromthenewworkbookint
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 代縣宣講大賽活動(dòng)方案
- 代理記賬公司活動(dòng)方案
- 以色列美食節(jié)活動(dòng)方案
- 仰臥傳球活動(dòng)方案
- 體育教學(xué)周活動(dòng)方案
- 企業(yè)vip活動(dòng)方案
- 企業(yè)交流系列活動(dòng)方案
- 企業(yè)軍人活動(dòng)方案
- 企業(yè)升旗活動(dòng)方案
- 企業(yè)周末活動(dòng)方案
- 中國移動(dòng)勞動(dòng)合同范本
- DL-T-5728-2016水電水利工程控制性灌漿施工規(guī)范
- DL5190.4-2019電力建設(shè)施工技術(shù)規(guī)范第4部分:熱工儀表及控制裝置
- GJB9001C-2017標(biāo)準(zhǔn)內(nèi)部宣貫培訓(xùn)
- 2022-2023學(xué)年上海市閔行區(qū)八年級(jí)(下)期末數(shù)學(xué)試卷
- 專業(yè)市場物業(yè)多種經(jīng)營管理規(guī)定
- 2023年7月浙江省高中學(xué)業(yè)水平考試生物試卷真題(含答案詳解)
- 加油站廉潔培訓(xùn)課件
- 2024年江蘇省無錫市輔仁中學(xué)八年級(jí)下冊(cè)數(shù)學(xué)期末質(zhì)量跟蹤監(jiān)視試題含解析
- 保安員禮貌禮儀培訓(xùn)
- KA-T 21-2024 模袋法尾礦堆壩技術(shù)規(guī)程
評(píng)論
0/150
提交評(píng)論