Excel vsebuje ziljon funkcij, ampak včasih si res zaželimo, da bi imeli čisto svojo. Potrebujemo samo idejo in 3 minute časa. Zaženemo Excel, pritisnemo uporabno kombinacijo Alt+F11 in smo v VBA-ju. Vstavimo nov Modul in namesto Sub karneki(), vpišemo Function karneki().
Današnji funkciji sta nastali zaradi čudne excelove tabele v kateri so bile celice z različnimi barvami polnil in različnimi barvami besedila. In ker mi seveda ni padlo nič pametnega na misel, sem si filtriranje zamislil po svoje.
Funkciji sta:
txtColor = rng.Font.ColorIndex
End Function
Function backColor(rng As Range)
”funkcija ki vrne številko barve polnila
backColor = rng.Cells.Interior.ColorIndex
End Function
To preprosto vnesemo v VBA in se vrnemo v Excelovo datoteko ter izvedemo preizkus. V celico A2 vnesemo besedilo in ga pobarvamo rdeče, za polnilo pa izberemo rumeno barvo. Nato se postavimo v celico B2 in vpišemo “=txtColor(A2)”, kar nam da rezultat 3. V celico C3 vpišemo “=backColor(A2)” in dobimo 6.
Ti si profi za excel. In jaz sem popolen luzer,ker sploh ne vem,kaj sem brala in kako bi se ga sploh lotila.:(