小弟我有寫一些運算式，但貼過來運算的那頁面必須是文字串公式
但無論怎樣寫VBA語法都無法自動運算，希望高手可以教一下
Ex. A1 = if(and(A2>A3,B3<=B2),"O","X"))
因為有很多列類式的文字串公式，因此希望可以用VBA自動運算
已邀請的邦友 {{ invite_list.length }}/5
第一步驟,
先借一本書來實作研究一遍,
應該就會有概念了.
老師！！ 這題怎麼寫 (舉手
阿展展展
請來我的補習班上課學習.
老師老師 請問善良的人是不是都樂於助人 (純潔閃亮亮眼
阿展展展
我一直都覺得你很善良,
我最近缺錢,
麻煩你了. (口連閃閃發亮
我看了很多文章跟書，都沒有寫到要如何自動計算Excel 中的文字串公式，不知道小魚大師能不能教一下
其實說真的,
不是很了解你的需求...
這是原本的資料
這是公式,
Private Sub test()
For i = 2 To 6
Cells(i, 2) = Evaluate(Cells(i, 1).Value)
Next
End Sub
執行之後就變這樣.
謝謝小魚大師的解惑，如果運算字串改成
If判斷式就無法使用該方法，不知道小魚大師有沒有其他解法呢??
拜託教教小弟
你可以試試看
Range("A1").Formula = "=if(and(A2>A3,B3<=B2),""O"",""X""))"
如果你有1000個文字串公式：
Range("A1:A1000").FormulaR1C1 = "=if(<condition>, <true>, <false>)"
Ex. A1 = if(and(A2>A3,B3<=B2),"O","X"))
因為有很多列類式的文字串公式，因此希望可以用VBA自動運算
內文我看不出公式的邏輯跟規則是什麼
我只能單就這行改寫成VBA語法
A1 = if(and(A2>A3,B3<=B2),"O","X"))
參考如下
Sub test()
If (Range("A2") > Range("A3") And Range("B3") <= Range("B2")) Then
Range("A1") = "O"
Else
Range("A1") = "X"
End If
End Sub
如果你有很多類似的公式 應該可以加個FOR迴圈來實現
iThome鐵人賽
看影片追技術