Excel, custom function (izdelaj si svojo funkcijo)


Včasih nam pride prav, da si v Excelu izdelamo svojo funkcijo. Ponavadi je to takrat, ko isto funkcijo potrebujemo v več celicah. Funkcijo izdelamo z Visual Basicom. Tukaj je nekaj enostavnih primerov:

Function MyStringA(Length As Integer) As String
'Funkcija vrne niz znakov x v dolžini Length znakov
       MyStringA = String(Length, "x")
End Function

Function VzemiFormulo(Cell As Range) As String
'Funkcija prepiše formulo izbrane lokacije
       VzemiFormulo = Cell.Formula
End Function

Function IsGreen(Cell As Range) As Boolean
'Funkcija preveri, ce je ozadje podane celice zelene barve
If Cell.Interior.ColorIndex = 3
      Then IsGreen = True
      else IsGreen = False
End Function

Funkcijo uporabimo v Excelu na običajen način, tako kot standardne funkcije:

 

Klic funkcije v Excelu
Rezultat funkcije
Advertisements

About Andrej Dobrovoljc

Andrej Dobrovoljc

Posted on 10. August, 2010, in Excel. Bookmark the permalink. Leave a comment.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: