彰化一整天的論壇

 找回密碼
 立即註冊
查看: 270|回復: 0

Excel如何利用range.find找到公式並修改

[複製鏈接]
發表於 2017-7-3 20:31:05 | 顯示全部樓層 |閱讀模式
本帖最後由 imingho 於 2017-7-3 22:40 編輯

網友問到如何找到某一個公式例如sum,並在這個公式前面加上函數round,因為find會有找不到的時候,要用IS Nothing是表示找不到,若找到再將公式換成您想要的公式。
find_formula_01.jpg
1.原本公式=sum(A2:A6)
find_formula_02.jpg
2.xlFormualas是代表公式
find_formula_03.jpg
3.執行後公式已經改變
檔案下載: http://download.bestdaylong.com/f442.htm  尋找公式並取代的範例

  1. Private Sub cmdFind_Click()
  2.     With Range("a1:a500")
  3.         Set c = .Find("=SUM(A2:A6)", LookIn:=xlFormulas)
  4.         If Not c Is Nothing Then
  5.             c.Value = "=round(SUM(A2:A6),2)"
  6.         End If
  7.     End With
  8. End Sub
複製代碼

回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-8-21 21:44 , Processed in 0.115211 second(s), 22 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表