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:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-mxe5aztj0EHAao1nS4DNuu2c7IGj59SmSDQTgVLwOW1wb-CaeSXFMmXjYFN6zAK7sLmBx5o_6QW3D44_BWHicaE1P_F7iNx8MRYLCeFz6kit3r8f2k_2rc-3Qu3oKvxVsGLrq_qO0GI/s1600/2010-12-01_153319.png) |
Klic funkcije v Excelu |
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgy9wUQN9JQA9S1vPCMvKonzL0qzmYbwccZIciP779ufduVvfW9pXOWuivo9ISf9a3Stwde8InS-kGvAaOJRX4ej0nQsg31kh_zZlz1BlumiehukzIXorKKCLG4CIjvdijU9BkMJGy_lJw/s1600/2010-12-01_154105.png) |
Rezultat funkcije |
Ni komentarjev:
Objavite komentar