欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Excel工作薄瘦身秘技

互聯(lián)網(wǎng)   發(fā)布時間：2008-10-06 15:21:24   作者：佚名   我要評論
　　很多用戶都遇到過Excel 文件在使用過程中不斷增肥，反應(yīng)越來越遲鈍的現(xiàn)象，甚至發(fā)生文件損壞而丟失重要數(shù)據(jù)的可怕事件。如果是因為有大量數(shù)據(jù)的輸入，那么文件體積增加也無可非議，此時應(yīng)該通過優(yōu)化表結(jié)構(gòu)、把數(shù)據(jù)分散保存到多個工作簿文件的方法來減小單個文件的體積。

　　誤設(shè)單元格格式或者條件格式

　　如果確認(rèn)在工作表中存在大量的對象，而用戶并不需要它們，可以用兩種方法來處理：

　?。?）剛才的定位方法中，當(dāng)對象全部處于被選擇狀態(tài)時按鍵刪除它們即可。

　?。?）使用宏在多個工作表中更加精確地刪除這些無用對象。比如，可以根據(jù)需要只刪除高度和寬度都小于14.25 磅（0.5 cm）的對象。

　　只刪除活動工作表中特定大小的對象的代碼為：

　　Sub DelShapes()
　　Dim sp As Shape, n
　　For Each sp In ActiveSheet.Shapes
　　If sp.Width < 14.25 And sp.Height < 14.25 Then
　　sp.Delete
　　n = n 1
　　End If
　　Next sp
　　MsgBox "共刪除了" & n & "個對象"
　　End Sub

　　刪除所有工作表中的特定大小的對象的代碼為：

　　Sub DelAllShapes()
　　Dim ws As Worksheet
　　Dim sp As Shape
　　Dim n As Double
　　Dim Content As String
　　For Each ws In Worksheets
　　For Each sp In ws.Shapes
　　If sp.Width < 14.25 And sp.Height < 14.25 Then
　　sp.Delete
　　n = n 1
　　End If
　　Next
　　Content = Content & "工作表" & ws.Name & " 刪除了" & n & " 個對象" & vbCrLf
　　n = 0
　　Next
　　MsgBox Content
　　End Sub

　　這些令人疑惑的對象的產(chǎn)生原因可能有以下幾個。從網(wǎng)頁上復(fù)制內(nèi)容后直接粘貼到工作表中，而沒有使用選擇性粘貼。無意中使用繪圖工具欄的直線工具或其他繪圖工具，不知不覺中在工作表中插入了小的直線或其他圖形對象，由于尺寸很小，于肉眼幾乎無法看到。而后，又通過單元格的復(fù)制產(chǎn)生了大量的小繪圖對象。在工作表中插入了圖片或其他繪圖對象，操作中又將其高度寬度設(shè)為0 或很小的值，通過復(fù)制產(chǎn)生了大量的對象。

相關(guān)文章

最新評論