書き込みExcelの数式

Question

私は..次の式を実行する上でVBAコード

For i = 5 To lastrow 
     ws2.Cells(i, lastcolumn + 1).Formula = "=DATEVALUE(INDIRECT(LEFT($F$1,1)" & i & "))+TIMEVALUE(INDIRECT(LEFT($H$1,1)" & i & "))" 
     ws2.Cells(i, lastcolumn + 1).NumberFormat = "dd.mm.yyyy hh:mm:ss" 
Next i 

..in

Click to see the Excel Formula Solution

をエクセルVBAエラー "1004" を得続けます誰もが正しくVBAコードを書くことを確認する方法を知っていますか？ N5の数式セルに

Answer 1

をクリックして、その後、 実行し、このコード：

Public Sub PrintMeUsefulFormula() 

    Dim strFormula As String 
    Dim strParenth As String 

    strParenth = """" 

    strFormula = Selection.Formula 
    strFormula = Replace(strFormula, """", """""") 

    strFormula = strParenth & strFormula & strParenth 
    Debug.Print strFormula 

End Sub 

は、イミディエイトウィンドウを見て、それに応じて、あなたの数式を修正します。

Answer 2

iの場合は1つの、あなたの式は、あなたが式に&が欠落している

=DATEVALUE(INDIRECT(LEFT($F$1,1)1)) + +TIMEVALUE(INDIRECT(LEFT($H$1,1)1)) 

に解決しました。

For i = 5 To lastrow 
     ws2.Cells(i, lastcolumn + 1).Formula = "=DATEVALUE(INDIRECT(LEFT($F$1,1) & " & i & "))+TIMEVALUE(INDIRECT(LEFT($H$1,1) & " & i & "))" 
     ws2.Cells(i, lastcolumn + 1).NumberFormat = "dd.mm.yyyy hh:mm:ss" 
Next i