我可以在IF THEN Else聲明中加入公式嗎？

在鏈接表中，我想用公式填充H列。要使用的公式取決於F列中的值。每天，F列中的行數和可能的值數量可能會發生變化。我認爲vba會是設置這個的最好方法，但我在代碼中遇到了問題。這甚至會成爲啓動代碼的方式嗎？我可以在IF THEN Else聲明中加入公式嗎？

Sub Macro4() 
Dim lastRow As Long 
    lastRow = Range("H" & Rows.Count).End(xlUp).Row 
    Label = Range("F2") = "AUD/JPY"

來源

2016-08-05 Jeremy C

我不確定輸出應該是什麼？你可以在其他方面有一個公式，但不清楚你想要達到什麼。感覺就像你正在尋找像'SELECT CASE'一樣的東西，但我不知道。 – Spurious

'Label = Range（「F2」）=「AUD/JPY」'需要分成兩行'Label =「AUD/JPY」'和'Range（「F2」）= Label'。不要忘記將Label聲明爲字符串 –

輸出是公式的結果，它是一個If語句。它會說是否應該根據G列中的當前價格行使該選項。這就是爲什麼我認爲if if else語句最好。 –

我彌補了H列的公式，但你應該能夠應用這種模式你需要輸入任何公式。

Sub Macro4() 
    Dim lastRow As Long 
    Dim xCell As Range 
    lastRow = Range("H" & Rows.Count).End(xlUp).Row 
    For Each xCell In Range(ActiveSheet.Range("F2"), ActiveSheet.Range("F2").End(xlDown)) 
     Select Case xCell.Value 
     Case "AUD/JPY" 
      ActiveSheet.Cells(xCell.Row, "H").Formula = "=G" & xCell.Row & "/E" & xCell.Row 
     Case "AUD/USD" 
      ActiveSheet.Cells(xCell.Row, "H").Formula = "=2*G2" 
     '''Case etc... write other cases you need to handle 
     End Select 
    Next 
End Sub

來源

2016-08-05 18:47:43 Paul

我可以在IF THEN Else聲明中加入公式嗎？

回答

相關問題