Vous avez une colonne de texte. Pour chaque texte de la colonne, vous souhaitez insérer une nouvelle feuille de calcul et nommez cette feuille de calcul pour la valeur dans la cellule.
Regarder la vidéo
- Pam souhaite créer une feuille de calcul pour chaque numéro de compte
- Actuellement, elle utilise les pages de filtre Afficher les rapports
- À la recherche d'un moyen plus rapide
- Enregistrez le classeur au format XLSM
- Vérifiez la sécurité des macros avec alt = "" + TMS et définissez-le sur le deuxième niveau
- Alt + F11
- Insérer un module
- Tapez le code comme indiqué
- Alt + Q pour revenir à Excel
- Alt + F8
- Sélectionnez la macro et cliquez sur Options
- Attribuer à Ctrl + Maj + W
Transcription vidéo
Apprendre Excel à partir d'un podcast, épisode 2082: Créer une macro de feuilles de calcul
Salut, bon retour sur le netcast, je suis Bill Jelen. Eh bien, la semaine dernière, j'étais à Bloomington et à Indianapolis, dans l'Indiana, en train de faire deux séminaires là-bas et Pam du séminaire d'Indy a dit qu'elle avait cette feuille de travail, et pour chaque cellule de la colonne A, elle voulait créer une nouvelle feuille de calcul, puis j'ai fait cette partie , placez la cellule correspondante de la colonne B dans la cellule B1.
Je veux dire actuellement, Pam a noté qu'elle faisait cela de manière très intelligente, comment créer toutes ces feuilles de calcul, mais c'est toujours un problème. Elle va à Insertion, Tableau croisé dynamique, OK, puis à partir de ce nouveau tableau croisé dynamique, elle place le compte dans la zone Filtres, puis Données dans la zone des valeurs comme ça. Et puis, elle va dans Options, Afficher les pages de filtre de rapport, Afficher toutes les pages du compte et BAM! Elle obtient les feuilles comme elle veut. Maintenant que les données ne sont pas au bon endroit, elle dit en fait qu'à ce stade, elle parcourt tout les groupes, puis supprime ces tableaux croisés dynamiques comme ça, d'accord? C'est donc la méthode qu'elle utilise actuellement et je veux voir si je peux faire quelque chose plus rapidement avec cette feuille de calcul.
Donc, la façon dont nous allons procéder, c'est que vous allez devoir présélectionner les feuilles, présélectionner les feuilles. De plus, si vous n'avez jamais fait de macros auparavant, faites Alt + T pour Tom, M pour Mary, S pour Sam et passez du premier choix au deuxième choix. Aussi vraiment, vraiment important, votre fichier, je vous le garantis, est enregistré au format .xlsx. Cela ne fonctionnera pas si vous le laissez ainsi, vous devez faire Fichier, Enregistrer sous et choisir ce classeur Excel prenant en charge les macros. Celui du haut est le format par défaut et celui du haut est le format de fichier horrible qui n'est pas autorisé à utiliser des macros.
Très bien, nous allons donc sélectionner ces données Alt + F11, ouvre l'éditeur VBA. Si vous n'avez jamais fait de VBA auparavant, vous obtiendrez cet écran laid ici. Dira Insertion, Module et voici notre nouveau module et vous allez taper ce code: le mot Sub CreateSheets (). Dès que vous tapez qu'ils vont mettre un End Sub mais entre les deux, nous allons dire Pour chaque cellule de la sélection. Nous allons définir la feuille de travail et nous devrions probablement faire ce Dim WS comme feuille de travail. Vous voulez définir la feuille de calcul = feuilles de calcul. Ajouter. Maintenant, Worksheets.Add a besoin de savoir où nous voulons l'ajouter et ce que je veux faire, c'est que je veux simplement ajouter cette feuille de calcul après le dernier travail qu'elle a dans le classeur. Donc, je vais dire combien de feuilles de calcul avons-nous maintenant. Et ici, essayons simplement, disons: Debug.Print worksheets.Count.D'accord, il est dit que nous en avons 4, revenons à Excel et vérifions cela. 1 2 3 4 donc nous allons l'ajouter après la 4ème feuille. Donc, après la conclusion, nous devrions voir une nouvelle feuille de calcul et cette feuille de calcul est l'endroit où nous allons placer les données pour le compte 100.
Très bien maintenant, WS.Name = cell.Value et puis nous avons décidé que nous allions prendre ce qui se trouve à droite du compte: les données. Et nous allons prendre ces données et les mettre dans la cellule B1 de la toute nouvelle feuille de calcul que nous venons de créer. Donc, à partir de la cellule, à droite, pour chaque cellule, nous allons décaler 0 lignes 1 colonne et récupérer cette valeur, d'accord? Nous avons donc notre macro: Fichier, Fermer et Revenir à Microsoft Excel, puis nous appuierons sur Alt + F8. Alt + F8, CreateSheets, ira dans Options. Garçon, qu'est-ce qui va être bon? Ctrl + Maj + W. W pour les feuilles de calcul. Donc, je maintiens Shift + W à l'intérieur, cliquez sur OK et nous pouvons cliquer sur Annuler. Très bien, sélectionnez ces cellules, puis Ctrl + Maj + W. Regardez ici après Wrap Up - BAM! Il les a sur chacun d'eux. Il a obtenu les données de chaque feuille individuelle. Cool, façon cool d'aller.
Être capable de créer de nombreuses feuilles de calcul à la volée et bien sûr, cela fonctionnerait bien plus que cela. Faisons un = ROW * 2 copions ceci vers le bas, vers le bas, vers le bas, vers le bas, vers le bas et sélectionnez tout cela - Oh attendez, nous devons mettre des données là-bas. Remplissons-le avec 2, d'accord. Et puis Ctrl + Maj + W. BAM! Oh, j'ai déjà utilisé une feuille 49. Mais regardez, nous étions tout le chemin vers la voie rapide rapide proche, la fin. Comment créer de nombreuses feuilles de calcul différentes à la volée.
Très bien, sujets de cet épisode: Pam d'Indy veut créer une feuille de calcul pour chaque numéro de compte dans la colonne A. Actuellement, elle utilise les pages de filtre de rapport des tableaux croisés dynamiques. Elle cherche un moyen plus rapide, d'accord? Nous allons donc enregistrer le classeur au format XLSM. Nous allons aller Alt + TMS et définir le deuxième choix, pas le premier choix. Alt + F11, maintenant nous sommes dans VBA, Insérer un module, Tapez le code comme indiqué, Alt + Q pour revenir à Excel, Alt + F8, sélectionnez le nom de la macro et cliquez sur Options, affectez à Ctrl + Maj + W.
Hé, je tiens à remercier Pam d'avoir participé à mon séminaire à Indianapolis. Nous avons passé un très bon moment là-bas, bon groupe. Et je tiens à vous remercier d'être passé. Nous vous reverrons la prochaine fois pour un autre netcast de.
Télécharger un fichier
Téléchargez l'exemple de fichier ici: Podcast2082.xlsm
