VBA Excel如何將值的一部分替換為另一個Cells值

Question

我想要一個單元格，有人可以輸入公式，然后使用宏自動將該公式中的單詞替換為同一張表中的正確數字。

例：
Sheet包含一個單元格（L8），其值為Weight，讓我們說它的10另一個單元格（L10）具有Height的值，比方說20。

現在，如果有人在單元格中輸入類似的內容（I27）:(高度+ 120）/重量我希望宏用相應的值替換文本，這樣我就可以將該文本用作公式並在單元格I28中顯示結果。

因此，單元格（I27）將顯示20 + 120/10，單元格（I28）將輸出該公式的結果。

值在列L8-L14中。

我嘗試使用我發現的解決方案，其中包括以下內容：

With Range("I27")
    .Replace What:="Weight", _
            Replacement:="", _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            MatchCase:=False, _
            SearchFormat:=False, _
            ReplaceFormat:=False
End With

我需要以某種方式告訴它從另一個單元格獲得替換。

我想如果我可以讓代碼工作，我就可以為我想要替換的每個單詞復制它（4），然后處理一個解決方案，使用公式將結果輸出到它旁邊的單元格中。

Answer 1

要使用命名范圍，

1- Select the menu Formulas --> Name Manager
2- New...--> Name: Weight, RefertTo: =Sheet1!$L$8 -->OK
3- New...--> Name: Height, RefertTo: =Sheet1!$L$10 -->OK

現在，您的單元格L8具有名稱 “權重”，而單元格L10具有名稱 “高度”。 您可以在任何單元格中鍵入此公式：

 =(Height+120)/Weight

並得到(L10+120)/L8的結果值。

在步驟2和3中，通過將光標放在RefersTo框中，然后單擊獲取名稱的相應單元格，您可以更輕松地完成操作。