VBA 計算結果を数値ではなく、数式で表示したい。
配合表から配合比率を計算するVBAを組みたいのですが、実際の数値ではなく計算式を表示したいです。
こちらが自分で記入したコードです。
Q列とAA列とAB列をかけて、100で2回割った結果をAC列に表示します。同じ行にすべての数値が記入されないので、AB列からそれぞれ必要な列の数値を取得しています。
Sub 配合比率仮()
Dim i As Integer
Dim AB
Dim Q
Dim AA
Range("AB3").Select
For i = 1 To 500
If ActiveCell.Value = "" Then '空白の場合下のセルへ
ActiveCell.Offset(1, 0).Select
Else '配合割合の数値がある場合
AB = ActiveCell.Value 'アクティブセルの数値の取得
Q = ActiveCell.Offset(0, -11).End(xlUp).Value '重量比率を取得
AA = ActiveCell.Offset(0, -1).End(xlUp).Value '配合割合の左列を取得
ActiveCell.Offset(0, 1) = s * t / 100 * u / 100 '製品の配合比率を計算(ここを数式にしたいです)
ActiveCell.Offset(1, 0).Select '下のセルへ
End If
Next i
End Sub
上記コードでは数値が表示されます。数式で結果を表示させる方法を教えてください。Formula/FormulaR1C1プロパティを使うと思ったのですが、うまく動くコードが書けませんでした。初心者に毛が生えたようなもので上記コードもなっていないものかとは思うのですが、どうぞお力を貸してください。
お礼
ご回答ありがとうございます。 >装甲側も重くて硬くなければいけない そうだったのですか……。 知りませんでした。 ただ、軽くて強いものほどよい、と固定観念で考えておりました。