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

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

Excel- ում դուք կարող եք կիրառել Տեսակավորել հատկությունը `սյունակների շարքում միայն մեկ տող կամ սյուն տեսակավորելու համար, բայց եթե անհրաժեշտ է միանգամից ինքնուրույն տեսակավորել բազմաթիվ տողեր կամ սյուններ` հետևյալ նկարը ստանալու համար: Excel- ում այս խնդիրը լուծելու արագ եղանակներ կա՞ն:

doc տեսակավորել բազմաթիվ սյուններ 1

Միանգամից ինքնուրույն դասավորեք բազմաթիվ սյուններ VBA կոդով

Բազմաթիվ տողեր միանգամից ինքնուրույն դասավորեք VBA կոդի հետ


նետ կապույտ աջ պղպջակ Միանգամից ինքնուրույն դասավորեք բազմաթիվ սյուններ VBA կոդով

Բազմաթիվ սյունակներ ինքնուրույն աճեցման կարգով դասավորելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Միանգամից ինքնուրույն դասավորեք բազմաթիվ սյունակներ.

Sub SortIndividualJR()
'Updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և դուրս է գալիս հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք տեսակավորել յուրաքանչյուր սյունակի հիման վրա, տե՛ս նկարը.

doc տեսակավորել բազմաթիվ սյուններ 2

4. Եվ այնուհետեւ կտտացրեք OK, յուրաքանչյուր սյունակ միանգամից տեսակավորված է կախված, տես նկարի նկարը.

doc տեսակավորել բազմաթիվ սյուններ 1


նետ կապույտ աջ պղպջակ Բազմաթիվ տողեր միանգամից ինքնուրույն դասավորեք VBA կոդի հետ

Եթե ​​ցանկանում եք ինքնուրույն տեսակավորել բազմաթիվ տողեր, ահա նաև ձեզ համար VBA կոդ:

1, Ընտրեք տվյալները, որոնք ցանկանում եք տեսակավորել յուրաքանչյուր տողի հիման վրա:

doc տեսակավորել բազմաթիվ սյուններ 3

2, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Միանգամից ինքնուրույն դասավորեք բազմաթիվ տողեր.

Sub SortIndividualR()
'Updateby Extendoffice
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

4, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, յուրաքանչյուր տողի տվյալները միանգամից տեսակավորված են, տես նկարի նկարը.

doc տեսակավորել բազմաթիվ սյուններ 4


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (11)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես փորձում եմ տեսակավորել սյունակները, այն տեսակավորում է տվյալներն անջատված տիրույթից դուրս: Ինչու սա?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն հիանալի է աշխատում: շնորհակալություն !
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
¿Cómo puedo ordenar por color múltiples filas de forma independiente y que las celdas que no tengan color estén a la derecha?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ դուր է գալիս սա, ինձ հետաքրքրում է յուրաքանչյուր սյունակի համար առանձին-առանձին գույներով տեսակավորելու ֆունկցիոնալությունը: Փորձեցի սա, բայց չստացվեց.


Dim xRg որպես տիրույթ
Dim yRg As Range
Dim ws As Worksheet
Սահմանել ws = ActiveSheet
Ս.թ. սխալի Ռեզյումե Next
Սահմանել xRg = Application.InputBox(Prompt:="Range Selection:", _
Title:="Excel-ի համար նախատեսված գործիքներ", Type:=8)
Դիմում. ScreenUpdating = Սուտ է
Յուրաքանչյուր yRg-ի համար xRg-ում
ws.Sort-ի հետ
.SortFields.Clear
.SortFields.Ավելացնել բանալի՝=yRg, _
SortOn:=xlSortOnCellColor, Order:=xlՆվազող, DataOption:=xlSortNormal
.SetRange ws.Range(yRg, yRg.End(xlDown))
Վերնագիր = xlNo
.MatchCase = կեղծ
.Դիմել
Վերջ
Հաջորդ yRg
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ սրա համար: Դա իսկապես օգնեց: Կցանկանայի նաև իմանալ, թե ինչպես կարելի է տեսակավորել ըստ գույնի: Ես ունեմ 26 սյունակ, որոնցից յուրաքանչյուրն ունի տարբեր տեսակի տարրեր, որոնք նույնականացվում են տառատեսակի գույնով: Ես կցանկանայի այբբենականացնել բոլոր սյունակները առանձին-առանձին, բայց որոշակի գունային հերթականությամբ: Ինչպե՞ս կարող եմ դա անել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք հենց նոր փրկեցիք ինձ մի քանի գլխացավ այս լուծումով: Շնորհակալություն տոննա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
հիանալի գրառում, շատ շնորհակալ եմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Спасибо тебе человек!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իմ տվյալները տատանվում են 0-100; Երբ ես փորձում եմ դասավորել բազմակի տողեր միանգամից, այն սկսում է տվյալները 100-ով, այնուհետև մնացածը դասավորում է թվային առումով փոքրից մինչև մեծ՝ 100-երը դնելով տիրույթի նվազագույն կողմում: Ինչպե՞ս կարող եմ սա շտկել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Թարմացում; Ես հասկացա, որ այն տեսակավորում է միայն թվի առաջին թվանշանով. Ինչպե՞ս կարող եմ այն ​​տեսակավորել ըստ ամբողջ թվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Դևին,
Կոդը լավ է աշխատում իմ աշխատաթերթում: Կարո՞ղ եք այստեղ վերբեռնել ձեր Excel ֆայլը կամ տվյալների սքրինշոթը: Այսպիսով, մենք կարող ենք օգնել ստուգել, ​​թե որտեղ է խնդիրը:
Thank you!
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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