サブの式を使用する

Question

私の元来の質問は、if - > then文で関数の出力を使う方法でした。そしてShaiの助けが非常に役に立ちました（ここではUsing an output of aformula in another）。

ここで私がやりたいことは、サブ関数でこの関数を使うことです。 - 「ここmergesize機能」のMsgBoxを私が見える私の機能を追加したいところである

Private Sub CommandButto1_click() 
Dim answer As Integer 
Dim Response As VbMsgBoxResult 
Dim late As VbMsgBoxResult 

answer = MsgBox("Price for only one product?", vbYesNoCancel + vbQuestion, "Payment") 
If answer = vbYes then 
    late = MsgBox("Is the customer late and has to be charged extra?", vbQuestion + vbYesNoCancel) 

    If late = vbYes then 
     MsgBox "mergesize function here" 
    End If 
End If 

End Sub 

それはそのまま正常に動作しますが、それは言う場所：だから私は（今のところ完全なものではありません）このサブを持っています

Public Function MergeSize(r As Range) As Long 

MergeSize = r(1).MergeArea.Cells.Count 

If MergeSize <= 10 Then 
    MergeSize = MergeSize * 70 
Else 
    MergeSize = MergeSize * 65 
End If 

End Function 

もう1つの問題は、関数の出力をnullにして、msgboxにのみ表示させることですか？

Answer 1

次のようなコードを試してみてください。 Function MergeSizeというコードを追加した箇所にIv'eマークが付きます。私はRange("B2")をMerged Rangeとして使用しました。

コード

Private Sub CommandButto1_click() 

Dim answer As Integer 
Dim Response As VbMsgBoxResult 
Dim late As VbMsgBoxResult 

answer = MsgBox("Price for only one product?", vbYesNoCancel + vbQuestion, "Payment") 
If answer = vbYes Then 
    late = MsgBox("Is the customer late and has to be charged extra?", vbQuestion + vbYesNoCancel) 

    If late = vbYes Then 
     '===== Added the 3 lines below ===== 
     Dim ExtraCharge As Long 

     ExtraCharge = MergeSize(Range("B2")) '<-- Range("B2") is a Merged Cells 
     ' === Ver 2.0 - to use with ActiveCell === 
     ExtraCharge = MergeSize(ActiveCell) '<-- ActiveCell is a Merged Cells 

     MsgBox "Extra Charge is " & ExtraCharge 
    End If 
End If 

End Sub