🚀 go-pugleaf

Peter

Public Function Costs(cell1 as text, cell2 as single, cell3 as single) as
Single
   Dim result as single
   dim P as single

  '  Your code here
  '  Assume your code is correct and final result is in the variable result
then
 '   that value must be assigned to the name of the function
 Costs = Result
End Function

  HTH,
Tom Ogilvy
    Peter J. E. ROEK wrote in message <6mpaqe$fvr@news.euro.net>...
    Dear reader,

    Thanks for paying attention to this message.
    Working in Excel, I want to design my own formula
    with Visual Basic.
    Can you tell me how to do this?
    For example I want to make a formula named �COSTS�:

    COSTS(cell1, cell2, cell3)

    When I place this own-made formula in a certain cell, the
    next procedure has to run:

    (RESULT must be the result that has to appear in the cell
    with the formula in it�.)

    IF cell1 =  �Bank� THEN
        IF cell2 <= 1,50 THEN
          IF cell3 <= 10 THEN P=12 ENDIF
          IF cell3 >10 AND cell3 <=100 THEN P=9 ENDIF
          IF cell3 > 100 THEN P=7.5 ENDIF
          IF P*cell3 < 50 THEN RESULT=50 ELSE RESULT=P*cell3 ENDIF
        ELSE
          IF cell3 <= 10 THEN P=19 ENDIF
          IF cell3 >10 AND cell3 <=100 THEN P=15 ENDIF
          IF cell3 > 100 THEN P=12.5 ENDIF
          IF P*cell3 < 50 THEN RESULT=50 ELSE RESULT=P*cell3 ENDIF
    ENDIF

    IF cell1 =  �Phone� THEN
        IF cell2 <= 1,50 THEN
          IF cell3 <= 10 THEN P=11 ELSE P=6 ENDIF
          IF P*cell3 < 50 THEN RESULT=50 ELSE RESULT=P*cell3
        ELSE
          IF cell3 <= 10 THEN P=16 ELSE P=11 ENDIF
          IF P*cell3 < 50 THEN RESULT=50 ELSE RESULT=P*cell3
    ENDIF


    Thanks very much for your cooperation.

    Peter Roek
    Tel/Fax: (+31)165-514671
    Mobile: (+31)653-639890
    E-mail: roekp@westbrabant.net