VBA Excel如果單元格不等於公式則

Question

我想檢查一個單元格是否為該公式，然后執行第2部分腳本

簡化的代碼

Range("B1:C1").Select
If ActiveSheet.Name = "Sheet1" And ActiveCell <> "=formula1" Then Sheet1Macro

完整的代碼（長）

Range("B1:C1").Select
If ActiveSheet.Name = "Sheet1" And ActiveCell <> "=IF(OR(IFERROR(SEARCH(""DKB"",RC[-2]),0),IFERROR(SEARCH(""Cox"",RC[-2]),0),IFERROR(SEARCH(""2020"",RC[-2]),0)),RC[-1],"""")" Then Sheet1Macro

我只是問關於如何檢查單元格是否為公式的問題，因為我插入了行，例如將公式從A2：F99更改為A99：F189

Answer 1

If ActiveSheet.Name = "Sheet1" And Range("B1").FormulaR1C1 = "=IF(OR(IFERROR(SEARCH(""DKB"",RC[-2]),0),IFERROR(SEARCH(""Cox"",RC[-2]),0),IFERROR(SEARCH(""2020"",RC[-2]),0)),RC[-1],"""")" Then Sheet1Macro