Ինչպե՞ս Excel- ում միանգամից ինքնուրույն տեսակավորել բազմաթիվ տողեր կամ սյուններ:
Excel- ում դուք կարող եք կիրառել Տեսակավորել հատկությունը `սյունակների շարքում միայն մեկ տող կամ սյուն տեսակավորելու համար, բայց եթե անհրաժեշտ է միանգամից ինքնուրույն տեսակավորել բազմաթիվ տողեր կամ սյուններ` հետևյալ նկարը ստանալու համար: Excel- ում այս խնդիրը լուծելու արագ եղանակներ կա՞ն:
Միանգամից ինքնուրույն դասավորեք բազմաթիվ սյուններ 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 այս կոդն աշխատեցնելու բանալին, և դուրս է գալիս հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք տեսակավորել յուրաքանչյուր սյունակի հիման վրա, տե՛ս նկարը.
4. Եվ այնուհետեւ կտտացրեք OK, յուրաքանչյուր սյունակ միանգամից տեսակավորված է կախված, տես նկարի նկարը.
Բազմաթիվ տողեր միանգամից ինքնուրույն դասավորեք VBA կոդի հետ
Եթե ցանկանում եք ինքնուրույն տեսակավորել բազմաթիվ տողեր, ահա նաև ձեզ համար VBA կոդ:
1, Ընտրեք տվյալները, որոնք ցանկանում եք տեսակավորել յուրաքանչյուր տողի հիման վրա:
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 այս կոդն աշխատեցնելու բանալին, յուրաքանչյուր տողի տվյալները միանգամից տեսակավորված են, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: