Astuces Excel
  1. Astuces Excel
  3. Comment affectez-vous différentes macros à chaque button de command en haut de chaque colonne afin qu'elles fonctionnent indépendamment des autres macros?
Intereting Posts
Logique des lignes duplicées Excel Comment puis-je get une cellule A1 à partir d'un document Excel 97/03 avec OleDB? Pourquoi ce script fonctionne-t-il sur mon ordinateur, mais pas sur un autre ordinateur? Comment mettre en évidence la ligne supérieure dans chaque feuille excel en utilisant Vbscript? Trier la feuille Excel par colonne en utilisant EPPlus Comment exporter datatables json vers une feuille excel en java Créez une colonne MySQL avec une variable de string d'une autre colonne, plus des informations supplémentaires Pour filterr plusieurs colonnes avec une condition sur les résultats Excel 2013 – en utilisant des fonctions logiques booleannes Débarrassez-vous des lignes de contour dans un tableau de surface du type xlSurfaceTopView dans Excel et gardez les lignes de grid visibles Numéro d'index de colonne Associez deux colonnes dans le tableau à deux colonnes dans une table séparée et une valeur de return Excel – si la première cellule de la ligne est égale à une valeur / string, puis countz si les cellules en ligne sont égales en une valeur / string Comment effacer la memory pour éviter une «erreur de memory insuffisante» dans excel vba? Propriété de couleur de remplissage et de bordure du marqueur de sharepoint données (dispersion ou ligne) Excel VBA

Comment affectez-vous différentes macros à chaque button de command en haut de chaque colonne afin qu'elles fonctionnent indépendamment des autres macros?

J'ai atsortingbué la macro suivante à la première colonne de ma feuille de calcul pour sortinger les informations par ordre croissant et descendant. Cette macro est affectée au button de command et fonctionne. 

If CommandButton1.Caption = "Click to Sort Ascending" Then 'Sort ascending... ActiveWorkbook.Worksheets("daily data drop").Sort.SortFields.Clear ActiveWorkbook.Worksheets("daily data drop").Sort.SortFields.Add Key:=Range("A2:A308"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("daily data drop").Sort .SetRange Range("A2:Z308") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With CommandButton1.Caption = "Click to Sort Decending" Else 'sort decending ActiveWorkbook.Worksheets("daily data drop").Sort.SortFields.Clear ActiveWorkbook.Worksheets("daily data drop").Sort.SortFields.Add Key:=Range("A2:A308") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("daily data drop").Sort .SetRange Range("A1:Z308") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With CommandButton1.Caption = "Click to Sort Ascending" End Sub

Je voudrais que tous les en-têtes supérieurs de chaque colonne aient un button qui sorting croissant et descendant comme la macro ci-dessus, en gardant datatables de la ligne correspondantes. Est-ce que quelqu'un peut m'aider ou avoir un model qui peut être utile.

Il n'est pas judicieux de placer un button sur chaque colonne. Je vais suggérer une méthode qui n'a pas besoin de buttons du tout. De plus, vous devriez toujours éviter de dupliquer de grandes parties de votre code, où seulement une ou deux déclarations diffèrent selon certains parameters. Vous devriez toujours essayer de "factoriser" votre code et de le raccourcir autant que possible, ce qui le rend plus lisible et plus durable.

Un moyen possible d'atteindre votre objective serait que l'user "double-clique" sur la cellule d'en-tête et que datatables soient sortingées par la colonne cliquée. Et après chaque type, l'ordre de sorting est inversé.

Vous pouvez le faire en ajoutant le gestionnaire suivant au code-module de votre feuille de calcul "daily data drop" : 

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Static descending As Boolean If Target.Row <> 1 Then Exit Sub Cancel = True Me.UsedRange.Sort Target, IIf(descending, xlDescending, xlAscending), Header:=xlYes descending = Not descending End Sub