Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → funkcija za trazenje zadnje kolone


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi


zxz (10.07.2017 18:04):
Predmet: Re: funkcija za trazenje zadnje kolone
Pa da ti si moderator i stavljas u top sto smatras da treba.

Avko (10.07.2017 12:51):
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

zxz (10.07.2017 08:08):
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

Avko (09.07.2017 23:01):
Predmet: Re: funkcija za trazenje zadnje kolone
Znaci mogao bi je staviti u VBA excel funkcije i cijelu temu u TOP?

zxz (09.07.2017 20:23):
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.

Avko (09.07.2017 11:37):
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

zxz (09.07.2017 00:50):
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.

Avko (07.07.2017 21:04):
Predmet: Re: funkcija za trazenje zadnje kolone
Nije u tome i je problem

Gjoreski (07.07.2017 18:58):
Predmet: Re: funkcija za trazenje zadnje kolone
Ako je uvjek jedna kolona prazna samo mozes dodsti +1 i on otcitace zadnju kolonu.

Avko (07.07.2017 10:03):
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?

Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 5: 44 am.