A2に単価、B2に個数があってC2に掛け算の結果を入れたいのですが、この単価と個数を受け取って結果を

A2に単価、B2に個数があってC2に掛け算の結果を入れたいのですが、この単価と個数を受け取って結果を返すサブプロシージャを教えてほしいです

質問者からの補足コメント

• 回答ありがとうございます！この説明不足ですみません！この方法じゃなくて値を取得してからファンクションで呼び出すやり方ですm(_ _)m

    補足日時：2018/02/13 09:58

No.2 ベストアンサー 回答者： mike32 回答日時： 2018/02/13 20:28

こういうことですか？

Sub Sample()
Dim tanka As Long
Dim kosuu As Long
Dim kekka As Long
tanka = Range("A2")
kosuu = Range("B2")
kekka = fncKeisan(tanka,kosuu)
Range("C2") = kekka
End Sub

Function fncKeisan(tanka As Long, kosuu As Long) As Long
fncKeisan = tanka * kosuu
End Function

この回答へのお礼

とてもわかりやすいです！ありがとうございます！！★

お礼日時：2018/02/14 09:17

No.3 回答者： mike32 回答日時： 2018/02/13 20:39

それとも、セルに直接入力して使う関数みたいなものを希望していますか？

下記の①と②の書き方がありますが、どちらも同じように計算できます。

A2に単価、B2に個数があって、C2に =funcKeisan(A2,B2)　と入力すると、A2とB2を掛けた値がC2に入ります。

①
Function fncKeisan(tanka As Long, kosuu As Long) As Long
fncKeisan = tanka * kosuu
End Function


②
Function fncKeisan(tanka As Range, kosuu As Range) As Long
fncKeisan = tanka * kosuu
End Function

No.1 回答者： mike32 回答日時： 2018/02/09 23:33

c2に「=A2*B2」の式を入れるだけではダメなのですか？

VBAでやりたいのであれば、下記でできます。

Sub sample()
Range("C2") = Range("A2") * Range("B2")
End Sub