1

更新：数式に新しい問題が発生しました。数式にテキストが含まれているため、数式を完全に機能させることができません。数式（Excelから取得）は次のようになります。 

=IF(D2<=0,"No Sales Price",E2/D2)

思いつく限りの組み合わせを試しましたが、「販売価格なし」が引用符の問題を引き起こしています。私の現在のコードは 

For i = 2 To LastRowG   
Range("Q" & i).Formula = "=IF(D" & i & "<=0," & "(No Sales Price)",  & "(E" & i & "/D" & i & "))"    
Next i

周りを見回しましたが、問題の解決策を見つけることができませんでした、どんな悟りも最大の感謝をもって満たされます

編集：これは、次の行を挿入することで修正されました。 

For i = 2 To LastRowG  
Range("Q" & i).Formula = "=IF(D" & i & "<=0," & Chr(34) & "No Sales Price" & Chr(34) & "," & "E" & i & "/" & "D" & i & ")"
Next i

Chr（34）は、その番号に付随するASCII文字を挿入します。これはたまたま「」です。プログラムは引用符を入力したものとしてそれを読み取らず、コード行を正しく読み取り続けますが、「no数式で正しく販売価格」。

数式が意図したとおりに行を出力し、Chr（34）は、避けられない「ステートメントの終わり」エラーなしで「販売価格なし」と書いているようなものです。

4

1 に答える 1

1

私が提案したことは、次のような結果になります。

LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Cells(LastRow + 1, 3).Formula = "=SUM(C1:C" & LastRow & ")"

エキストラ1

この数式を使用して、左側のセルにTotalという単語を入力することはできますか？

Range("B" & LastRow + 1) = "Total"

エキストラ2

運を押し上げるためにもう1つ、最後のセルの列の最後まで数式をコピーしてみませんか？=G2*57.5 copied until the last row in I

LastRowG = Cells(Rows.Count, "G").End(xlUp).Row

For i = 2 To LastRowG
    Range("I" & i).Value = "=G" & i & "*57.5"
Next i
于 2012-10-31T11:14:06.077 に答える