Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս դասավորել սյունակի տվյալները ՝ կտտացնելով վերնագիրը Excel- ում:

Ենթադրելով, որ ես ունեմ տվյալների մի շարք, հիմա ես կցանկանայի տեսակավորել տվյալները աճման կամ նվազման կարգով ՝ կտտացնելով ցանկացած սյունակի վերնագրի վրա ՝ ցույց տրված հետևյալ նկարը: Ինչպե՞ս կարող եք լուծել այս աշխատանքը Excel- ում:

փաստաթուղթը տեսակավորեք 1 կտտոցով

Տեսակավորեք տվյալները ՝ սեղմելով VBA կոդով սյունակի վերնագիրը


նետ կապույտ աջ պղպջակ Տեսակավորեք տվյալները ՝ սեղմելով VBA կոդով սյունակի վերնագիրը

Սովորաբար, Excel- ում, Դուք կարող եք կիրառել Տեսակավորել հատկությունը `տվյալների արագ և արագ տեսակավորման համար, բայց տվյալների տեսակավորումը` պարզապես սեղմելով բջիջը, հետևյալ VBA կոդը կարող է ձեզ լավություն բերել:

1, Աջ կտտացրեք այն թերթիկի ներդիրին, որը ցանկանում եք տեսակավորել տվյալները ՝ կտտացնելով բջիջին և ընտրել Դիտել կոդը համատեքստային ընտրացանկից և բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.

VBA կոդ. Տեսակավորեք տվյալները ՝ սեղմելով բջջի կամ սյունակի վերնագրի վրա.

Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
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

փաստաթուղթը տեսակավորեք 2 կտտոցով

2, Եվ ապա պահեք և փակեք ծածկագրի պատուհանը, հիմա, երբ տվյալների տիրույթում կրկնակի կտտացնում եք ցանկացած բջիջ կամ սյունակի վերնագիր, սյունակը տեսակավորվելու է աճման կարգով, եթե նորից կրկնակի սեղմեք, սյունակը միանգամից տեսակավորվելու է իջնելով:


Ավելի շատ հարակից հոդվածներ.

Ինչպե՞ս փոխել բջջի արժեքը ՝ կտտացնելով բջիջին:

Ինչպե՞ս զտել տվյալները պարզապես կտտացնելով բջջային բովանդակությունը Excel- ում:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (7)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ է աշխատում բարձրանալու համար, կրկնակի սեղմեք 2-րդ անգամ, ինչպես նշված է, որ իջնելը ոչինչ չի անում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չի աշխատում, ոչինչ չի պատահում, իմացեք, թե ինչպես ստեղծել մոդուլ vba-ում, արեցի դա, պահպանվեց և ոչինչ չկա, երբ վերնագիրը կրկնակի սեղմեց: Խնդրում եմ ուղղել այն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
No can do crackjack - մի աշխատիր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Ռոբ, վերը նշված կոդը լավ է աշխատում իմ Excel-ում, կարո՞ղ եք ձեր խնդրի սքրինշոթը տալ այստեղ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
der Code funktioniert auch gut bei mir. Allerdings würde ich gerne die oberen beiden Zeilen nicht mit sortieren, da diese die Überschriften sind.
Wie muss ich dann diesen Code ändern?

Շատ շնորհակալություն!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ բարեկամ,
Ահա ձեզ անհրաժեշտ VBA-ն.

Հանրային blnՓոխարկել որպես բուլյան
Մասնավոր ենթաթերթ_BeforeDoubleClick _
(ByVal նպատակադրել որպես միջակայք, չեղարկել որպես բուլյան)
― Թարմացնելով Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow as Long
Dim SortRange As Range
Վերջին սյուն = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlՆախորդ).Սյունակ
keyColumn = Target.Column
Եթե ​​keyColumn > LastColumn Ապա Ելք Ենթ
Դիմում. ScreenUpdating = Սուտ է
Չեղարկել = Ճշմարիտ
LastRow = Բջիջներ (Rows.Count, keyColumn).End(xlUp).Տող
Ս.թ. սխալի Ռեզյումե Next
Սահմանել SortRange = Target.CurrentRegion
Dim i քանի դեռ
i = 2
Սահմանել SortRange = SortRange.Offset(i, 0)
Սահմանել SortRange = SortRange.Resize(SortRange.Rows.Count - i, SortRange.Columns.Count)
blnToggle = Ոչ blnToggle
Եթե ​​blnToggle = Ճիշտ է, ապա
SortRange.Sort _
Key1:=Բջիջներ(2, keyColumn), Order1:=xlAscending, Header:=xlNo
Ուրիշ
SortRange.Sort _
Key1:=Բջիջներ(2, keyColumn), Order1:=xlՆվազող, Վերնագիր:=xlNo
Վերջ: Եթե
Սահմանել SortRange = Ոչինչ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub


Եթե ​​ունեք 3 տողերի վերնագրեր, պարզապես VBA-ում փոխեք «i =2»-ը «i =3»: Հուսով եմ, որ դա օգնում է: Հիանալի օր անցկացրեք:

Sincerely,
Mandy
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi Mandy/all,

Is it possible to change your code to only sort when the headers are double clicked instead of any cell?

Thank you very much!
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից