Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako razvrstiti podatke stolpca s klikom na glavo v Excelu?

Če menim, da imam vrsto podatkov, želim podatke razvrstiti po naraščajočem ali padajočem vrstnem redu, tako da kliknete na kateri koli naslov stolpca, če želite prikazati naslednji prikaz zaslona. Kako lahko to delo rešite v Excelu?

doc sortiraj s klikom na 1

Razvrsti podatke s klikom na glavo stolpca s kodo VBA


puščica modra desno mehurček Razvrsti podatke s klikom na glavo stolpca s kodo VBA

Običajno lahko v Excelu uporabite funkcijo Sort, da hitro in enostavno razvrstite podatke, vendar lahko s klikom na celico razvrstite podatke, lahko vam naslednja koda VBA naredi uslugo.

1. Z desno miškino tipko kliknite jeziček stanja, na katerega želite razvrstiti podatke, tako da kliknete celico in izberete Ogled kode iz kontekstnega menija in v odprtem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazno Modul:

VBA koda: Razvrsti podatke s klikom na glavo celice ali stolpca:

Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20161123
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub

doc sortiraj s klikom na 2

2. In nato shranite in zaprite kodno okno, ko dvokliknete katero koli celico ali glavo stolpca v obsegu podatkov, bo stolpec sortiran po naraščajočem vrstnem redu, če ga znova dvakrat kliknete, bo stolpec sortiran desno navzdol.


Več povezanih člankov:

Kako spremeniti vrednost celice s klikom na celico?

Kako filtrirati podatke samo tako, da kliknete vsebino celice v Excelu?


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.