Predmet:funkcija za trazenje zadnje kolone
| A | B | C |
---|
1 | Jabuka | 10 | |
2 | Tresnja | 5 | |
3 | Visnja | 6 | |
4 | Sljiva | 12 | 2 |
5 | Banana | 10 | 3 |
6 | Kruska | 4 | |
7 | Krastavac | 5 | |
imamo funkciju za trazenje zadnje kolone
PreuzmiIzvorni kôd (Visual Basic):Function traziZadnjuKolonu(ImeSita As String)
Dim Zadnji As Long
Dim ws As Worksheet
Set ws = Sheets(ImeSita)
With ws
Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
traziZadnjuKolonu = Zadnji
End Function
pozivamo ju :
aktivniList = ActiveSheet.Name
zadnjaKolona = traziZadnjuKolonu(aktivniList)
problem je sto nemamo u prvom redu ispisanu C kolonu,trecu kolonu,
pa nam nece dati rezultat 3, zadnjaKolona<>3,
vec ce nam dati rezultat 2, zadnjaKolona=2
Kako napisati funkciju koja ce nam dati rezultat stvarne zadnje kolone?
zivot je moja domovina.