Skocz do zawartości


Close Open
Close Open
Zdjęcie
- - - - -

Przypisanie stałych w funkcji.


  • Please log in to reply
No replies to this topic

#1 d_omin

d_omin

    Początkujący

  • Forumowicze
  • PipPipPip
  • 66 Postów:

Napisany 15 February 2019 - 09:38 AM

Cześć,

Mam taką prostą funkcje:

Public Function MC(m0 As Double, ms As Double, mt As Double, typ As String) As Double

If m0 <> 0 And ms <> 0 And mt <> 0 Then

Select Case typ
Case Is = "wb": MC = (mt - ms) / m0
Case Is = "db": MC = (mt - ms) / ms
Case Is = "pb": MC = (mt - ms) / mt
End Select

Else

MC = 0

End If


End Function

 

I utknąłem w jednym miejscu: otóż chciałbym aby m0 i ms były stałymi (analog to zablokowania komórki $). Czy da się to jakiść zrobić już w kodzie funkcji bez konieczności ręcznęgo blokowania klawiszem F4 po jej wpisaniu w arkusz? I jeszcze drugie pytanie jak zapisać warunek po Else żeby  dla komórek dla których nie jest spełniony warunek IF nie wstawiał nic ani nie zwracał błędu argumentu (!Arg)?

 

Z góry dzięki za pomoc.

 






0 Użytkowników czyta ten temat

0 użytkowników, 0 gości, 0 anonimowych użytkowników