Prikazi cijelu temu 10.06.2012 14:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Maksimalan broj ponavljanja vrijednosti
Hehe ti si uvijek znao naci dobro pitanje:
Evo ovako:
Pretpostavimo da imas u A koloni imena
U B1 Kolonu Napisi sledece:
=COUNTIF(A:A;A:A)

Sada ovo kopiraj opcijom vuci u sve kolone B redove dokle imas zapisa u a koloni.

U C1 Koloni napisi sledece:
=ImeP(A:A;B:B)
Ovu proceduru ces kopirati u modul VB-a u exelu:
Ides:
Tools--->Macro--->Visual basic editor.

Kada se otvori Vb druga ikonica sa lijeva ti je insert moduule.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ImeP(KolonaImena As Range, KolonaKount As Range) As String
  2. Dim Polje As Object
  3. Dim Skupina As Range
  4. Dim X As Integer
  5. Dim MaksV As Integer
  6. Dim Adresa As String
  7.  
  8.  
  9. Set Skupina = KolonaKount
  10. For Each Polje In Skupina.Cells
  11.  
  12. X = Polje.Value
  13. If X > MaksV Then
  14. Adresa = KolonaImena.Column & "," & Polje.Row
  15. MaksV = X
  16. ImeP = KolonaImena(Adresa) & ":" & MaksV
  17. End If
  18. Next Polje
  19.  
  20. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.