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プロパティを使うと思ったのですが、うまく動くコードが書けませんでした。初心者に毛が生えたようなもので上記コードもなっていないものかとは思うのですが、どうぞお力を貸してください。
お礼
講師の方が美味しいんですよ。目安という味付けと、配合は飲食店の味(講師は飲食店経営) いつも自己流で作りますが、いつも干からびたパンできるので、やはり自分の癖のあるパンができあがります。 ちなみに余りに不味いので苦情がでるんです(これも不味さの黄金比率です。言い方なんか幾らでも変えられます)
補足
同じ調味料と、同じ小麦粉です。二通りの作り方をしてます。 ひとつは、講師の配合どおりに(美味しい匂い)。湿度、焼きも同じ。 二つ目は、自己流の配合です(パンから食べられない腐った匂い)同じく。 こねも習ったとおりで同じです。