torek, 10. avgust 2010

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

Včasih je potrebno tudi kaj skuhati

... npr. špagete po bolonjsko za svoje sodelavce ...