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

Sut i ddidoli rhesi neu golofnau lluosog yn annibynnol ar unwaith yn Excel?

Yn Excel, gallwch gymhwyso'r nodwedd Trefnu i ddidoli un rhes neu golofn yn unig mewn ystod o golofnau, ond, os oes angen i chi ddidoli rhesi neu golofnau lluosog yn annibynnol ar unwaith i ddangos y screenshot canlynol. A oes unrhyw ffyrdd cyflym o ddatrys y dasg hon yn Excel?

doc didoli colofnau lluosog 1

Trefnwch golofnau lluosog yn annibynnol ar unwaith gyda chod VBA

Trefnwch resi lluosog yn annibynnol ar unwaith gyda chod VBA


swigen dde glas saeth Trefnwch golofnau lluosog yn annibynnol ar unwaith gyda chod VBA

I ddidoli sawl colofn yn annibynnol mewn trefn esgynnol, gall y cod VBA canlynol eich helpu, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Trefnwch golofnau lluosog yn annibynnol ar unwaith:

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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei didoli yn seiliedig ar bob colofn, gweler y screenshot:

doc didoli colofnau lluosog 2

4. Ac yna cliciwch OK, mae pob colofnau wedi'u didoli'n ddibynnol ar unwaith, gweler y screenshot:

doc didoli colofnau lluosog 1


swigen dde glas saeth Trefnwch resi lluosog yn annibynnol ar unwaith gyda chod VBA

Os ydych chi eisiau didoli rhesi lluosog yn annibynnol, dyma hefyd god VBA i chi.

1. Dewiswch y data rydych chi am ei ddidoli yn seiliedig ar bob rhes.

doc didoli colofnau lluosog 3

2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Trefnwch resi lluosog yn annibynnol ar unwaith:

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. Yna pwyswch F5 yn allweddol i redeg y cod hwn, mae'r data ym mhob rhes wedi cael eu didoli ar unwaith, gweler y screenshot:

doc didoli colofnau lluosog 4


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (11)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn ceisio didoli'r colofnau mae'n didoli data y tu allan i'r ystod adrannol! Pam fod hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio'n wych! Diolch !
Lleihawyd y sylw hwn gan y safonwr ar y wefan
¿Cómo puedo ordenar por colour multiples filas de forma independiente y que las celdas que no tengan lliw estén a la derecha?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wrth fy modd â hyn, rwy'n chwilfrydig ynghylch ymarferoldeb didoli yn ôl lliw ar gyfer pob colofn yn unigol. Rhoddais gynnig ar hyn ond ni weithiodd:


Dim xRg Fel Ystod
Dim yRg As Range
Dim ws Fel Taflen Waith
Gosod ws = ActiveSheet
Ar Ail-ddechrau Gwall Nesaf
Gosod xRg = Application.InputBox(Prompt:="Ystod Dewis:", _
Teitl:="Kutools ar gyfer excel", Math:=8)
Application.ScreenUpdating = Anghywir
Am Bob yRg Yn xRg
Gyda ws.Sort
.SortFields.Clear
.SortFields.Add Key:=yRg, _
SortOn:=xlSortOnCellColor, Trefn:=xlDescending, DataOption:=xlSortNormal
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Header=xlNo
.MatchCase = Anghywir
.Apply
Diwedd Gyda
Nesaf yRg
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am hyn. Roedd yn help mawr. Hoffwn hefyd wybod sut i ddidoli yn ôl lliw. Mae gen i 26 colofn, pob un â gwahanol fathau o eitemau wedi'u nodi gan liw'r ffont. Hoffwn i wyddor yr holl golofnau yn unigol ond mewn trefn lliw penodol. Sut mae gwneud hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych chi newydd arbed sawl cur pen i mi gyda'r ateb hwn! Diolch tunnell!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
post ardderchog, diolch yn fawr iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim byd!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae fy nata yn amrywio o 0-100; Pan fyddaf yn ceisio didoli rhesi lluosrifau ar unwaith, mae'n dechrau'r data gyda'r 100au, yna'n didoli'r gweddill yn rhifiadol o leiaf i'r mwyaf, gan roi'r 100au ar ochr leiaf yr amrediad. Sut alla i drwsio hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diweddariad; Dwi wedi sylweddoli ei fod yn didoli yn ôl y digid cyntaf yn y rhif yn unig - Sut ydw i'n ei gael i ddidoli yn ôl y rhif cyfan?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Devyn,
Mae'r cod yn gweithio'n dda yn fy nhaflen waith. Allech chi uwchlwytho eich ffeil Excel neu sgrinlun data yma? Er mwyn i ni allu helpu i wirio ble mae'r broblem?
Diolch yn fawr!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir