Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → VBA EXCEL sort po dvije 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


Avko (30.12.2024 10:32):
Predmet: Re:VBA EXCEL sort po dvije kolone
radi, ma mislio sam dali je dobro sto se tice vishka-manjka
Ja sam to prepisao sa interneta i mozda ne treba sve, recimo prvi red.
Zasto bi selektirao kada kasnije imam odreden raspon sortiranja, a kada sam upotrijebio ovo:

PreuzmiIzvorni kôd (Visual Basic):
  1. Range("A1:C13").Sort    Key1:=Range("A1"), Order1:=xlAscending, _
  2.                                 Key2:=Range("B1"), Order1:=xlAscending, _
  3.                                 Header:=xlYes

to nije radilo

i ovo nije radilo:

PreuzmiIzvorni kôd (Visual Basic):
  1. Sub SortMultipleColumns()
  2.     Range("A1:C" & zadnjiRed).Sort Key1:=Range("A1"), Order1:=xlAscending, _
  3.                          Key2:=Range("B1"), Order2:=xlDescending, _
  4.                          Header:=xlNo
  5. End Sub

zato pitam, radi ali dali je sve potrebno. Htio bi izbaciti nepotrebno

zxz (29.12.2024 23:35):
Predmet: Re:VBA EXCEL sort po dvije kolone
Hehe pitas jeli dobro.
Valjda si isprobao i ako radi onda je sigurno dobro.

Avko (29.12.2024 19:40):
Predmet: VBA EXCEL sort po dvije kolone
Imam jedan kod koji sortira po dvije kolone uzlazno. Zanima me da li je to dobro ili se treba nesto ispraviti ?

PreuzmiIzvorni kôd (Visual Basic):
  1. private sub sortiraj()
  2. Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  3. ActiveWorkbook.Worksheets("List1").Sort.SortFields.Clear
  4. ActiveWorkbook.Worksheets("List1").Sort.SortFields.Add Key:=Range("A1:A" & zadnjRed), _
  5.         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  6. ActiveWorkbook.Worksheets("List1").Sort.SortFields.Add Key:=Range("B1:B" & zadnjiRed), _
  7.         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
  8. With ActiveWorkbook.Worksheets("List1").Sort
  9.        .SetRange Range("A1:C48")
  10.        .Header = xlGuess
  11.        .MatchCase = False
  12.        .Orientation = xlTopToBottom
  13.        .SortMethod = xlPinYin
  14.        .Apply
  15. End With
  16. end sub

Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 25 pm.