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
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:
Včasih je potrebno tudi kaj skuhati
Naročite se na:
Objave (Atom)