|
すいません
またまた質問ですが、
教えていただいた方法で謎は解けたのですが・・・
その出した答えを計算させようと思い『=Keisan()』
を作ったのですが、どうせだったら一緒に処理させようと思い
A B C
1 幅0.2*長さ0.5 =del_wide(A1) =Keisan(B1)
2 幅0.2*長さ0.5 =KeisanT(A2)
考えてみたのですが、分かりませんでした。
ちなみにセルC1の=Keisan(B1)の処理は下記のとおりです。
'---------------------------------------------------------------
Function Keisan(算出式, 四捨五入桁数) As Double
If TypeName(算出式) = "Range" Then
計算値 = 算出式.Value
End If
Keisan = Evaluate(計算値)
Keisan = Round(Keisan, 四捨五入桁数)
End Function
'---------------------------------------------------------------
上記の方法と教えていただいた方法は合成出来ないのでしょうか?
よろしくお願いします。
|
|