Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 07.07.2017 10:03
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,812


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):
  1. Function traziZadnjuKolonu(ImeSita As String)
  2.     Dim Zadnji As Long
  3.     Dim ws As Worksheet
  4.     Set ws = Sheets(ImeSita)
  5.     With ws
  6.         Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column
  7.     End With
  8.     traziZadnjuKolonu = Zadnji
  9. 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.
↑  ↓

#2 07.07.2017 18:58
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: funkcija za trazenje zadnje kolone
Ako je uvjek jedna kolona prazna samo mozes dodsti +1 i on otcitace zadnju kolonu.
↑  ↓

#3 07.07.2017 21:04
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,812


Predmet:Re: funkcija za trazenje zadnje kolone
Nije u tome i je problem
zivot je moja domovina.
↑  ↓

#4 09.07.2017 00:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: funkcija za trazenje zadnje kolone
PreuzmiIzvorni kôd (Visual Basic):
  1. Function traziZadnjuKolonu(ImeSita As String, OdReda As Integer, DoReda As Integer)
  2.     Dim Zadnji As Long
  3.     Dim ws As Worksheet
  4.     Dim I As Integer
  5.     Dim Brojac As Integer
  6.    
  7.     Set ws = Sheets(ImeSita)
  8.     With ws
  9.         For I = OdReda To DoReda
  10.         Brojac = .Cells(I, .Columns.Count).End(xlToLeft).Column
  11.         If Zadnji < Brojac Then
  12.         Zadnji = Brojac
  13.         End If
  14.         Next I
  15.     End With
  16.     traziZadnjuKolonu = Zadnji
  17. End Function
OdReda i DoReda
Od kojeg do kojeg reda da pregleda.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 09.07.2017 11:37
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,812


Predmet:Re: funkcija za trazenje zadnje kolone
imam oko 1500 redova.
a nesto sam prepravio tvoju funkciju pa ako mozes komentiraj dali bi ona nasla to sto meni treba:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function traziZadnjuKolonu(ImeSita As String)
  2.     Dim Zadnji As Long
  3.     Dim ws As Worksheet
  4.     Dim zadnjaCelija As Range
  5.    
  6.     Set ws = Sheets(ImeSita)
  7.    
  8.     Set zadnjaCelija = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _
  9.                                     LookAt:=xlPart, SearchOrder:=xlByColumns, _
  10.                                     SearchDirection:=xlPrevious, MatchCase:=False)
  11.    
  12.     Zadnji = zadnjaCelija.Column
  13.     traziZadnjuKolonu = Zadnji
  14. End Function
zivot je moja domovina.
↑  ↓

#6 09.07.2017 20:23
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: funkcija za trazenje zadnje kolone
Procedura je dobra i radit ce ono sto ti hoces.
Ja sam isao na onu variantu samo zbog toga sto se treba odnekle postaviti.
naime dok sam radio funkcija mi pokazala 8 kolona a ja sam koristio samo 5.
Poslije sam skontao da sam imao poziv funkcije iz 8 kolone pa sam onda napravio ono od do.
Doduse nisam ja nasao ovako elegantno rjesenje kao tvoje.
Ova tvoja bi dobra bila i u nekoj temi korisne procedure ili vec kako se zove.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 09.07.2017 23:01
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,812


Predmet:Re: funkcija za trazenje zadnje kolone
Znaci mogao bi je staviti u VBA excel funkcije i cijelu temu u TOP?
zivot je moja domovina.
↑  ↓

#8 10.07.2017 08:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: funkcija za trazenje zadnje kolone
Stavi ti temu top ako hoces ali stavi svoju funkciju i u ovu temu:
http://www.icentar.ba/showtopic.php?id=6152
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 10.07.2017 12:51
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,812


Predmet:Re: funkcija za trazenje zadnje kolone
to sam i mislio, ali se nismo razumjeli

moju funkciju u temu "VBA Excel funkcije" , a onda tu temu "VBA Excel funkcije" u TOP,a
ne ovu temu u TOP
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 10.07.2017 12:55 od strane Avko. ↑  ↓

#10 10.07.2017 18:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: funkcija za trazenje zadnje kolone
Pa da ti si moderator i stavljas u top sto smatras da treba.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 09 pm.