Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment augmenter un nombre automatiquement quand le classeur est ouvert?

Si vous souhaitez augmenter automatiquement une cellule numérique par 1 lorsque vous ouvrez le classeur à chaque fois, vous pouvez bien entendu ajouter manuellement 1. Mais, y a-t-il une meilleure méthode pour ajouter automatiquement 1 au numéro lors de l'ouverture du document Excel?

Augmenter un nombre automatiquement lorsque le classeur est ouvert avec le code VBA


Augmenter un nombre automatiquement lorsque le classeur est ouvert avec le code VBA


Le code VBA simple suivant peut vous aider à ajouter automatiquement 1 pour la cellule de nombre lorsque le classeur est ouvert à chaque fois, procédez comme suit:

1. Maintenez le ALT + F11 clés, et il ouvre la Microsoft Visual Basic pour applications fenêtre.

2. Dans le Projet-VBAProject volet, double-cliquez ThisWorkbook ouvrir le Module, puis, copiez et collez le code ci-dessous dans le module, voir capture d'écran:

Code VBA: augmente automatiquement un nombre lorsque le classeur est ouvert:

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub

Note: Dans le code ci-dessus, Sheet1 et A2 sont la feuille et la cellule qui contient le numéro que vous voulez augmenter automatiquement. S'il vous plaît, changez-les selon vos besoins.

3. Ensuite, vous devez enregistrer le fichier Excel en tant que Cahier de travail Excel avec macro-activé format, voir capture d'écran:

À partir de maintenant, lorsque vous ouvrez ce classeur spécifique, le numéro dans la cellule A2 dans Sheet1 sera automatiquement ajouté 1.

Note: Ce code est uniquement appliqué à la cellule de nombre.



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.