隨著手機(jī)里面功能越來(lái)越豐富，讓我們使用起來(lái)越來(lái)越方便了，給我們的生活帶來(lái)了極大的便利。怎樣使用VBA讓VBA代碼自行刪除?
工具/原料
手機(jī)
方法/步驟
首先在開發(fā)工具中打開VBA編輯器
在單元格區(qū)域當(dāng)中輸入一些內(nèi)容作為例子
在VBA編輯器中插入模塊
在模塊當(dāng)中輸入如下代碼，然后運(yùn)行
Sub合計(jì)()
'求和
Dim rng As Range
For Each rng In Range("e3:e" & [d1048576].End(xlUp).Row)
rng=rng.Offset(0,-2)+rng.Offset(0,-1)
Next
For Each rng In Range(Cells(13,3),Cells(13,[xfd12].End(xlToLeft). Column))
rng=WorksheetFunction.Sum(rng.Offset(-10, 0).Resize(10))
Next
'刪除代碼
Dim Vbc As Object
For Each Vbc In Application.ThisWorkbook.VBProject.VBComponents
If Vbc.Type=1 Then
With Application.VBE.ActiveVBProject.VBComponents
.Remove .Item(Vbc.Name)
End With
End If
Next
End Sub
用快捷鍵Alt+F8調(diào)出運(yùn)行宏窗口，然后單擊“執(zhí)行”按鈕，工作表中行列的合計(jì)均已算出，同時(shí)徹底刪除代碼
