移動版 - 最新教程 - 熱門教程 - 推薦教程 - 熱門資源 分享高質量的原創Office教程、Word教程、Excel教程、PPT教程。

白小姐四肖中特开奖结果!:使用VBA程序快速刪除單元格中的公式的方法

發布時間:2015-05-05 來源:Office辦公助手(88862豪哥四肖中特 www.jjfyo.com)

88862豪哥四肖中特 www.jjfyo.com Excel工作表中往往存在著各種公式,當公式引用的單元格中的數據發生改變時,公式所在單元格計算結果也會隨之變化。但在實際操作中,有時需要在公式獲得計算結果后,其值能夠固定,不再隨著引用單元格中值的變化而變化。此時,將單元格中的公式刪除以取消與引用單元格的關聯是解決這個問題的一個辦法,本例將介紹使用VBA程序快速刪除單元格中的公式的方法。

1、啟動Excel 2013并打開需要處理的工作表,E3:F6單元格區域的單元格中存在著公式。在“開發工具”選項卡的“控件”組中單擊“插入”按鈕,在打開的列表的“表單控件”欄中選擇“按鈕”控件,如圖1所示。

使用VBA程序快速刪除單元格中的公式的方法

圖1 選擇“按鈕”控件

2、按住左鍵拖動鼠標在工作表中繪制該控件,此時將打開“指定宏”對話框,在“宏名”文本框中輸入宏名后單擊“新建”按鈕,如圖2所示。

使用VBA程序快速刪除單元格中的公式的方法

圖2 設置宏名

(3)打開Visual Basic編輯器并自動創建名為“刪除公式”的過程,在代碼窗口中輸入過程代碼,如圖3所示。具體的程序代碼如下。

使用VBA程序快速刪除單元格中的公式的方法

圖3 輸入程序代碼

01 Sub 刪除公式()

02 Dim Mywb As Workbook,Myws As Worksheet

03 Dim rng As Range,rngA As Range

04 For Each Mywb In Workbooks

05 With Mywb

06 For Each Myws In.Worksheets

07 On Error Resume Next

08 Set rngA=Myws.UsedRange.SpecialCells(xlCellTypeFormulas)

'獲取公式單元格區域引用

09 For Each rng In rngA

10 rng.Value=rng.Value'將公式轉換成數值

11 Next

12 Next

13 End With

14 Next

15 End Sub

注意

在這里的程序代碼中,使用For Each……In結構對每個工作簿的每張工作表進行循環,使用SpecialCells(xlCellType Formulas)語句獲取工作表中帶有公式的單元格。同樣使用For Each……In語句來遍歷所有帶有公式的單元格,使用rng.Value=rng.Value語句將單元格的值賦予單元格以實現將單元格中的公式轉換為具體的數值。

4、切換到Excel工作表,右擊按鈕,選擇快捷菜單中的“編輯文字”命令,然后將按鈕上的文字修改為“刪除公式”。取消對按鈕文字的編輯后單擊該按鈕運行程序,工作表中的所有公式均被刪除,原來帶有公式的單元格中只顯示了公式的計算結果,如圖4所示。

使用VBA程序快速刪除單元格中的公式的方法

圖4 刪除單元格中的公式

本文已經收錄至:《Office 2013應用技巧實例大全》 - Office2013高級應用篇

更多相關閱讀

Excel工作表中復制公式的的兩種方法

Excel2013表格中如何將公式復制到其他單元格中的方法

在PowerPoint演示文稿中使用公式編輯器的方法

Excel公式返回#NAME?錯誤值原因及解決方法

excel多條件查找公式大全

    相關教程
    專題教程推薦
    熱門資源下載