2つの入力ボックスから2つのユーザー入力を使用して分割する方法

Question

2つの入力ボックスでユーザーが入力している2つの数値を分割する必要があります。最初のInputBoxに置かれた数字はコストであり、2番目のInputBoxに入れられた数字は重みです。私はそれらの2つの数字を分けて、私に単位当たりの価格を与える必要があります。

If response = vbNo Then 
     retval = InputBox("Please Enter PO Cost") 
     Number_1 = "InputBoxValue" 

    retval = InputBox("Please Enter Net Weight") 
     Number_2 = "InputBoxValue" 

    Answer = Number_2/Number_1 

Answer 1

Cost/Weightはあなたに単位あたりの価格を与える：

Sub Demo() 
    Dim cost, weight, answer As Variant 

    cost = InputBox("Please Enter PO Cost") 
    weight = InputBox("Please Enter Net Weight") 
    answer = cost/weight 
    MsgBox "Price per Unit is: " & answer 
End Sub 

を