Új hozzászólás Aktív témák

• #18151 Mutt senior tag cserma #18146

  Új Válasz 2013-05-26 22:10:58 #18151

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz cserma #18146 üzenetére

  Hello,

  Hát nem voltunk ott a "megbeszélésen" ezért anélkül erre jutottam.

  Feladat 1: paraméter 4 direkt nem volt?

  Function SajatFuggveny(P1, P2, P3, P5)
  
  SajatFuggveny = P1 * P2 * P3 - P5 * 10 - 100.05
  
  End Function

  Vagyis majd így tudod használni: =SajatFuggveny(3,3;4;5;7)
  Nincs benne semmi hibaellenőrzés, azért érdemes lenne a bemenő paramétereket legalább egy ISNUMERIC-re ellenőrízni.

  Feladat 2: itt feltételezem, hogy a narancssárga mező helye B7.

  Sub SajatNegyzet()
  
  If IsNumeric(ActiveCell) Then Range("B7") = ActiveCell ^ 2
  
  End Sub

  Ezt is lehet bővíteni azzal hogy szóljon ha nem jó az éppen kijelölt cella vagy esetleg több cella van kijelölve.

  üdv.

Új hozzászólás Aktív témák