Sélectionnez les cellules avec une macro: Excel VBA

FONTE ZOOM:
En utilisant une macro, les différents processus sont automatisés. Dans cet exemple, il se agit de la sélection des données et son spin-off à l'autre feuille de calcul. Le signe encore être tourné d'une façon très élégante à la fin. Sélectionnez les cellules avec une macro: Excel VBA

Sous Falschbuchungen_Funktionsbereich

«Tout d'abord, le filtre automatique est activée. Ce est toujours très utile quand il se agit de la sélection des données.

Selection.AutoFilter

'Maintenant, les données sont filtrées par un ou plusieurs critères

ActiveSheet.Range.AutoFilter champ: = 1, Criteria1: = "SA"

ActiveSheet.Range.AutoFilter champ: = 10, Criteria1: = _

"SW132452"

ActiveSheet.Range.AutoFilter champ: = 13, Criteria1: = "5465"

«Maintenant, la colonne de données est mis en évidence par colonne, copier et coller à une autre feuille de calcul

Range.Select

Range) .Select

Selection.Copy

ActiveSheet.Previous.Select

ActiveSheet.Paste

ActiveSheet.Next.Select

Range.Select

Range) .Select

Application.CutCopyMode = False

Selection.Copy

ActiveSheet.Previous.Select

Range.Select

ActiveSheet.Paste

«Quel que soit le nom de la feuille de la feuille suivante est sélectionnée

ActiveSheet.Next.Select

Range.Select

Range) .Select

Application.CutCopyMode = False

Selection.Copy

«Quel que soit le nom de la feuille de la feuille précédente est sélectionné

ActiveSheet.Previous.Select

Range.Select

ActiveSheet.Paste

ActiveSheet.Next.Select

Range.Select

Range) .Select

Application.CutCopyMode = False

Selection.Copy

ActiveSheet.Previous.Select

Range.Select

ActiveSheet.Paste

Range.Select

«Maintenant, le signe est toujours en rotation à une colonne complète

Application.CutCopyMode = False

Selection.FormulaR1C1 = "-1"

Selection.Copy

Range.Select

Range) .Select

»Se tourneront vers le signe de multiplication est exercé dans la fonction d'insertion

Coller Selection.PasteSpecial: = xlPasteAll, Operation: = xlMultiply, _

SkipBlanks: = False, de transposition: = False

Range.Select

Application.CutCopyMode = False

'Toutes les valeurs ne sont plus nécessaires sont supprimés

Selection.ClearContents

Range.Select

End Sub

Lire aussi l'article Excel VBA: Recycler texte avec une macro.

VOIR AUSSI:
  1.  
  2.  
  3.  
Sans commentaires

Laisser un commentaire

Code De Sécurité