11.將所有公式轉(zhuǎn)換為值如果工作表包含大量公式，并且要將這些公式轉(zhuǎn)換為值，請(qǐng)使用此代碼。 Sub ConvertToValues() With ActiveSheet.UsedRange .Value = .Value End With End Sub 此代碼可以自動(dòng)將使用公式的值轉(zhuǎn)換為值 12.有公式的單元格鎖定當(dāng)您有大量的計(jì)算并且不想意外的刪除或更改時(shí)，您可能希望使用把有公式的單元格進(jìn)行鎖定。 下面是將鎖定所有具有公式的單元格的代碼，而所有其它單元格都未鎖定。 Sub LockCellsWithFormulas() With ActiveSheet .Unprotect .Cells.Locked = False .Cells.SpecialCells(xlCellTypeFormulas).Locked = True .Protect AllowDeletingRows:=True End With End Sub 13.保護(hù)工作簿中所有的工作表使用以下代碼一次性保護(hù)工作簿中的所有工作表 Sub ProtectAllSheets() Dim ws As Worksheet For Each ws In Worksheets ws.Protect Next ws End Sub 此代碼將逐個(gè)瀏覽所有工作表并對(duì)其進(jìn)行保護(hù)。 如果要取消所有工作表的保護(hù)，可以使用 ws.unProtect 14.在所選內(nèi)容中每隔一行后插入一行如果要在選定區(qū)域中的每一行后插入空行，請(qǐng)使用此代碼。 Sub InsertAlternateRows() Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng.EntireRow.Count For i = 1 To CountRow ActiveCell.EntireRow.Insert ActiveCell.Offset(2, 0).Select Next i End Sub 同樣，您可以修改此代碼，以便在所選范圍內(nèi)的每一列之后插入一個(gè)空白列 15.自動(dòng)在相鄰單元格中插入日期和時(shí)間戳當(dāng)您想要跟蹤活動(dòng)時(shí)，可以使用時(shí)間戳。 使用此代碼在創(chuàng)建條目或編輯現(xiàn)有內(nèi)容時(shí)在相鄰單元格中插入日期和時(shí)間戳。 Private Sub Worksheet_Change(ByVal Target As Range)On Error GoTo Handler If Target.Column = 1 And Target.Value <> '' Then Application.EnableEvents = False Target.Offset(0, 1) = Format(Now(), 'dd-mm-yyyy hh:mm:ss') Application.EnableEvents = True End If Handler: End Sub 請(qǐng)注意，您需要將此代碼插入工作表代碼窗口（而不是模塊內(nèi)代碼窗口）。因?yàn)檫@是一個(gè)事件代碼 私信 SQL 可以獲取SQL代碼的Excel文件私信 視頻 可以獲取54集VBA入門(mén)視頻私信 VBA或 vba 可以獲取文章中含VBA代碼的Excel文件 |
|
|
