如何將字符串公式轉換爲「真實」公式

Question

我在單元格中有0,4*A1（作爲字符串）。如何將這個「字符串公式」轉換成一個真實的公式並在另一個單元格中計算它的值？

Answer 1

評估和演示可能適合：

- http://www.mrexcel.com/forum/showthread.php?t=62067

Function Eval(Ref As String) 
Application.Volatile 
Eval = Evaluate(Ref) 
End Function 

Answer 2

只是爲了好玩，我發現了一個interesting article here，使用某種方式隱藏評估功能，它在Excel中存在。訣竅是將它分配給一個名稱，並在您的單元格中使用該名稱，因爲如果直接在單元格中使用EVALUATE（）會給您一個錯誤消息。我嘗試過，它的工作原理！如果要在表格中跨行復制，則可以使用相對名稱。

Answer 3

UPDATE這用來工作（在2007年，我相信），但不會在Excel 2013年

EXCEL 2013： 這是不太一樣的，但如果有可能把0.4一個單元格（B1，比如說）以及單元格D1中另一個單元格（例如C1）中的文本值A1，可以使用= B1 * INDIRECT（C1），這會導致計算0.4 * A1的值。 所以，如果A1 = 10，你會在D1單元中得到0.4 * 10 = 4。如果我能找到一個更好的2013年解決方案，我會再次更新，並對不起微軟破壞了原始功能的間接！

EXCEL 2007版本： 對於非VBA解決方案，請使用INDIRECT公式。它將一個字符串作爲參數並將其轉換爲單元格引用。

例如，= 0.4 * INDIRECT（「A1」）將返回值0.4 *該值在該工作表的A1單元格中。

如果單元格A1是，比如說，10，則= 0.4 * INDIRECT（ 「A1」）將返回4.

Answer 4

我串接我的公式是正常的，但在一開始我有'=而不是=。

然後我將文本複製並粘貼到需要的位置。然後我突出顯示保存爲文本的部分並按ctrl + H找到並替換。
我將'=替換爲=，我的所有功能都處於活動狀態。

它的幾個階段，但它避免了VBA。

我希望這有助於

羅布

Answer 5

我prefere的專業解決方案的VBA的解決方案。

隨着份替換-過程中的問題 search and replace WHOLE WORDS ONLY，我使用下面的VBA的過程：

在Excel工作表

'' 
' Evaluate Formula-Text in Excel 
' 
Function wm_Eval(myFormula As String, ParamArray variablesAndValues() As Variant) As Variant 
    Dim i As Long 

    ' 
    ' replace strings by values 
    ' 
    For i = LBound(variablesAndValues) To UBound(variablesAndValues) Step 2 
     myFormula = RegExpReplaceWord(myFormula, variablesAndValues(i), variablesAndValues(i + 1)) 
    Next 

    ' 
    ' internationalisation 
    ' 
    myFormula = Replace(myFormula, Application.ThousandsSeparator, "") 
    myFormula = Replace(myFormula, Application.DecimalSeparator, ".") 
    myFormula = Replace(myFormula, Application.International(xlListSeparator), ",") 

    ' 
    ' return value 
    ' 
    wm_Eval = Application.Evaluate(myFormula) 
End Function 


'' 
' Replace Whole Word 
' 
' Purpose : replace [strFind] with [strReplace] in [strSource] 
' Comment : [strFind] can be plain text or a regexp pattern; 
'    all occurences of [strFind] are replaced 
Public Function RegExpReplaceWord(ByVal strSource As String, _ 
ByVal strFind As String, _ 
ByVal strReplace As String) As String 

    ' early binding requires reference to Microsoft VBScript 
    ' Regular Expressions: 
    ' with late binding, no reference needed: 
    Dim re As Object 
    Set re = CreateObject("VBScript.RegExp") 

    re.Global = True 
    're.IgnoreCase = True ' <-- case insensitve 
    re.Pattern = "\b" & strFind & "\b" 
    RegExpReplaceWord = re.Replace(strSource, strReplace) 
    Set re = Nothing 
End Function 

使用的程序的樣子：

Answer 6

最好的，非VBA的方法是使用TEXT公式。它將一個字符串作爲參數並將其轉換爲一個值。

例如，= TEXT（「0.4 * A1」，'##'）將返回值0.4 *該值在該工作表的A1單元格中。

Answer 7

在我看來，最好的解決方案是在這個環節： http://www.myonlinetraininghub.com/excel-factor-12-secret-evaluate-function

下面是一個總結： 1）在單元格A1中輸入1， 2）在A2單元格中輸入2， 3）在單元格A3輸入+， 4）創建一個命名範圍，在創建指定範圍時在「指向」字段中添加「=評估（A1 & A3 & A2）」。讓我們稱這個命名範圍爲「testEval」， 5）在單元格A4中輸入= testEval，

單元格A4的值應該是3。

備註： a）不需要編程/ vba。 b）我在Excel 2013中做到了這一點，它的工作原理。