Wie stellen Sie sich zwei Schaltflächen in Microsoft Excel eine Tabelle Sortieren nach klicken Sie auf?

Ich habe eine Tabelle mit 5 Spalten (A-E) mit Namen unter:

  1. "TEST-JAHR"
  2. "FORM"
  3. "FRAGE"
  4. "TAGS"
  5. die fünfte hat keine header-Titel, hat aber noch Daten.

Habe ich eine eigene Funktion in die Tabellenkalkulation, die Suche über die TAGS, die Spalte für den text und füllt die Zellen einer Zeile werden blau, wenn es eine übereinstimmung gibt. Da könnte ich vielleicht tun, verschiedene Suchanfragen zu verschiedenen Zeiten, ich will zwei buttons,--bei Klick--Sortieren die 5 Spalten.

Den ersten button wird einfach an einer Standard-Art von bringt es zurück zu normal; es sortiert die Tabelle nach TEST, JAHR, dann, durch die FORM, dann FRAGE. Die zweite Schaltfläche sortiert die Tabelle zuerst durch die Zelle Farbe (blau), dann mit dem TEST im JAHR, dann FORM, dann durch die FRAGE.

Was würde eine solche Sortierung Makros Aussehen, und wie würde ich Sie laufen, indem Sie auf Tasten?

  • Sehen Sie, wenn dieser Einstieg für makro-Sortieren und dieser für das hinzufügen einer Schaltfläche löst ein makro..
InformationsquelleAutor Simon Ayzman | 2013-10-23
  1. 0

    Den code für die erste Art ist:

    Sub Sort_BackToNormal()

If Sheets(1).AutoFilterMode = False Then
    Sheets(1).Range("A1:E1").AutoFilter
End If

RowCount = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Worksheets(1).AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets(1).AutoFilter.Sort.SortFields.Add Key:=Range("A2:A" & RowCount), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets(1).AutoFilter.Sort.SortFields.Add Key:=Range("B2:B" & RowCount), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets(1).AutoFilter.Sort.SortFields.Add Key:=Range("C2:C" & RowCount), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(1).AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

End Sub

    Den code für die zweite Art ist:

    Sub Sort_Color()

If Sheets(1).AutoFilterMode = False Then
    Sheets(1).Range("A1:E1").AutoFilter
End If

RowCount = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Worksheets(1).AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets(1).AutoFilter.Sort.SortFields.Add(Range("D1"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(0, 112, 192)
ActiveWorkbook.Worksheets(1).AutoFilter.Sort.SortFields.Add Key:=Range("A2:A" & RowCount), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets(1).AutoFilter.Sort.SortFields.Add Key:=Range("B2:B" & RowCount), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets(1).AutoFilter.Sort.SortFields.Add Key:=Range("C2:C" & RowCount), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(1).AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

ActiveWorkbook.Worksheets(1).AutoFilter.Sort.SortFields.Add(Range("D1"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(0, 112, 192)
End Sub

    Um eine Schaltfläche:

    1. Einfügen einer Form
    2. Machen Sie es sich ziemlich
    3. Der rechten Maustaste auf die Form-und Makro zuweisen.
    • Es ist nicht wirklich arbeiten. Wie würden Sie ändern Sie den code für das zweite makro, wenn Sie wollte, dass Zellen von JEDER Farbe außer weiß, nach oben gehen?
    • Sie müssen sicherstellen, dass Sie die RGB-zahlen für die spezifische Farbe, die Sie nach sind.
    • Das ist die Sache. Wie würde ich die RBG von der Farbe? Excel macht es nicht so einfach. Auch, was ist, wenn es mehrere highlight-Farben? Wie wird es um Sie?
    InformationsquelleAutor excelVBAmaster.com
Schreibe einen Kommentar