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 29.12.2024 20:40
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


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
zivot je moja domovina.
↑  ↓

#2 30.12.2024 00:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re:VBA EXCEL sort po dvije kolone
Hehe pitas jeli dobro.
Valjda si isprobao i ako radi onda je sigurno dobro.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 30.12.2024 11:32
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


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
zivot je moja domovina.
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


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