Recherche chaud: dosage pénicilline pour chien battre cagnazzo guerison du vaisseau sanguin fabriquer chaussure bonbon pour noel sculpture oeuf comment faire coventry premier classe hotel gratter la vieille regler chais3e bureau
Index Loisirs Santé Technologie

Comment faire pour créer un classeur d'état global en XL et VBA pour vos articles de wikiHow

Publié:2014-09-18Source: général
Advertisement

Cinq parties: WS: Article Vues et Otherws: Daily Sortws: Relatedsws: CAT ANALYSISThe Macros de l'état général

Ceux d'entre vous qui aiment à l'auteur des articles de wikiHow aimeriez avoir un système en place pour le suivi de vos vues d'article et la projection lorsque vous atteindrez les objectifs. Vous pouvez le faire en créant un classeur avec une feuille de calcul qui vous permettra de trier par catégorie ou de la vue la quantité (en savoir plus consultés ou les zéros). La conception de ce didacticiel comprend une feuille de calcul qui permet de suivre vos wikiHows connexes au cas où vous avez l'habitude d'inclure une partie de votre propre presque à chaque fois que vous écrivez un nouvel article, tout en peuplant vieux articles avec le nouvel article comme un nouveau connexes. Enfin, il ya une analyse des catégories qui vous permet de savoir comment votre catégorisation fait, ou comment vous pourriez améliorer, soit en généralisant ou en spécifiant.

Étapes

Partie 1 de 5: WS: Article Vues et autres

Préparation

1

Ouvrez Excel du vert X icône de bureau sur le quai ou à l'intérieur du dossier Applications dans le dossier Microsoft Office.

2

Ouvrez un nouveau classeur et l'enregistrer comme GLOBALE STATUS.xlsm, en lettres majuscules. Les moyens de .xlsm il contient des macros.

3

Nommez quatre feuilles de travail (WS) de gauche à droite, w / o citations, comme «Vues article et les autres", "Daily Trier", "Relateds» et «Analyse de CAT".

4

Définir les préférences de menu Excel à ruban - développeur vérifiés ou On, afin que vous puissiez travailler avec des macros et faire des choses beaucoup plus vite.

5

Utilisez les données de cet auteur utilisateur Page comme un modèle d'abord, puis de modifier en fonction de vos propres données. Par exemple, cet auteur a deux identifiants parce que l'un ID ne permet jusqu'à 100 articles et des vues à être montré en utilisant la norme en construction mise en page. Depuis plus était souhaitable en utilisant cette configuration, un second ID a été commencé. Rejoignez wikiHow si vous ne l'avez pas déjà, peut-être comme un identifiant anonyme, juste aussi longtemps que vous pouvez accéder à l'utilisateur Pages d'autres. Access dans votre navigateur http://www.wikihow.com/User:Chris-Garthwaite et aller aux articles MAIN - Voir Plus et cliquez dessus.

Avec votre souris, sélectionnez soigneusement le groupe d'articles et de points de vue suivants sans les activer en cliquant juste à gauche de cet article, puis en faisant glisser vers le bas assez lentement sous contrôle jusqu'à ce que vous pouvez compléter la sélection avec le nombre le plus à droite en bas de vues pour le dernier article . Avez commande v Copier.

6

Collez les articles et les vues que vous venez de copier dans les «Vues article et les autres 'C17 de cellules de feuille de calcul. Cela peut prendre quelques secondes pour mettre à jour.

7

Access dans votre navigateur données à nouveau de cet auteur de deuxième ID (par exemple, http://www.wikihow.com/User:Xhohx) et suivez les deux étapes précédentes, en choisissant parmi les articles Nouveautés - Voir tous Plus de 100 articles, de les copier, et en les collant juste en dessous du premier groupe d'articles et des vues d'abord collé dans. Cela peut prendre quelques secondes pour mettre à jour.

Vous pouvez voir les données qu'il a près de 150 articles et 500.000 vues d'article, biaisé par un seul article. En analysant les données, l'attention devrait être accordée à éliminer une telle inclinaison, tout en étant très conscient de cela. Mais pour les fins du présent article, il sera conservé simple.

8

Félicitations - vous associez tout juste de terminer la partie la plus difficile Vous remarquerez que ce sont commodément et toujours aussi bien tous les liens vivants maintenant!. En cliquant sur l'une vous emmène directement à l'article.

Vous voudrez peut-être prendre une seconde pour tester cette fonctionnalité. Vous remarquerez un d'occasion tourne une couleur différente, peut-être brun ou rouge vin. Cela va se révéler utile. Qu'est-ce pas aussi utile est qu'il ne pas ouvrir un nouvel onglet dans votre navigateur, mais utilise la dernière utilisée, de sorte que vous voudrez peut-être frapper votre bouton Back pour revenir là où vous étiez, la page-sage, ou utilisez l'Histoire.

La région de tête

1

Sélectionnez la cellule A1 et mettre une petite image en elle d'une police spéciale, ou une clé unique fera, comme Alt ou Option Question Mark. Cet auteur utilise "☞", qui apparaît comme une main avec un doigt pointé sur mon ordinateur. Vous choisissez. Sélectionnez la cellule A1 et Insérer le nom de la définir comme _TopLeft Vous pouvez copier le doigt et la main de cette page pour une utilisation sur votre propre page si vous voulez. Il est juste un mémo à enregistrer le classeur en exécutant l'un des 2 macros. Il ya deux en cas quelque chose arrive à l'autre.

Les gens qui ont souffert de perdre beaucoup de travail deviennent un peu d'un fanatique quand il vient à l'aide AutoSave et souvent de sauvegarder leur travail.

2

Utilisez le pot de peinture ou Format de cellule Remplissez la cellule A2 jaune canari. Faites de même pour la cellule B2. Pour la cellule B1, utiliser une lavande ou rose chaud. Dans la cellule B1, entrée Macro 09 u, et l'entrée à la cellule B2 Macro 10 g. Ces macros seront enregistrer le classeur à divers dossiers, sur iMac de cet auteur, de sorte que vous devez modifier les chemins d'accès et ainsi de suite pour vous répondre. Les macros seront effectués tous ensemble à la fin.

3

Entrée à la cellule C1 ouvre une nouvelle fenêtre: et l'entrée à la cellule C2, http://www.wikihow.com/User:Xhohx, et l'entrée à la cellule C3, http://www.wikihow.com/User:Chris-Garthwaite - - ceux que vous allez changer votre propre id (s) plus tard. Format de cellule remplir les cellules C1: jaune C3. Vous pouvez obtenir ces liens à partir de votre propre utilisateur Page en les copiant à partir de la fenêtre du navigateur directement tandis que dans Firefox ou Explorer ou que ce soit et en les collant dans le cahier de l'état général dans Excel.

4

Format de cellule remplir les cellules B4:. Jaune B5 Entrée à la main le nombre total de vues de l'article par chaque ID vers la droite (ces des totaux main-entrée ne sera pas d'accord avec les totaux de la feuille de calcul par la quantité de vues article attribuable à de nouveaux articles écrits depuis cet article, cependant, le total des lignes et des références plus bas dans cet article devrait encore être correcte parce que les nouveaux articles ne seront pas ont été insérés efficacement dessus de ce ARTICLE.

Vous pouvez copier tous les articles pour Chris Garthwaite à un nouveau classeur séparé et comprendre un rapprochement si vous le désirez. Ou, vous pouvez saisir les points de vue de tous les articles depuis cet article comme une seule somme à soustraire à gauche dans la cellule A3 de Chris Garthwaite - Entrée et xhohx - ENTREE, pour arriver à un total de A6 égale à The_Total ci-dessous, une fois l'autre sous-totaux d'entrée sont également amenés sur A4 et A5. Entrez étiqueter Nouveaux articles à la cellule B3 dans cette affaire et Format Alignement gauche.

5

. Dans la cellule C4 à droite, entrée Chris Garthwaite - ENTREE, et la cellule C5 dessous entrée xhohx - ENTREE Format de cellule B4: C9 gras. Entrée à la cellule C6, TOTAL_per_wikiHow et dans la cellule B6 entrez la formule = B5 + B4 et B6 et formater la fois C6 police Rouge.

6

Sélectionnez la plage de cellules B6: C6 formater la taille de police rouge et en gras 14 et ne insérer des noms Créer dans la colonne de droite, OK.. Même si ce total ne concorde pas avec le total de la feuille de calcul du montant des nouveaux articles de vue après cet article pour le Chris Garthwaite ID, vous allez utiliser le chiffre exact totale wikiHow à faire les projections mensuelles à droite. Le reste des totaux feuille de calcul de vues devrait entendre à l'interne.

7

Entrée à la cellule A7 formule, = SOMME (A17: A58), mais être prudent et faire descendre le début de id Chris Garthwaite, qui commence à l'article «multiplier et diviser géométriquement Comme Mère Nature», s'il vous plaît!

8

Entrée à la cellule A8 la formule, = SOMME (A59: A158), mais attention s'il vous plaît à nouveau pour commencer juste en dessous de cet article et inclure le tout dernier article de xhohx dans la colonne A. Cet auteur se rend compte qu'il n'y a pas encore et ainsi pas de chiffres dans la colonne A vous aurez zéros retournés temporairement.

9

Entrée à la cellule A9 formule, = A7 A8 +

10

Copie plage de cellules A7: A9 et le coller dans la cellule B7:. B9 puis modifiez en sorte que tous les'S B sont de F, et la somme des approches 500.000 ou plus.

11

Entrez Chris Garthwaite à la cellule C7, puis xhohx à la cellule C8 et C9 The_Total cellulaire.

12

Sélectionnez les cellules B9: C9 et ne Insérez Créer des noms dans la colonne de droite, OK, de sorte que la cellule B9 a maintenant le nom de variable définie d'The_Total.

13

Entrée pour la cellule C10 fichier de sauvegarde et Format de cellule Light Blue et Bold Sélectionnez la cellule C20 et insérer le nom définir comme FILE_SAVE____S. (Ce qui est 4 souligne à la fin; 5 au total).

14

Entrez dans la cellule C11 l'étiquette NOWLY et entrez à la cellule C12, PASTELY

15

Sélectionnez B11 plage de cellules: C12 et insérer des noms Créer dans la colonne de droite, OK.

16

Entrez la formule, = TEXTE (NOW (), "mm / jj") à la cellule B11

17

Copie B11 et faire Edition Coller valeurs spéciales à la cellule B12

18

Participez AUJOURD'HUI à la cellule A11

19

Copie de la cellule B12 et de le coller dans la cellule A12. Format de cellule pour A12 police rouges, Fill Jaune, Border Red aperçu plus audacieux.

20

Insérer le nom Définir AUJOURD'HUI à la cellule = 'Article Views et autres' 12! $ A $, OK.

21

Entrez à la cellule A14 formule, = The_Total; ceci est où les vues totaux quotidiens seront conservés trace de et être transférés à feuille «Daily Trier '. De là, il sera possible de reconstruire _Clear_Total_Views_to_Date si besoin est. Ces Article quotidienne afficher les totaux peuvent être copiés et transposées, puis triées de la plus grande valeur au moins, ce qui devrait correspondre à leurs valeurs dans _Clear_Total_Views_to_Date.

22

Insérer le nom Définir entier à = 'article Vues et autres' $ A $ 12:! 163 $ A $

23

Entrez la formule = MAINTENANT () à la cellule A13 et Format Cells Numéro Date DDD. Il est tout à fait remarquable comment très souvent l'article considère tendance similaire sur les mêmes jours de la semaine, mois aussi de l'année, etc. cause de l'école et examen la programmation et d'autres facteurs.

24

Entrée pour la cellule B13, l'ISF à cela, puis entrez à la cellule B14, première colonne!, Puis entrez à la cellule B15, hier. Entourez la cellule avec une bordure rouge le plus audacieux, le remplir et rendre le jaune rouge vif police.

25

Pour la plage de cellules C13 à E13 qui relie, entourer les cellules avec une bordure rouge plus hardis et les remplir jaune.

26

Entrée pour la cellule F13, Transfert de, puis entrez à F14 de la cellule, cette colonne d'abord!, Puis entrez à F15 de la cellule, aujourd'hui. Vous pourrez commencer chaque journée en transférant les données qui étaient en aujourd'hui à hier via Macro 01, en utilisant Commande + Option + j.

27

Insérer le nom Définir _Today à la plage de cellules = 'Article Views et autres' $ F $ 16: 161 $ F $!

28

Insérer le nom Définir _Yesterday à la plage de cellules = 'Article Views et autres' $ B $ 16: 161 $ B $!

29

Entrez à la cellule A17 formule, = F17-B17

30

Copier cellule A17 et le coller dans A18 et tout en bas à gauche dans la colonne A du dernier article sur le fond Actuellement, voilà A18:. A158 lorsque cet article est terminé, mais si cela est pas l'article le plus haut, puis A158 ne sera pas la cellule plus basse, car une nouvelle ligne aura été inséré pour chaque nouvel article dans la partie supérieure, par l'intermédiaire de macro.

31

Passer deux lignes (donc actuellement A161) et l'entrée d'une formule pour un montant total de colonnes A, B, F et I dans la ligne 161.

32

Pour ces 3 dernières rangées, de la colonne A à la colonne I, l'entourer d'une bordure rouge le plus audacieux, culminant dans remplissage jaune chaque total et utiliser la police bleu foncé audacieux pour chacun. Dans la cellule dans le dernier article, entrer dans d'autres. Dans des circonstances habituelles, les numéros de wikiHow ne seront pas résumer à la somme main-entrée par la quantité de points de vue de toutes les nouvelles vues article écrit après cette ARTICLE. Autres bugs peuvent se produire, rarement. Essayez de rafraîchir la page (s) premier cependant, à plusieurs reprises, et de lui donner un peu de temps - les numéros sortent autour de 05h15, heure du Pacifique, et les écureuils à la wikiHaus sont encore frottant le sommeil de leurs yeux je suppose !? ! Il ne se passe pas très souvent. Plus généralement, la page ne met pas à jour de la veille du tout à cause de certains maintenance du serveur se fait - une journée pourrait obtenir sauté - s'il vous plaît mettre à jour vos feuilles de toute façon, même avec des zéros pour la journée, parce que la macro doit être sur le bon jour.

33

Dans H15 cellulaire entrer Article #, et le formater souligné.

34

Dans H17 cellulaire entre 142 et formater bordure rouge plus hardis contours Sélectionnez la plage de cellules H17:. 158 et faire Modifier Remplissez série -1 pour la valeur de l'étape, OK. Vous êtes-numéro pour votre propre quantité d'articles quand vous êtes tous fait avec cela et le modifier pour votre propre usage.

35

Dans I14 cellulaire entrer Rising, et I15 cellulaire entrer étoiles. Il serait trop long de vous entrez chaque étoile correctement, alors il suffit d'entrer un 1 dans la colonne I de la droite de l'article Préparer un large roulement ou de flux de trésorerie du budget, Modifier Remplissez et en baisse de 59 cellules, qui est actuellement précis que de compter sinon sur l'article. Il vous donne une idée de toute façon et vous allez juste à modifier dans votre propre, hourra!

36

Entrez dans J15 cellulaire formule, = "* [[" & C15 & "| Comment" et C15 et "]]"

37

Copie J15 cellulaire et coller it it colonne J la pleine mesure de tous les articles, puis sélectionnez l'ensemble de ce que vous venez de coller et à faire Modifier Coller valeurs spéciales de retour au sommet de tous Remarquez que les cellules J1:. J14 sont vides et utile pour la collecte de ces Prêt -À-Be-Relateds lorsque vous essayez de déterminer lesquels de recueillir l'appui d'une nouvelle (ou ancienne) article.

38

Entrez à la cellule D6 l'étiquette, Aujourd'hui, et entrez à la cellule E6, à ce jour

39

Entrez la formule = A7 / A9 à la cellule D7, entrez la formule = A8 / A9 à la cellule D8, et entrez la formule = A9 / A9 à D9

40

Copie plage de cellules D7: D9 à E7: E9 et Format de cellule Nombre Pourcentage 0%

41

Entrez la cellule E5 l'étiquette GoalSeek et faire Font bleu foncé, audacieuse Il applique comme un mémo à la cellule F5 -. À propos de l'objectif de la recherche macro utilisation dans la formulation de la feuille de calcul.

Entrée pour la cellule F1, 01. Tfr aujourd'hui à hier

Entrez à la cellule F2, AB. Collez les données wH

Entrez à la cellule F3, 02. Mise à jour AUJOURD'HUI

Entrez à la cellule F4, 03. Coller Vues Val

Entrez à la cellule F5, 04. Daily Tfr Tous

Entrez à la cellule F6, 05. Insérer le nouvel article

Entrez à la cellule F7, 06. Mise à jour hebdomadaire

Entrez à la cellule F8, 07., 08. Mettez à jour Relateds

Entrez à la cellule F9, 09. sauvegarde de statut global

Entrez à F10 cellulaire, 10. sauvegarde de statut global

Entrez à F11 cellulaire, V. Trouver article cordes

Cacher la colonne G (ensemble de la largeur de la colonne 0)

Entrez à la cellule H1, Macro j et entrez à la cellule I1 Mod 1

Entrez à la cellule H2, Macro e et entrez à la cellule I1 Mod 6

Entrez à la cellule H3, Macro t et entrez à la cellule I1 Mod 1

Entrez à la cellule H4, Macro b et entrez à la cellule I1 Mod 1

Entrez à la cellule H5, p Macro et entrez à la cellule I1 Mod 1

Entrez à la cellule H6, Macro y et entrez à la cellule I1 Mod 2

Entrez à la cellule H7, s Macro et entrez à la cellule I1 Mod 2

Entrez à la cellule H8, Macro n et entrez à la cellule I1 Mod 2

Entrez à la cellule H9, u Macro et entrez à la cellule I1 Mod 3

Entrée pour la cellule H10, g Macro et entrez à la cellule I1 Mod 3

Entrée pour cellule H11, Macro v et entrez à la cellule I1 Mod 8

Sélectionnez la plage de cellules H1: I11 et Format de cellule Border (individuellement, en utilisant la barre centrale) plus audacieux contour rouge, la taille de la police 16, Bleu foncé, Gras.

Sélectionnez la plage de cellules H3: H11 et Format de cellule Remplissez jaune. Copier la cellule H3 et faire Edition Coller Format spécial à la cellule H1. Cela laisse e Macro dans la cellule H2 séparé qui est parce qu'il est pas actuellement utilisé. Il est plus lent que de faire la mise à jour des données wikiHow manuellement. Sélectionnez H2 cellulaire et faire Format de cellule barré la police. Le code sera inclus cependant, dans le cas où l'un d'entre vous trouve un moyen de l'améliorer et de modifier cet article.

La section du milieu

1

Entrée pour K14 de cellules, dont l'auteur, et à la cellule K15, Date

2

Format de cellule pour la colonne K, numéro, date, jj / mm / aa

3

Entrez dans la cellule K16 la formule, = maintenant ()

4

Entrez dans la cellule K17 31/03/15

5

Entrez de votre article Histoire, la date de création (premier poste) pour chaque article. Pour l'instant, aller à l'article et entrée 5.3.13 de plus basse de cet auteur, puis choisir parmi 31/03/15 au côté de haut en bas à la fond et ne Modifier Remplissez Series et accepter tout ce minimum est proposé, au lieu d'avoir à entrer les dates réelles de la paternité.

6

Entrée pour L13, Aujourd'hui, entrer à L14, Moins, et entrez à L15, Démarrer

7

Entrez à la cellule L17 et copier vers le bas (de la liste de l'article rangée) la formule, = K $ $ 16 K17

8

Entrez à la cellule M14, Vues par, et entrez à la cellule M15, le Days exceptionnelle

9

Entrez à la cellule M17 et copier dans le bas de la formule, = F17 / L17

10

Entrez à la cellule N14, Jours écoulés, et à la cellule N15, entre les départs

11

Entrez à la cellule N17 et copier vers le bas la formule = K17-K18

12

Au bas des entrées aux colonnes M et N, en sautant une ligne ou deux ou trois, entrez la formule qui sera quelque chose comme ceci: = MOYENNE (M17: M158) et = MOYENNE (N17: N158); la 158 peut être plus élevé en fonction du nombre de nouveaux articles de cet auteur a écrit. Décrivez en plus audacieux bordure rouge.

13

Sous la moyenne M, entrez dans les deux cellules en dessous, MOYENNE vues / article. Et sous la moyenne de la colonne N, entrez dans les deux cellules en dessous, MOYENS jours pour écrire sur Suivant. Un auteur a écrit plus de 200 articles par an.

Gauche partie de b Macro Section

Ces prochaines sections ont à voir avec la projection de l'avenir et atteindre un objectif comme 500.000 vues d'article (savoir quand un tel objectif est susceptible d'être rencontré), donc si vous ne vous souciez pas de ce que, les ignorer et passer à la partie suivante, et ne pas courir b Macro ou Macro s.

1

Participez dès aujourd'hui comme un jour de départ, comme un jour du mois jj / mm / aa dans la cellule M11, par la formule, = Now (). Par exemple, cet auteur commence chaque semaine sur la lente journée du samedi, dans la cellule M10 parce le samedi ce qui est effectivement déclarés sont assez susceptibles d'être les rendements de vendredi soir, quand beaucoup de gens sont sur les dates. Si, d'autre part, votre sujet est tout au sujet de datation (alors que le mien est sur les mathématiques), le samedi pourrait bien être votre plus lourde journée de trafic! Cet auteur aime juste savoir ce que le point bas probable pour la semaine est susceptible d'être, parce que cela peut indiquer une semaine fort ou faible globale tout de suite. Ainsi, par exemple le plus proche était samedi au 3/31 3/28, donc je suis entré 27/03/15 à la cellule M11. Format de cellule M11 et N11 Remplissez jaune canari.

2

Entrez à la cellule L11 l'étiquette, _Today_

3

Sélectionnez la plage de cellules L11: M11 et insérer des noms Créer dans la colonne de gauche, OK Ce sera attribuer le nom _Today_ variable définie, à la cellule M11..

4

Entrez à la cellule N11 formule, = JOUR (M11) et Format de cellule Numéro sans décimales.

5

Entrez à la cellule N10 formule, = JOUR (M10), puis copiez-le dans la plage de cellules N9: N4 et Format de cellule Numéro sans décimales..

6

Entrez à la cellule M10 formule, = _Today_ + 1

7

Entrez à la cellule la formule M9, M10 = + 1, et le copier dans la plage de cellules M8:. M4 Format ces cellules Numéro Date jj / mm / aa.

8

Entrez dans la cellule L10 formule, = M10, et Format de cellule Nombre Date de DDD, et copier et coller ce à la gamme cellule L9: L4

9

Entrez à L3, Jour, entrez à M3, Date, entrez à N3, DATERANGE, entrez à l'O3, Nombre total de vues à ce jour, entrez à P3, Vues quotidiens.

10

Entrée pour O1, Pastoid.

11

Entrée pour O2 formule, = TOTAL_per_wikiHow, et entrez à P2 l'étiquette (w / o citations et w / interlignage), "= TOTAL_per_wikiHow» et Format de cellule de la police rouge, gras Sélectionnez la plage de cellules O1:. O2 et insérer le nom Créer dans TopRow, OK, ce qui permettra de créer le nom Pastoid pour le wikiHow total.

12

Sélectionnez gamme cellule O4: O10 et Insérer le nom de la définir comme _Clear_Total_Views_to_Date.

13

Entrée pour la formule M11, = Now () et Edition Copier et Modifier Collage spécial revenir au sommet lui-même.

14

Entrée pour Ø11 la formule, = MAX (S47: S58)

15

Entrez à M12, projetée et aligner à droite.

16

Entrée pour N12, objectif, et rendre la police gras.

17

Entrée pour O12 la formule, = 500000-MAX. (O4: O11) .. cela est indiquant le but que la différence entre l'objectif de 500.000 et ce qui a été accompli à ce jour.

18

Entrée pour O10, 434508, et entrez à O9, 435117, et entrez à O8, 436036 - Macro b le fait habituellement pour vous, en prenant The_Total de Pastoid ci-dessus chaque jour et de trouver la cellule suivante vers le haut pour le coller dans.

Attention: La macro est pas la date-dépendante, mais à la place, à côté vierge dépendant des cellules. Cet auteur est pointilleux sur l'exécution des macros chaque jour, il est donc pas un problème, mais il est possible qu'il pourrait être. Le problème est que maintenant = () ne correspond pas à l'une des dates à gauche, parce que = MAINTENANT () comprend le temps d'arrêt à la fraction de seconde. Il ya un moyen de contourner cela, si l'auteur peut prendre le temps pour cela.

19

Entrez dans la cellule O13 la formule, = O12 / P16

20

Entrée pour P13 l'étiquette, nécessaire / jour, et Format de cellule O13: P13 Border Outline plus audacieux Violet, Remplissez la lumière bleue, la police rouge.

21

Entrez à la cellule O15, Goalseeking_to_Zero_per_Red__below, et entrez à P15 de la cellule la formule, = P29-P28 Format de cellule de police pour la plage de cellules O15:. Q15 pourpre et de remplissage bleu clair. Puis Format de cellule P15 remplissage blanc.

22

Entrez dans la cellule O16, _Days_to_GOAL Sélectionnez la plage de cellules O15:. P16 et insérer le nom Créer dans la colonne de gauche, OK.

23

Entrez 88,6876756537355 à la cellule P16. Ce sont les jours décimaux gauche jusqu'à 500.000 est atteint, par la méthode de recherche de but, qui emploie valeur future.

24

Entrez à Q15, SEEK QUOTIDIEN.

Le b Macro section Basse

1

Entrée pour O28, Macro b, et Format de cellule Remplissez jaune, police bleu foncé, plus audacieux Border Red contour.

2

Entrée pour O29, 04. Coller Vues Val. Format de cellule Fill Light Brown. Aussi Format de cellule F1: brun clair F11 de remplissage.

Entrée pour Q28 cellulaire, FV d'une formule de rente ... (FV = valeur future)

Entrez le numéro de Q29 cellulaire gauche pour frapper 500.000

Entrée pour la formule P28, P32 = * (((1 + P30) ^ (P16 / 7 -1)) / P30)

Entrez à la P29 la formule, = 500000-MAX (O4: O11)

Entrée pour P30 la formule, = MOYENNE (_AvgReturnRate)

Entrée pour P31 la formule, = _Days_to_GOAL / 7

Entrée pour O30 l'étiquette, je rate = rendement moyen de taux

Entrée pour O31 l'étiquette, semaines pour aller

Entrée pour O32 l'étiquette, moy Wkly "flux de trésorerie» Article Vws

Entrée pour O33 l'étiquette, date butoir pour 500.000

Entrée pour O34 l'étiquette, MAINTENANT

Entrée pour P32 la formule, = MOYENNE (_AvgWklyCashFlow)

Entrée pour la formule P33, P34 = P16 + et Format de cellule Nombre personnalisée jj / mm / aa hh: mm AM / PM

Entrez à la P34 la formule, = Now () et Format de cellule Nombre personnalisée jj / mm / aa hh: mm AM / PM

Entourez plage de cellules O28: R34 avec Format de cellule Border plus audacieux contour rouge.

Entrez à la cellule Q30 et Q32 l'étiquette, le changement hebdomadaire

Entrez à la cellule Q33 l'étiquette, SEEK QUOTIDIEN

Copier cellule O28 à la cellule R30 et le modifier à lire, s Macro

Entrée pour R31 cellulaire, (Exécuter une seule fois)

Entrée pour R32 cellulaire, Module 2

Format de cellule N4 Remplissez jaune.

Les données pour les macros

1

. Exécuter des macros régulièrement la fin de chaque semaine, vous êtes à courir s Macro, qui gamme copies cellulaire M4: 04 et Edition Coller valeurs supérieures à la plus haute dernière entrée près Q47: S47. Par exemple, vendredi dernier était le 27 et la fin de cette semaine, donc dans Q47 est 27/03/15, dans R47 est la valeur 27 et S47 est la valeur 433726. En outre, les changements macro toutes ces données, il ajoute sur haut vers, une ligne vers le bas. S macro déplace également gammes _AvgReturnRate et _AvgWklyCashFlow par une cellule.

2

Sélectionnez la plage de cellules «Article Vues et autres '4 $ M $:! $ O $ 4 et ne Insérer le nom définissent comme _MNO_Update.

3

Sélectionnez la plage de cellules 'Article Views et autres' $ Q $ 46: $ S 46 $ et ne Insérer le nom définissent comme _QRS_Update.

4

Créer des données partiellement exactes, partiellement faux Entrée pour Q48 la formule, = Q47-7, et copier et le coller à la plage de cellules Q49:. Q147

5

. Entrez dans la cellule R47, la formule = Q47, et les cellules de format numérique personnalisé, dd Copie R47 à la plage de cellules R48: R147.

6

Entrez à la cellule la valeur S147, 4612.

7

Sélectionnez la plage de cellules S47: S74 et faire Modifier Remplissez Series et font la valeur de décrément -4686, OK.

8

Sélectionnez la plage de cellules S147: S74 et faire Modifier Remplissez Series et font la valeur de décrément -4145,1, OK Format de cellule S46:. "#, ## 0" Nombre T147 personnalisé (w / o guillemets) ou le numéro 0 décimale et utiliser des virgules.

9

. Entrez dans la cellule T inférieur de côté les données de S, probablement T147, la formule, = S147 Entrée pour la formule T146, S146-S147 =, et le copier et le coller dans plage de cellules T145: T47.

10

Entrée pour U146 la formule, = T146 / S146, et le copier et le coller dans plage de cellules U145:. Avez-U47 Format de cellule Nombre Pourcentage (2 décimales).

11

Sélectionnez gamme T47: U73 et insérer le nom Définir _AvgWklyReturns, Ajouter Sélectionnez gamme T47. T73 et insérer le nom Définir _AvgWklyCashFlow, Ajouter (comme la formule de rente FV comprend ces «paiements»). Sélectionnez U47 de gamme: U73 et insérer le nom Définir _AvgReturnRate, OK. Format de cellule T47: U73 Remplissez jaune.

12

Vérifiez que la cellule P31 = 1,27% et P33 de la cellule = 4686.

13

Estimez vos propres totaux hebdomadaires article de Vues d'entrée dans la colonne T, et le faire ajouter à vos Nombre Article vues actuelles de la colonne S, ou plutôt prendre les différences, sauf si vous avez déjà été suivi tout le long. De préférence, 27 semaines de données peut être créé. Sinon, commencez par vos réels maintenant et cet auteur vous aidera à modifier s Macro pour mieux adapter à votre situation, étant donné que vous allez me envoyer un email, s'il vous plaît. La situation est de créer des moyennes pour réels Vues hebdomadaires et leur réelle% du total, jusqu'à une valeur de 6 mois, de façon constante en ajoutant à la partie supérieure de la plage de cellules, jusqu'à 6 mois sont atteints, et puis en déplaçant le 6 mois vont jusqu'à une cellule (1 semaine chaque semaine). Ou, vous pouvez consulter l'article Comment sélectionner cellules et plages dans Excel Visual Basic et de modifier en conséquence Macro s vous-même.

Projections mensuelles Macro b Section

1

Entrez les informations en-tête:

Sélectionnez la plage de cellules Q1: Y14 et Format de cellule Alignement Centre

Entrée pour Q2, Quotidien, et Q3, Vues

Entrez à R3, Moyenne Vues

Entrée pour S1, Frozen YTD moins

Entrée pour S2, (Moving YTD-Mvg,

Entrez à S3, MTD) = Frozen MTD (où YTD signifie Année à ce jour, ou jamais, et MTD signifie Mois à ce jour).

Sélectionnez la plage de cellules S1: S11 et Format de cellule Remplissez jaune. Sélectionnez la plage de cellules S1: S3 et Format de cellule contour des frontières plus hardi rouge. La raison de la mise en forme jaune spéciale est que la formule ci-dessous l'en-tête doit être ajusté quand un nouveau mois commence.

Entrez au T2, True moyen / Jour. et entrez à T3, Mois à ce jour

Entrez à U3, projetée

Entrez à V2, Over (Under), et entrez à U3 projetée BUT

Entrée pour W2, 500.000 et entrez à W3, Date cible

Entrée pour la formule X1, = Now (), et Format de cellule Nombre Date, mmmm

Entrée pour X2, projetée, et entrez à X3, Mois

Entrée pour Y1, à ce jour, puis entrez à Y2, projetée, et entrez à Y3 la formule, = P34, et Format de cellule pour P34, jj / mm / aa

2

Entrez les formules pour la partie supérieure des projections mensuelles:

Entrée pour P4 la formule, = O4-O5, et entourent la cellule dans une bordure noire épaisse.

Entrée pour Q4 la formule = SI (ET (O4 <> "", P4> -360 000), P4, "")

Entrez à R4 de la formule, = SI (ESTERR (MOYENNE (Q4 $: 10 $ Q)), 0, MOYENNE (Q4 $: Q 10 $))

Sélectionnez la cellule gamme P4: R4 et Modifier copier ème Edition Coller à gamme cellule P5: R10

Entrez à Q11 la formule, = SOMME (Q4: Q10) et modifier la copie et de le coller à R11.

Entrée pour la formule Q12, Q11 = * 7 / COUNT (Q4: Q10) et entrez à R12 l'étiquette, la Semaine projetée. Format de cellule Q12: R12 police rouges.

Entrée pour la formule Q13, O12 = / Q14 et entrez la formule à R13, R11 = 7 * / (COUNT (Q4: Q10))

Entrée pour la formule Q14, P16 = / (365/12), et entrer à l'étiquette R14, mois de la fin, et le formater alignement à gauche.

Entrée pour S12 la valeur, 0 et Format de cellule Nombre personnalisée, "Laissez au Zero"

Entrez à la cellule T12 l'étiquette, Prix moyen / Jour Cette Sem et entrez à la cellule T13 la formule = SI (ESTERR (moyen ($ Q $ 4: $ Q $ 10)), 0, moyen ($ Q $ 4: $ Q 10 $))

Entrez à la cellule S14 la formule, = SI (T14 <0, "Short", "Over"), et formater alignement à droite

Entrée pour T14 cellulaire formule, = SI (U14 = 0,0, U14-O12)

Entrée pour U14 de la cellule la formule, = T13 * Q14 * (365/12)

Sélectionnez avec les plages de cellules clés de commande: S12, T12: T13, T14, S14, U14 et Format de cellule Remplissez lumière bleue bordée de pourpre plus hardis contours

Entrée pour V14 de cellules de la formule, = U14-but, et sélectionnez O12 cellulaire et insérer le nom Définir BUT, OK.

Entrez à la cellule W14 la formule = SI (U14 = 0, "", (BUT / U14 * $ P $ 16) + 35 $ P $), et Format de cellule Numéro Date jj / mm / aa hh: mm AM / PM

Entrez à la cellule la formule X14, T13 = * _LastDay, dont le nom n'a pas encore été définie.

Entrée pour Y14 de la cellule la formule, = MOYENNE (AE4: AE11), les entrées qui ne sont pas encore être faite. Format de cellule Y14 Fill Light Border bleu contour plus audacieux noir. Ce numéro et sa date sont des candidats assez fortes.

Entrez à la cellule Z14 formule, = INT (MOYENNE (Z4: Z11))

Entrez à la cellule AA14 la formule, = VLOOKUP (Z14, _eom, 2)

Format de cellule Z4: taille 14 AA14 police, bleu foncé

Entrez à la cellule AB1 l'étiquette de table vlookup, _eom, et insérer le nom Définir _eom de plage de cellules $ AB $ 2: $ AD 13 $, puis formatez cellules contour des frontières en plus audacieux AB1 noir: AD13

Entrez à la cellule AE11 la formule, = SI (Y11 = 0, "", Y11) et le copier et le coller à la gamme cellule AE10: AE4

Entrée pour la plage de cellules AB2: AB13 les nombres de 1 à 12 (pour les mois de l'année).

Entrez à la gamme cellule AC2: AC13 le dernier jour de chaque mois, par exemple. 1 mois est Janvier, donc mis 31 mois 2 est Février qui est spécial pour mettre = 28 + AD3, puis 31, 30, 31, 30, 31, 31, 30, 31, 30 et 31.

Entrez à la cellule Z1 la formule, = année (X1), et Format de cellule Numéro Date aaaa

Entrez à la cellule AD3 la formule de l'année bissextile (pendant un certain temps de toute façon), = SI (OU (Z1 = 2016, Z1 = 2020, Z1 = 2024, Z1 = 2028, Z1 = 2032), 1,0)

Entrez à la cellule Z3 l'étiquette, Mois

Entrez à la cellule Z4 formule, = MOIS (M4) et Format de cellule Nombre Nombre, décimales 0. cellule Copier Modifier Z4 et le coller à la plage de cellules Z5: Z11.

Sélectionnez AA de la colonne et insérer le nom Définir _LastDay, OK.

Entrée pour AA3 cellulaire l'en-tête, _LastDay

Entrée pour AA4 de la cellule de formule, = VLOOKUP (Z4, _eom, 2), et modifier le copier et le coller dans Modifier gamme cellule AA5: AA11

Entrez à la cellule T4 formule, = SI (S4 <> S5, S4 / N4,0), et de le mettre en gras

Entrez à U4 cellulaire formule, = T4 * $ Q $ 14 * (365/12)

Entrez à la cellule V4 la formule, = SI (U4 = 0,0, U4-GOAL)

Entrée pour cellules W4 la formule, = SI (U4 = 0, "", (BUT / U4 * $ P $ 16) $ P + 35 $) et Format de cellule Numéro Date jj / mm / aa hh: mm AM / PM

Entrez la cellule X1 la formule, = Now (), et formater Numéro Date mmmmm

Entrez à X4 cellulaire formule, = T4 * _LastDay

Entrez à Y4 cellulaire formule, = U4 + O4

Sélectionnez la plage de cellules T4: Y4, Edition Copier et Coller Modifier à la plage de cellules T5: Y11

3

Entrez à la cellule S4 la formule = SI (O4 - ('Daily Trier' $ NZ $ 150'Daily Trier '$ NQ 150 $) <0, S5, O4 - ('! Daily Trier '$ NZ $ 150'Daily ! Trier '$ NQ 150 $)) et Modifier le copier et le coller dans Modifier plage de cellules S5: S6. Maintenant, ici, nous entrons dans la prochaine feuille de calcul, 'Daily Trier', vous remarquerez. $ 150 $ NQ détient l'information sommaire pour Avril 2015. En NZ $ 150 $ sur 'Daily Trier' sont totales Article Views à ce jour, pour toutes les périodes. Par conséquent, si pour une raison quelconque totale Article Views comme étant détenus par O4 Aujourd'hui, moins (Total Article Views à ce jour moins de Avril) doit être inférieure à 0, retourner la valeur directement ci-dessous dans la cellule S5, sinon retourner le total à ce jour dans O4, moins le total à ce jour dans 150 $ NZ $, moins moins (= plus) Vues avril à ce jour, $ NQ 150 $. Le système wikiHow nous donne Vues Total à dater tout le temps - il est à nous de recueillir les points de vue de chaque semaine et les points de vue de chaque mois. Jusqu'à O4 obtient Vues totales de l'entrée de la journée en cours en elle par Macro b, il est vide! Alors, quand il soustrait (Vues Total à ce jour, moins de Avril, même si ce sont Avril 0), il obtient un grand point négatif, donc il faut le nombre de S5-dessous jusqu'à ce que la cellule dans la colonne O vers la gauche est mis à jour. Cela est très bien si il arrive à être Avril, mais que faire si il est Mars?

4

Entrez à la cellule S7 la formule = SI (O7 - ('Daily Trier' $ NZ $ 150'Daily Trier '$ NP 150 $) <0, S8, O7 - ('! Daily Trier '$ NZ $ 150'Daily ! Trier 'NP $ 150 $)) et Modifier le copier et le coller dans Modifier plage de cellules S8: S11. Sur le 'Daily Trier' feuille de calcul dans la prochaine cellule à gauche, NP $ $ 150, sont regardées de mars. Sur «Article Vues Vues et autres 'n M7 est 31.03.15 et 01.04.15 M6 est. Donc, vous voyez pourquoi cela a été enregistré ce pour la fin: vous devez mettre à jour manuellement cette formule à la fin du mois avec la prochaine cellule correcte à droite de la feuille suivante, 'Daily Trier'.

Partie 2 de 5: WS: Daily Trier

1

Nom 4 feuilles de travail (WS) de gauche à droite, w / o citations, comme «Vues article et les autres", "Daily Trier", "Relateds» et «Analyse de CAT".

2

Insérer le nom Définir __1 à portée de la cellule = 'Article Views et autres' $ C $ 16:! $ H $ 161 - cela aide à approcher en direct les liens de 1 cellule au-dessus ou sur le côté avec les touches fléchées ou retour, et non pas directement au sommet avec la souris, comme qui déclenche le lien, et tout simplement de définir des plages variables qui les entourent. (Voilà 2 souligne et un 1 il trie en haut de la liste des noms de variables.)

3

Insérer le nom Définir __2 de plage de cellules = 'Daily Trier' $ A $ 5:! $ 150 $ F

4

Insérer le nom Définir __3 de plage de cellules = Relateds $ B $ 9: 154 $ G $

5

Insérer le nom Définir __4 de plage de cellules = 'CAT ANALYSE' $ H $ 5:! $ M 150 $

6

Insérer le nom Définir __5 de plage de cellules = Relateds $ I $ 1: 6 $ EX $

7

Réglez développeur à Vérifié ou sur de sorte que vous pouvez travailler avec des macros. Si pas déjà fait, faites-le maintenant.

8

Le code de macro suivant doit être copié à partir de "# ** Sous Macro04, etc." jusqu'à "# ** End Sub» dans Édition avancée dans wikiHow et collé dans un éditeur de texte ou traitement de texte comme Word qui a une remplacer toutes les fonctions. Vous souhaitez remplacer tous les "# **" (sans les guillemets) avec rien. You then want to RECORD a dummy macro in Excel in the OVERALL STATUS.xlsm workbook and paste the Replace(d) All text over the dummy macro. There are other ways to go about it, but that's quick and dirty and gets the job done. Enregistrez le classeur. Run the macro either from the macros tool icon or by pressing command+option(alt)+p.

  • Sub Macro04_Tfr_Views_Thruout_p()

    ' Macro04_Tfr_Views_Thruout_p Macro

    ' Transfer Views Daily thruout workbook

    ' Keyboard Shortcut: Option+Cmd+p

    Application.Goto Reference:="__1"

    Selection.Copy

    Application.Goto Reference:="__2"

    ActiveSheet.Paste

    Application.Goto Reference:="__3"

    ActiveSheet.Paste

    Application.Goto Reference:="__4"

    ActiveSheet.Paste

    Application.Goto Reference:="__5"

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=True

    ' Macro04a_Cat_Analysis_Fix

    ' Application.Goto Reference:="_TopLeft"

    ' Macro09_PinkSave_u

    ActiveWorkbook.Save

    ' Application.Goto Reference:="FILE_SAVE____S"

    End Sub

9

Part of the code at the end has been disabled with apostrophes at the beginnings of the lines. Also, on the transposed section in Relateds, the formatting will not get copied over and that will need to get fixed at some point by copying over the formatting and then manually resetting it. No time for that now. It should read with your head turned 90 degrees left, justified vertically down, with word wrap.

10

You should now have the Articles, Views and Article#'s on the 'Daily Sort' worksheet. If there is ever a lingering New Article name in A4, just delete it or fix the macro code to do so.

Enter Headers

1

Enter in cell A1, Article

2

Set column width for B:C to .08 inches

3

Enter in D1, Views

4

Set column width for E to .38 inches

5

Enter in cell F1, Art#

6

Enter in cell G1, Rank

7

Enter in cell H1, Seen

8

Enter in cell I1, Two

9

When you're ready to run these macros daily on your own data, Macro t will take the information in 'Articles and Views'!WHOLE, ie ='Article Views and Other'!$A$12:$A$163, and transfer it exactly to Nexter and beneath it. It will then name the next top cell to the right Nexter so that it can proceed to do the same thing the next day and each day. That is, the DAY'S views, not the Total Views as of that Date will be transferred. However, you have just transferred with Macro03 to Defined Cell Range Name __02 the Total Views as of today's date. If you had YESTERDAY'S Total Views, plus Today's DAY'S views, you would then have Today's Total Views separated. So what you need is a starting point of Total Views. You will then add each day's views across to become the Month to Date's views. They will become that Month's Views. Then you will add your Starting Point to all the Months and agree it to wikiHow's Total Views as of Today. Thus, you will have gained insight into how you are doing per article per day and by month, whereas on Article Views and Other you were watching it for the current week, average and Projected Month.

10

Keep it simple and just enter the year's dates across the top. So in J1, enter 01/01/15 (if 2015 is the current year), and Format Cells Number Date mm/dd. Select the cell range for all 365 days of the year (or 366 days in 2016), ie over right from J1:NJ1 and do Edit Fill Series Step Value 1, OK.

11

Suppose, for example, that you start the process on 04/01. For cell CV1, do Insert Name Define Nexter, OK. Just whichever row 1 date you start the process on, make sure to Insert Name Define as Nexter.

When Nexter has updated column CV, remember to do the following: enter to CV3 the label, Don't dbl-count, and enter to CV4 the label, this column. Format Cells Font red bold.

Input Formulas and Data

1

Supposing, for example, that your update to column CV started 04/01. The next thing to do is to put in the bottom formulas. Enter to cell CV154 the formula, =DAY(CV151), and enter to CV155 the formula, =SUM($CV$150:CV150), and enter to cell CV156 the formula, =CV155*30/CV154. Put a boldest red border at the top of cell CV154, a left boldest border down cells CV154::CV156, and a bottom red boldest border for cell CV156.

2

Edit Copy cell range CV154:CV156 and Edit Paste Special Formulas to cell range CW154:NJ156. Then put a boldest red border around each month because you will need to change the middle formula for each month. You can split and freeze the screen at J5 so you can see the upper dates to make this job easier, or copy them temporarily nearby below.

3

Note that the middle formula in cell CV155, =SUM($CV$150:CV150), creates the month to date sum of article views by summing from the $Absolute$ starting point of $CV$150 and then relatively for each new cell to the right, so that the formula in cell CW155 is =SUM($CV$150:CW150). We want that to continue on through all of April and then stop and start afresh for May.

Enter to DZ155 the formula, =SUM($DZ$150:DZ150) and Edit Paste Special Formulas that across for all of May. Surround April and May and each new month with Format Cells Border red boldest outline

Enter to FE155 the formula, =SUM($FE$150:FE150) and Edit Paste Special Formulas that across for all of June. Do the red boldest border for June.

Enter to GI155 the formula, =SUM($GI$150:GI150) and Edit Paste Special Formulas that across for all of July. Do the red boldest border for July.

Enter to HN155 the formula, =SUM($HN$150:HN150) and Edit Paste Special Formulas that across for all of August. Do the red boldest border for August.

Enter to IS155 the formula, =SUM($IS$150:IS150) and Edit Paste Special Formulas that across for all of September. Do the red boldest border for September.

Enter to JW155 the formula, =SUM($JW$150:JW150) and Edit Paste Special Formulas that across for all of October. Do the red boldest border for October.

Enter to LB155 the formula, =SUM($LB$150:LB150) and Edit Paste Special Formulas that across for all of November. Do the red boldest border for November.

Enter to MF155 the formula, =SUM($MF$150:MF150) and Edit Paste Special Formulas that across for all of December. Do the red boldest border for December.

Go back and do January, February and March as well please, even though you'll get errors -- this sheet will prove useful in future years. Remember to do the red boldest border for each month. You can hide columns you're finished studying or which contain no data. It might be best to leave 01/01 showing so you remember it's all there but hidden. Bear in mind that Macro t does NOT look for a date but instead for whichever cell is named Nexter -- that is what will next be updated.

4

This author has in cell NL1, 01/17, and in cell NL2, to date. The Article Views as of 01/17/15, the Starting Point, are included below in cells NL37:NL147.

5

Then, summarized, this author has in cell NM1, 1/18-1/31, and in NM2, Period. This column adds across all the activity from 1/18/15 to 1/31/15. Starting in cell NM33 is the formula, =SUM(AA33:AN33) and it has been copied and pasted down to NM147.

6

Then, in cell NN1, this author has, To Date 1/31/15, and in cell NN2, 1/31/15 formatted yyyy. In cell NN6 is the formula, =NL6+NM6, and that has been copied and pasted down to cell NN147.

7

Next, in cell NO1, is the value, 2/28/2015, formatted mmm, and in cell NO2, is the same date, formatted yyyy. In cell NO6 is the formula, =SUM(AO6:BR6), and that has been copied and pasted down to NO147.

8

Continue this process for each month, summarizing all the month's days across horizontally into one monthly amount, per article, and then down to a monthly total.

9

Enter to cell NL150 the formula, =SUM(NL6:NL149). Edit copy NL150 and Edit Paste it to cell range NM150:NZ150

10

Enter the months across the top, and the year, for cells NO1 to NY2

11

Enter to cell NZ1 the label, To Date, and to NZ2 the formula, =now(), formatted yyyy.

12

Enter to cell NZ6 the formula, =SUM(NN6:NY6), and Format Cells Number Custom 0;0;0

13

Enter to cell NZ151 the formula, =NZ150-D150. That should equal 0 and proves that the spread equals the number from wikiHow!

14

Over to the right, this author analyzed the zeroes of February, 2015 by formulating an IF statement such that if there were an amount <> 0 in each February article-day, return a 0, else return a 1. Counting all the 1's of that meant counting all the article-days per article on which there were 0 article views. These were summed and the total column was sorted from greatest to least to find out which articles were having the most Zero Views days. The formulas were Edit Paste Special Values back atop themselves to conserve memory and the sort was undone by sorting on Article number from Highest to Least. Many various sorts are possible in this worksheet, some dependent upon the categories yet to be input. It's a pretty big job and it's left up to you as to whether you really want to do it or not.

Comment faire pour créer un classeur d'état global en XL et VBA pour vos articles de wikiHow

15

Here is a picture of the SEEN and TWO Categories this author uses; "SEEN" means that it's the category seen by the user in the upper right hand corner of the Article page and "TWO" means that it's the second category, which is listed at the bottom left corner of the article page. Almost every article has two categories it uses, which is the current maximum available. As an example of how it works in the spreadsheet, Rank would list something like 1.02, which would mean SEEN = Mathematics and TWO = Calculating Volume and Area. Since many articles are categorized in the same Rank(s), sorting them by Rank order is meaningful.

Comment faire pour créer un classeur d'état global en XL et VBA pour vos articles de wikiHow

16

And here are the First 70 Categories for the current 142 articles (by clicking directly on the image, or double-clicking, you can get a zoomed-in view):

Comment faire pour créer un classeur d'état global en XL et VBA pour vos articles de wikiHow

17

Here are the 2nd 72 Categories for the current 142 articles:

18

Input the Ranks, then the 142 * 2 categories, SEEN and TWO, to cell range G6:I147 per the images above.

19

The concatenation with the hyphen between is done for the CAT ANALYSIS worksheet. The formula is, =H6&"-"&I6, copied and pasted down, then copied again entirely and Paste Special Values atop itself, to preserve memory.

20

If you don't care to input all the categories, dummy in 1 or a few and paste them in below as you see fit. If you usually only use one category, you might still want to leave columnar space for two, as you might someday change your mind. If wikiHow changes and permits 3 categories, then a system of Rank looking like 01.12.02 will still sort just fine as a string, so long as there is actually a leading zero. You may have to use a formula to add one on, like this: ="0"&_Rank for just the single digit leads, where the Rank column has been defined as Defined Variable Name, _Rank. Or, ="0"&text(Rank,"0.00"), else 10's might appear right after 1's.

Part 3 of 5: ws: Relateds

1

You have already run Macro p to populate this worksheet (ws) with Articles, Views and Article#s. There is just really no simple way for this author to convey the spreadout of Relateds/Article across the entire worksheet to you. 142*142=20164. Each cell in cell range J10:EV152 either has is blank or has a 1 in it, the 1 indicating that the intersection of the horizontal row article holds the vertical article as a Related wikiHow. Vertically, that means that the vertical article is held by n many horizontal articles currently. If you think about it from a user's perspective, it might be nice to have a way back to the article you just came from ... but that's not essential when allocation space is short at ten articles only, max. It's far more important that the article be actually related, firstly, and secondly, it's preferable for recent articles to support current articles, generally speaking, on the assumption that one's readership is already acquainted with older articles. It has been observed that readership of popular articles remains consistently high but that all readership of older articles declines with age; it is important not only to be writing high quality new articles that earn Rising Star or Featured Article status, it is also important from time to time to "freshen up" the older articles where possible. One way of doing this is to change their Relateds. Although the most recent 42 articles account for just 3% of total views to date, they often account for around 25% of today's views!! That is a very important fact to know and use. It means that a good portion of one's following is keeping very current with one's authorship. This article already has 24 views and it is tagged with an InUse template as well as being Not Yet Reviewed for Quality, so the readership is pretty hungry for the latest thing, it is thought. The article has modifications being made in the middle of it! -- so it has to be re-read to make complete sense! -- and still they persist!! This author admires their tenacity and feels extremely devoted to them per their own devotion. This author does his level best best to get it right on the first draft. This author does not track other author's Related wikiHows. The reason is because it's difficult to keep track of what the rest of the world is doing, let alone just oneself. However, the possibility of tracking other author's Relateds posted to one's articles is feasible within this system and not all that unwieldy.

2

Enter in cell A9 the formula, ="*[["&B9&"|How to "&B9&"]]", and Edit Copy it and Edit Paste it to cell range A10:A151, then Copy A10:A151 and do Edit Paste Special Values for cell range A10:A151 to conserve memory.

3

Enter to cell A1 the following text: The objective is usually to update the latest article written with Related wikiHows of formerly written articles listed here on the "Relateds" tab. Another objective might be to delete Relateds subtracted as a group that were in excess of the 10 Relateds per article limit -- in that case you would be deleting 1's instead of adding them.

4

Enter to cell B1 the following text: HOW IT WORKS: 1) Build this spreadsheet with the variable names Searcher for Row 1 and TopRow for Row 166; 2) Go to worksheet tab Article Views and Other and decide on a list of bracketed Relateds to post for an Article on this worksheet tab; 3) Copy them; 4) Click on the next article's filename in the ordered sequence being addressed to open that wikiHow page; 5) Click on Edit and go to Relateds after checking the top of the article to see what Relateds already have links; 6) Edit in the Related wikiHows field and paste the list you brought in -- be careful of duplicates and the article you are working in; 7) Copy the final list of relateds and then PUBLISH THE EDIT; 8) Go to this Relateds worksheet and paste the list of Relateds into cell A166. The final list in B166 on should have formulas which deliver out the article name without brackets; 9) Use Macro 07.08. ... n and then command v to FIND the article in row 1 Searcher and when the Input Box comes up do command v paste; click OK for the Input Box afterwards; 10) Use the down arrow and row-heights = 0 to post a 1 quickly to the article the Relateds, one macro run by the next (or manually is faster if they are all in a row)l; 11) Click on the next article name row in this worksheet and color it by group of about 6-15 articles and repeat until done.

5

Insert a new comment for cell B1 and input the above text into the comment. Update changes.

6

Set row height for Row 1 to 5.31", hide rows 2:3 and 5. Calibri (Body) font is used mostly, size 12 or 14. Your favorite font is a matter of personal preference, as is its size, which is why it has been left until now mostly to state a preference. Input cells, or cells which are important or may be modified, other than those pasted in from wikiHow, may be color-filled canary yellow, even if the macros do the changing. You may want to work out your own style system as is preferable to you. The more important a cell is, the more likely it is to receive a boldest border, often in red. It's been left up to you to adjust your row heights and column widths to automatically fit the data all along. However, for column A, where the ready-tobe-Relateds formulas and pasted values run quite long, this author has a column width of only 5.36" -- more than enough, and a frozen window at cell J7. Cell H7 contains xxxxxxxxxxxxxxxxxx and column I is hidden, as is column F. Columns C:D are minimal, in order to see if any Rising Star objects somehow made it through the deletion subprocedure of Macro p.

Input the Relateds Subtotals

1

Realize that this is a work in progress and this author has yet to decide on an ideal model for analyzing Relateds. There is room for improvement. One needs to give it serious consideration. Currently, because no Relateds have been done for this article yet, there are 1416 Relateds assigned out of 1420 (142 articles * 10 Relateds/article) Allowed = 4 (Under). However, there are 271 under 10 (19.41%), 520 at 10 (36.72%), for a subtotal of 55.86% at 10 or under, and 625 over 10 (44.14% -- the balance)(sometimes there are 11 or 12 Related wikiHows, sometimes up to 15). All in all, it is below the total allowed overall. That may be a bit of fudgery and other's Relateds are not counted in the system, but it's felt to be fair, all things considered, with heavier-usage articles receiving more attention and lesser-used articles receiving less attention, so it's proportional to what the users want, actually. It's meant to please the users, after all. Sometimes, it has been as much as 6% over Allowed but has always been trimmed back to be within the limit. The system also does not count links within an article that are not down in the Relateds section, eg in the article How to Teach or Learn Math, Trig and XL with Enthusiasm -- but that is a rare treatment, not the standard. Someone counting actual links will thus arrive at a somewhat greater number. This article, also, falls into that category, but only temporarily as a model for the user to build their own article list as retrieved from their own User Page.

Enter to cell H153, Chris G., and to cell H154, Xhohx. Copy cells H153:H154 and paste them to cell range H155:H156. Enter in cell H157, Both. Enter in cell B157, Total Article Views on Relateds, and align it right. Enter the formula, =E154, to cell B158.

Select cells B157:B158 and do Insert Name Create in Top Row, OK.

Enter to cell H158, % Article Views to date . Enter to cell H159, Chris G. & Xhohx %age of H_Sum .

Enter to cell J153 the formula, =SUM(J10:J51)

Enter to cell J154 the formula, =SUM(J52:J152)

Enter to cell J155 the formula, =J153/H_SUM and format it percentage, 2 decimal places.

Enter to cell J156 the formula, =J154/H_SUM and format it percentage, 2 decimal places.

Enter to cell J157 the formula, =J153+J154

Enter to cell J158 the formula, =J4/Total_Article_Views_on_Relateds, and format it percentage. 2 decimal places.

Enter to cell J159 the formula, =J155+J156, and format it percentage. 2 decimal places.

Copy cell range J153:J159 and Edit Paste it to cell range K153:EV159

Enter to cell EW153 the formula, =SUM(EW10:EW51)

Enter to cell EW154 the formula, =SUM(EW52:EW152)

Enter to cell EW157 the formula, =EW153+EW154

Enter to cell EW158 the formula, =SUM(J157:EV157)

Enter to cell EX157 the label, V_SUM

Enter to cell EX158 the label, H_SUM

Select cell range EW157:EX158 and do Insert Name Create in Right Column, OK.

Enter to cell EY157 the formula, =EW157

Enter to cell EY158 the formula, =MAX(G10:G151)*10

Enter to cell EZ158 the label, Allowed @10

Enter to cell EY159 the formula, =EY157-EY158 and Format Cells Fill Yellow, Border Red outline boldest red

Enter to cell EZ159 the formula, =IF(EY159>0,"OVER","UNDER")

Enter to cell EW10 the formula, =SUM(H10:EV10) and Format Cells Fill light green

Copy cell EW10 and Edit Paste it to cell range EW11:EW152

2

Enter to cell EX8 the label, Under 10

3

Enter to cell EY8 the label, Over 10

4

Enter to cell EZ8 the label, At 10

5

Enter to cell EX9 the label, AVAILABLE and Format Cells fill yellow and Border red outline boldest, font red bold

6

Enter to cell EX10 the formula, =IF(10-EW10>0,10-EW10,"") and Format Cells Fill tan

7

Enter to cell EY10 the formula, =IF(EW10>10,EW10-10,"")

8

Enter to cell EZ10 the formula, =IF(EW10=10,1,"")

9

Edit Copy cell range EX10:EZ10 and Edit Paste to cell range EX11:EZ151

10

You might try inputting some article rows with 1's less than 10 in total across, then others equal to 10 across, and still other greater than 10 across, just to see that these formulas work, and the next group of formulas as well. Articles with high view counts are more likely to have high Relateds counts, and low view counts have low Relateds counts, typically, though some low view articles are promoted via higher Relateds spreads. All in all though, a balance is achieved. Promoting the visibility of an article for awhile may be just the boost it needs, and a unique coloring fill can alert the eye to which articles have been so adjusted, and their history can be checked on the Daily Sort worksheet to see if progress has been made or not. There is a macro, n, for inputting Relateds to an article ON THIS WORKSHEET -- the actual updating of the article with Relateds in wikiHow has to be done in the usual way, though the pre-formatting and pre-grouping that can be achieved either in column A on Relateds or (usually) column J of Article Views and Other helps quite a bit.

11

Copy cell range EX8:EZ8 and Paste it to FB8:FD8.

12

Enter to cell FB10 the formula, =IF(EW10<10,EW10,"")

13

Enter to cell FC10 the formula, =IF(EW10>10,EW10,"")

14

Enter to cell FD10 the formula, =IF(EW10=10,10,"")

15

Copy cell range FB10:FD10 and Paste it to FB11:FD151

Enter the Relateds Totals

1

Enter to cell EX153 the formula, =SUM(EX10:EX152) and Paste it to cells EY153:EZ153.

2

Format Cells for cell EX153 Fill yellow Border red boldest outline, font red bold. Do the same for cells EY153:EZ153 except Fill white and do not make the font red, but do make it black bold.

3

Copy cell range EX153:EZ153 and Paste it to FB153:FD153.

4

Copy cell FB153 and Paste it to cell FE153. Edit the formula in cell FE153 to be, =FD153+FC153+FB153. The total Relateds in cell FE153 should now agree to V_Sum and H_Sum.

Enter to cell FF153 the label, RW_Total (for Related WikiHow Total)

Select FE153:FF153 and Insert Name Create in Right Column, OK

Enter to cell FD156 the formula, =FB154+FD154

Enter to cell FB154 the formula, =FB153/RW_Total and format Percentage, 2 decimal places.

Copy cell FB154 to cell range FC154:FD154

Copy cell range EX8:FD8 and Paste it to cell range EX155:FD155

Enter to cell EX156 the label, AVAILABLE, and Format Cells font red bold, Fill Yellow, and copy cell EX15=6 and Paste Special Formats to EY156:EZ156

5

Surround cell range EX153:EZ156 with Format Cells Border red boldest outline.

6

Enter to EY160 the formula, =EY159/EY158, and format it Percentage, 2 decimal places.

7

Enter to FD157 the label, 10 or Under

The Macro n Section of Relateds

1

Enter to A166 the string, [xxxxxxxxxxxxxxxxxxx|

There are 19 x's in the above string. Easiest just to copy it from here.

2

Enter to D166 the formula, =IF(ISERR(FIND("[",A166)),"",FIND("[",A166))

3

Enter to E166 the formula, =IF(ISERR(FIND("|",A166)),"",FIND("|",A166))

4

Enter to B166 the formula, =IF(ISERR(MID(A166,D166+2,(E166-D166)-2)),"",MID(A166,D166+2,(E166-D166)-2))

5

Edit Copy cell range A166: E166 and Edit Paste it to cell range A167:E683 (or down quite far because it's always getting deleted from)

6

You will follow the instructions in cells A1 and B1, HOW IT WORKS, which basically are designed to keep track of the Related wikiHows actually posted or edited into a brand new article (or an old one):

Copy ready-made ready-to-be-Relateds from sheet 'Article Views and Other' column J, or worksheet 'Relateds' cell range A10:A151 and paste them to cell A167 down.

You will also use them to update other actual wikiHow articles in their Related wikiHow sections, by editing those sections, typically because you want to "freshen up" their image for the user in one way, ie you have written new articles since you wrote the old ones, and the new articles are Related! In such a case, where the old article is down the list a ways, you will probably want to hide the rows in between the old article and row 9, so that you can reach it faster once the macro and you find the right vertical article in Row 1 to update.

7

VERTICAL UPDATING: You will probably also want to take the new article's prepared ready-to-be-a-Related column A version and spread it downwards IN IT'S COLUMN at the far left of row 1 in column J, and update / populate old wikiHows with the new article as their new Related. The Macro n does not do this for you but because it's all in a convenient column, and the links are live, it's a simple matter to click on a link, edit in the ready-to-be a-Related new article's column A format copied from cell A10, and then put a 1 in column J to the right of the old article whose row you're updating below and whose link is now conveniently a new distinct color.

8

WARNING -- From time to time, the macro might not fill A166:E166 with x's and formulas so you have to copy them and paste them from below. Also, be warned that about the first thing that Macro n does is to delete the first entry, so be sure to place your entries in to A167 and not A166. If the macro does not work right on the first try, look at the cell range A166:E166 and see what's in it -- if it's an article, it's about to get deleted! If it's empty, it needs the x's and formulas -- then try the macro again and it should work fine. Sometimes, perhaps you forgot you have to press command+v to paste into the macro's InputBox the article name the macro just copied at cell B166. You might think you're supposed to type in the name of the article, but that would have been way too time consuming!

9

Select Row166 and Insert Define Name TopRow to =Relateds! $166:$166

10

Select Row1 and Insert Define Name Searcher to =Relateds! $1:$1

Part 4 of 5: ws: CAT ANALYSIS

The Top Analysis Section

1

Enter to cell F1 and F2 the formula, =now(), and Format Cells Number Custom mm/dd/yy hh:mm a/p

2

Enter to cell E1 the date and time that the demarcation article between the two ids was written, 10/17/2014 12:00:00 AM

3

Enter to cell E2 the date and time the first article was written, 3/5/2013 7:44:00 AM

4

Enter to D1 the formula, =F1-E1

5

Enter to D2 the formula, =F2-E2, and Format Cells D1:D2 Number Custom 0" days"

6

Select cell K47 and Insert Name Define it as DemarcationCell

7

Hide column L

8

Enter to cell M1 the label, Chris G Article Views

9

Enter to cell M2 the label, Xhohx

10

Enter to cell K1 the formula, =SUM(K4:DemarcationCell)

11

Select cell K150 and Insert Name Define it as Grand_Total, then also as ThisTotal, OK

12

Enter to cell K2 the formula, =Grand_Total-K1

13

Enter to cell K3 the formula, =K1+K2, and enter to cell M3 the label, Both IDs

14

Select cell K4 and Insert Name Define it as ___Area4PasterCell

15

Enter to cell G1 the formula, =K1/D1, and Format Cell Number Custom, 0.00" Avg/Day for Chris G. "

16

Enter to cell G2 the formula, =K2/D2, and Format Cell Number Custom, 0.00" Avg/Day for Xhohx"

Enter Headers for CAT ANALYSIS

1

Enter the following headers for worksheet CAT ANALYSIS:

Enter to cell B1, CHART

Enter to cell A3, Rank, and copy and paste it to cell C3

Enter to cell B3, Groups

Enter to cell D3, Category Seen

Enter to cell E3, Category 2

Enter to cell F3, Seen and 2

Enter to cell G3, Suggested Cat

Set column width for column N to .18 inches

Enter to cell O3, Microsoft Excel-Mathematics

Enter to cell P3, MS XL Imagery-Mathematics

Enter to cell Q3, Probability and Statistics-Mathematics

Enter to cell R3, Spreadsheets-Mathematics

Enter to cell S3, Mathematics-Calculating Volume and Area

Enter to cell T3, Spreadsheets-Calculating Volume and Area

Enter to cell U3, Mathematics-Graphics

Enter to cell V3, MS XL Imagery-Graphics

Enter to cell W3, Graphics-Geometry

Enter to cell X3, Mathematics-Geometry

Enter to cell Y3, Spreadsheets-Geometry

Enter to cell Z3, Graphics-ECONOMICS

Enter to cell AA3, Mathematics-ECONOMICS

Enter to cell AB3, Investments and Trading-Finance and Business

Enter to cell AC3, Mathematics-Finance and Business

Enter to cell AD3, Mathematics-Algebra

Enter to cell AE3, Programming-Microsoft Excel

Enter to cell AF3, MS XL Imagery-IMOVIE

Enter to cell AG3, Neurological Disorders-Mental Disorders

Enter to cell AH3, Positive and Reflective Lifestyles-Philosophy

Enter to cell AI3, Mathematics-Multiplication

Enter to cell AJ3, Mathematics-Calculus

Enter to cell AK3, Painting-Arts and Entertainment

Enter to cell AL3, Mathematics-Education and Communications

Enter to cell AM3, Mathematics-Coordinate Geometry

Enter to cell AN3, Microsoft Excel-wikiHow

Enter to cell AO3, Meal Planning-Food and Grocery Budgeting

Enter to cell AP3, Spreadsheets-MS XL Imagery

Enter to cell AQ3, Mathematics-TRIGONOMETRY

Size the columns to automatically fit those headers.

2

Select Row 3 and Insert Name Define it as Categories. That way, you needn't insert a new category type within the bounds of the variable definition to have it be included.

3

Get the Rank, Seen and Two data from worksheet 'Daily Sort' you got off the image I included in this article that could be zoomed in on, which was inclusive in two parts of all 142 articles, and Copy just the data part and Paste it to cell range C6:E147, then use the concatentation formula in cell F6, =D6&"-"&E6, and Copy it and Paste it to cell range F7:F147.

4

Enter to cell B6 the formula, =K6, and Copy it and Paste it to cell range B7:B147

5

Copy cell range C6:C147 to A6:A147 -- the reason for a second Rank listing is to use Rank as the X values in a Chart with the Y values being the Article Views. But, at the same time, it's nice to have the section copyable between the CAT ANALYSIS ws and the Daily Sort ws.

6

Select column F and Insert Name Define it as Seen___2

7

The Suggested Cat(egory) column is for holding temporarily new categories of type Seen or Two (2), because wikiHow has its own inscrutable system of deciding which category is of which type when you edit them into an article.

8

Select column K and Insert Name Define it as Views

9

Enter to cell O5 the formula, =IF(Seen___2=Categories,Views,"") and Edit Copy it and Edit Paste it to cell range O5:AQ148 -- that is, if the article's concatenated categories equal the concatenated categories across the top, pick up the views of that article in the cell, else return a blank.

10

Enter to cell O150 the formula, =SUM(O3:O148)

11

Enter to cell O151 the formula, =O150/ThisTotal, and Format Cells Number Percentage, 2 decimal places.

12

Copy cell range O150:O151 and Paste it to cell range P150:AQ151

13

Enter to cell R150 the formula, =SUM(O150:AQ150), but be careful when inputting a new concatenation above to insert the column first. You can sort the columns (left to right) if and when you put in the type 2 category decimal numbers in Row 2 above the concatenations. How you choose to sort your data is entirely up to you.

14

Select Row 150 and Insert Name Define it as Totals

Totals by Category Seen

Comment faire pour créer un classeur d'état global en XL et VBA pour vos articles de wikiHow

1

Use this image's template to enter the information needed to cell range A292:E328. There is nothing in column B. "Seen" is in cell D292. The second part starts on row 307. Thus, 0.01 is in cell C307 and Mathematics is in cell E307. Some of type TWO categories are copyable from the SEEN categories.

2

Enter to cell K293 the formula, =SUM(N293:AQ293)

3

Enter to cell L293 the formula, =K293/Grand_Total, and Format Cells Number Percentage, 2 decimal Places.

4

Copy cell range K293:L293 and Paste it to cell range K294:M305

5

Enter to cell K305 the formula, =SUM(K293:K304), and surround it with Format Cells Border black boldest outline

6

Copy cell range O3:AQ3 and Paste it to O292:AQ292, then again Paste it to O306:AQ306

7

From each concatenation in O292:AQ292, delete the hyphen and second part, the type TWO category.

8

From each concatenation in O306:AQ306, delete to the left of the hyphen and first part, the type SEEN category and the hyphen.

9

Using the horizontal scroll bar and a page freeze at cell M4, enter the formula, =Totals, per category type. So, for example, enter =Totals into cell O302 for Microsoft Excel and into cell O307 for Mathematics, and enter =Totals into cell P294 for MSXL Imagery and into P307 for Mathematics. Continue this way across to the right until complete!

10

Copy cell range K293:M293 and Paste it to K307:M329. Edit the formula in K309 to be, =SUM(K307:K328) and surround it in Format Cells Border black outline boldest.

Part 5 of 5: The Macros of OVERALL STATUS

1

As before, copy these macros from here into MS Word or a Text Editor application that has a Replace All function and do REPLACE ALL of "#** " with nothing (disregarding the quote marks). Create a dummy macro, assuming you have enabled Developer in Excel Preferences on the Ribbon or otherwise, by recording a tiny macro and then copying this macro code over it. You may find it useful to split it up into 3 modules, or perhaps not; that is what is indicated in the top section of 'Article Views and Other' by Mod n, etc. You create a new module using the Visual Basic Editor. Each Sub to End Sub procedure must be separated by a blank line and not have any crapola between subprocedures. Comments, effected with preceding apostrophes, may go in at the beginning, middle or end of cod, or after lines, after a space. To continue a line of code, use space underline, then probably indent the next line -- watch for where this has already been done for you, however, please.

2

The way the macros work is as follows:

Sub Macro01_TransferTodayToYesterday_j is DAILY run by pressing command+option(alt)+j first BEFORE getting the wikiHow data. It transfers F16:F161 to B16:B161 because the new data from wikiHow will presumably have larger Views to report per article and we want to subtract Yesterday's from Today's that we're about to bring in, so first we have to transfer what was Today to Yesterday. The result of the subtraction in column A, since the totals are Views to date, will be just Today's results.

Next, use the links in C3 and C2 to DAILY access the wikiHow data. You transfer in the wikiHow data as explained above, by selecting in the Chris Garthwaite data from THIS ARTICLE downwards the article title and views, and copy it and paste it into C17, then do the same for Xhohx's 100 articles, but below the data you just pasted in for Chris (the later ID).

Next, DAILY post from the wikiHow pages the summary of the total Article Views to cells A4 and A5, and possibly subsequently written line item article views as a negative sum to A3. Reconcile the totals.

Next, DAILY run Macro02_TransferTodayToDailySort_t by pressing command+option(alt)+t only AFTER the wikiHow data has been transferred in. Running the macro repeatedly will cause duplication in the columns of 'Daily Sort', which can be cleared and the dates pasted back in and edited to be correct, and the Nexter defined variable name reset to be the correct following day in row 1 to the right of today's correct update should such an error occur.

Next, DAILY run Macro03_TotalViewsAndGoalSeekingPastoid_b. It's probably better to run b before p, because p saves all the work done so far. Otherwise, run g or u after b. Macro03_TotalViewsAndGoalSeekingPastoid_b updates the Monthly Projections section and has to do with the goal seeking done in that region of 'Article Views and Other' as well. It is run using command+option(alt)+b.

DAILY run Macro04_Tfr_Views_Thruout_p transfers the new wikiHow article names and views and article numbers to all 4 worksheets, then saves all the work done so far. It is run by pressing command+option(alt)+p.

Sub Macro05_InsertNewArticle_y is used to populate a new article WHENEVER WRITTEN throughout the entire workbook. The new article name is copied in link form from the top of the wikiHow article just written and published and pasted to cell C16. Then the macro is run by pressing command+option(alt)+y.

Macro06_WeeklyUpdate_s is run WEEKLY when cell range O4:O10 on 'Article Views and Other' becomes full. The macro moves _AvgWklyReturns, _AvgWklyCashFlow and _AvgReturnRate up a cell and also handles_MNO_Update and _QRS_Update, all to the region Q46:U73, except that it also pushes it all down a row first.

Macro07_UpdateRelated_n updates 'Relateds' worksheet with your latest Related wikiHows info. See above VERTICAL UPDATING in The Macro n Section of Relateds for vertical updating however, which is done manually. Macro n is run by pressing command+option(alt)+n. Postings can be manually undone, or, if you still have the group of ready-to-be-Relateds over on 'Article Views and Other', you can use those to clear instead of add, if you like.

Macro08_FindRelated acts as part of Macro07 and is called by it.

Sub Macro09_PinkSave_u colors a cell pink and updates THIS AUTHOR'S pathnames/folders and files and saves OVERALL STATUS.xlsm four times before landing on a File Save cell. You will need to RECORD a new macro to save your own workbook adequately; the color-changing subprocedure tells you that things are happening. Run via command+option(alt)+u

Macro10_YellowSave_g colors the pink cell yellow again and updates THIS AUTHOR'S pathnames/folders and files and saves OVERALL STATUS.xlsm four times before landing on a File Save cell. You will need to RECORD a new macro to save your own workbook adequately; the color-changing subprocedure tells you that things are happening. Run via command+option(alt)+g

MacroAB_Get_wH_data_e needs work -- see the Macro comments.

MacroV_FindArticle_v finds an article by name or partial name in 'Article Views and Other' and is run by command+option(alt)_v. It's useful sometimes when an article seems to have somehow just disappeared from this author's memory as to location.

CommandButton1_Click is a problem in search of a solution -- see the macro comments regarding this experiment.

3

Here are the macros, including strikethrough Macro e that still needs work. This author has written thousands of lines of code but does not really hold himself out to be a programmer per se. Feel free to fix or just complain of whatever bugs you find and report them back in, if you would be so kind, please.

  • Sub Macro01_TransferTodayToYesterday_j()

    ' Macro01 Macro

    ' Move today to yesterday

    ' Keyboard Shortcut: Option+Cmd+j

    Application.Goto Reference:="_Today"

    Selection.Copy

    Application.Goto Reference:="_Yesterday"

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Range("Today").Select

    End Sub

    Sub Macro02_TransferTodayToDailySort_t()

    ' Macro02 Macro

    ' Transfer TODAY to Daily Sort Sheet

    ' Keyboard Shortcut: Option+Cmd+t

    Sheets("Article Views and Other").Select

    On Error GoTo 10

    ActiveSheet.DrawingObjects.Select

    Selection.Delete

    10 Application.Goto Reference:="TODAY"

    Application.Goto Reference:="NOWLY"

    Selection.Copy

    Application.Goto Reference:="PASTELY"

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    Application.Goto Reference:="TODAY"

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "=PASTELY"

    Range("A12").Select

    Selection.Copy

    Application.Goto Reference:="Nexter"

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    Application.Goto Reference:="WHOLE"

    Selection.Copy

    Application.Goto Reference:="Nexter"

    ActiveSheet.Paste

    Application.Goto Reference:="WHOLE"

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Daily Sort").Select

    Application.Goto Reference:="Nexter"

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    Application.Goto Reference:="WHOLE"

    Selection.Copy

    Application.Goto Reference:="Nexter"

    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    Range("Nexter").Select

    ActiveWorkbook.Names.Add Name:="Nexter", RefersToR1C1:=ActiveCell.Offset(0, 1)

    End Sub

    Sub Macro03_TotalViewsAndGoalSeekingPastoid_b()

    ' Paste Views Val

    ' Macro03_TotalViewsAndGoalSeekingPastoid_b Macro

    ' Pastoid - Paste value of pastoid into empty day of column O

    ' Keyboard Shortcut: Option+Cmd+b

    Dim Pasting As String

    Pasting = Range("Pastoid").Value

    Application.Goto Reference:="Pastoid"

    Range("O4").Select

    For X = 1 To 7

    If ActiveCell() = 0 Then GoTo 50 Else GoTo 60

    50 ActiveCell.Offset(1, 0).Select

    If ActiveCell() <> 0 Then GoTo 90

    60 If ActiveCell() = Pasting Then GoTo 100 Else GoTo 80

    80 Next X

    90 If ActiveCell() = Pasting Then GoTo 100 Else GoTo 92

    92 ActiveCell.Offset(-1, 0).Select

    95 Selection.Value = Pasting

    100 Application.Goto Reference:="Goalseeking_to_Zero_per_Red__below"

    110 Range("P15").GoalSeek Goal:=0, ChangingCell:=Range("P16")

    End Sub

    Sub Macro04_Tfr_Views_Thruout_p()

    ' Macro04_Tfr_Views_Thruout_p Macro

    ' Transfer Views Daily thruout workbook

    ' Keyboard Shortcut: Option+Cmd+p

    Application.Goto Reference:="__1"

    Selection.Copy

    Application.Goto Reference:="__2"

    ActiveSheet.Paste

    Application.Goto Reference:="__3"

    ActiveSheet.Paste

    ' Application.Goto Reference:="___Area4PasterCell"

    Application.Goto Reference:="__4"

    ActiveSheet.Paste

    Application.Goto Reference:="__5"

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=True

    Macro04a_Cat_Analysis_Fix

    Application.Goto Reference:="_TopLeft"

    Macro09_PinkSave_u

    ActiveWorkbook.Save

    Application.Goto Reference:="FILE_SAVE____S"

    End Sub

    Sub Macro04a_Cat_Analysis_Fix()

    ' Macro04a_Cat_Analysis_Fix Macro

    Sheets("CAT ANALYSIS").Select

    Range("B12").Select

    Selection.Copy

    Range("B6:B11").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Application.Goto Reference:="__4"

    End Sub

    Sub Macro05_InsertNewArticle_y()

    ' Macro05_InsertNewArticle_y Macro

    ' Insert a new article into all worksheets of the workbook OVERALL STATUS.

    ' Keyboard Shortcut: Option+Cmd+y

    Sheets("Article Views and Other").Select

    Rows("18:18").Select

    Selection.Insert Shift:=xlDown

    Rows("17:17").Select

    Selection.Copy

    Rows("18:18").Select

    ActiveSheet.Paste

    Range("C16").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("C17").Select

    ActiveSheet.Paste

    Range("B17").Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "0"

    Range("F17").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("H17").Select

    ActiveCell.FormulaR1C1 = "=R[1]C+1"

    Range("H17").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    Range("J15").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("J17").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.Copy

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    Range("K17").Select

    ActiveCell.FormulaR1C1 = "=NOW()"

    Range("K17").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    ActiveWindow.ScrollColumn = 1

    Range("C16").Select

    Application.CutCopyMode = False

    Selection.Cut

    Sheets("Daily Sort").Select

    Range("A4").Select

    ActiveSheet.Paste

    Rows("7:7").Select

    Selection.Insert Shift:=xlDown

    Range("A4").Select

    Selection.Copy

    Rows("6:6").Select

    Application.CutCopyMode = False

    Selection.Copy

    Rows("7:7").Select

    ActiveSheet.Paste

    Range("A4").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("A6").Select

    ActiveSheet.Paste

    Range("D6").Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "0"

    Range("F6").Select

    ActiveCell.FormulaR1C1 = "=R[1]C+1"

    Range("F6").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    Range("BK6:CQ6").Select

    Application.CutCopyMode = False

    Selection.Clear

    Range("BQ6").Select

    ActiveCell.FormulaR1C1 = "0"

    Range("A4").Select

    Selection.Cut

    Sheets("Daily Sort").Select

    Application.CutCopyMode = False

    Range("A6:F6").Select

    Selection.Copy

    Sheets("Relateds").Select

    Range("B8").Select

    ActiveSheet.Paste

    Rows("11:11").Select

    Application.CutCopyMode = False

    Selection.Insert Shift:=xlDown

    Rows("10:10").Select

    Selection.Copy

    Rows("11:11").Select

    ActiveSheet.Paste

    Range("B8:G8").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("B10").Select

    ActiveSheet.Paste

    Range("A9").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("A10").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.Copy

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    Range("I10").Select

    Range("I10:EN10").Select

    Application.CutCopyMode = False

    Selection.ClearContents

    ActiveWindow.ScrollColumn = 9

    Columns("K:K").Select

    Selection.Insert Shift:=xlToRight

    Columns("J:J").Select

    Selection.Copy

    Columns("K:K").Select

    ActiveSheet.Paste

    Range("B8:G8").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("J1").Select

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=True

    Range("J9").Select

    ActiveWindow.ScrollRow = 136

    Range("J9:J145").Select

    Application.CutCopyMode = False

    Selection.ClearContents

    ActiveWindow.ScrollRow = 7

    Range("B8:G8").Select

    Selection.Cut

    Sheets("CAT ANALYSIS").Select

    Range("___Area4PasterCell").Select

    ActiveSheet.Paste

    Rows("7:7").Select

    Selection.Insert Shift:=xlDown

    Rows("6:6").Select

    Selection.Copy

    Rows("7:7").Select

    ActiveSheet.Paste

    Range("H5:M5").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("H6").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Range("H5:M5").Select

    Selection.ClearContents

    ActiveWorkbook.Names.Add Name:="___Area4PasterCell", RefersToR1C1:= _

    "='CAT ANALYSIS'!R5C8"

    End Sub

    Sub Macro06_WeeklyUpdate_s()

    'Macro06_WeeklyUpdate_sMacro

    ' Keyboard Shortcut: Option+Cmd+s

    Range("O41:AA41").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Application.Goto Reference:="_MNO_Update"

    Selection.Copy

    Application.Goto Reference:="_QRS_Update"

    ActiveSheet.Paste

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    ActiveCell.Offset(-1, 0).Select

    ActiveWorkbook.Names.Add Name:="_QRS_Update", RefersToR1C1:=Selection

    Application.Goto Reference:="_AvgWklyReturns"

    Range("_AvgWklyReturns").Select

    Selection.Copy

    Selection.Offset(-1, 0).Activate

    ActiveSheet.PasteSpecial Format:=1, Link:=1, DisplayAsIcon:=False, _

    IconFileName:=False

    Application.CutCopyMode = False

    ActiveWorkbook.Names.Add Name:="_AvgWklyReturns", RefersToR1C1:=Selection

    Application.Goto Reference:="_AvgReturnRate"

    Range("_AvgReturnRate").Select

    Selection.Copy

    Selection.Offset(-1, 0).Activate

    ActiveSheet.PasteSpecial Format:=1, Link:=1, DisplayAsIcon:=False, _

    IconFileName:=False

    Application.CutCopyMode = False

    ActiveWorkbook.Names.Add Name:="_AvgReturnRate", RefersToR1C1:=Selection

    Application.Goto Reference:="_AvgWklyCashFlow"

    Range("_AvgWklyCashFlow").Select

    Selection.Copy

    Selection.Offset(-1, 0).Activate

    ActiveSheet.PasteSpecial Format:=1, Link:=1, DisplayAsIcon:=False, _

    IconFileName:=False

    ActiveWorkbook.Names.Add Name:="_AvgWklyCashFlow", RefersToR1C1:=Selection

    Application.CutCopyMode = False

    ActiveSheet.Range("_AvgWklyCashFlow").End(xlDown).Offset(1, 0).Select

    Selection = ActiveCell: ActiveCell.Offset(0, 1).Select

    Selection.Interior.Color = RGB(255, 250, 250)

    Application.Goto Reference:="_Clear_Total_Views_to_Date"

    Application.CutCopyMode = False

    Selection.ClearContents

    Application.Goto Reference:="_Today_"

    ActiveCell.FormulaR1C1 = "=NOW()"

    Selection.Copy

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=False

    Range("N11").Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "=DAY(RC[-1])"

    End Sub

    Sub Macro07_UpdateRelated_n()

    ' Macro07_UpdateRelated_n Macro

    ' Keyboard Shortcut: Option+Cmd+n

    Windows("OVERALL STATUS.xlsm").Activate

    Sheets("Relateds").Select

    Application.Goto Reference:="TopRow"

    Application.CutCopyMode = False

    Selection.Delete Shift:=xlUp

    ActiveWorkbook.Names.Add Name:="TopRow", RefersToR1C1:="=Relateds!R166"

    Range("B166").Select

    Selection.Copy

    Application.Goto Reference:="Searcher"

    ' Searcher is a Defined Name Variable comprised of the Article Names

    ' and Views pasted AS TRANSPOSED from rows TO COLUMNS in row 1.

    Macro08_FindRelated

    End Sub

    Sub Macro08_FindRelated()

    ' Finds a Related wikiHow String and goes to Article cell,

    ' where User then Arrow keys down and inputs a 1,

    ' indicating that that Columnar Article is a Related for the Row Article.

    ' There are both row totals and columnar totals to keep track of Total Relateds/Article

    ' and how many Articles the Columnar Article is a Related for.

    ' Uses the Named Variable Range, "Searcher", on the worksheet "Relateds" as a Range Object

    Dim oSht As Worksheet

    Dim StrFinder As String

    Dim aCell As Range

    Dim rng As Range

    Set oSht = Sheets("Relateds")

    Windows("OVERALL STATUS.xlsm").Activate

    Sheets("Relateds").Select

    Set rng = Worksheets("Relateds").Range("Searcher")

    Application.ScreenUpdating = True

    Do Until StrFinder <> ""

    StrFinder = Application.InputBox _

    (Prompt:="Article Name or string to search for: ", _

    Title:="Article Search", _

    Type:=2)

    Set aCell = rng.Find(What:=StrFinder, LookIn:=xlValues, _

    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

    MatchCase:=False)

    aCell.Select

    Application.ScreenUpdating = False

    Exit Sub

    Loop

    End Sub

    Sub Macro09_PinkSave_u()

    ' Macro09_PinkSave Macro

    ' Color 2 cells hot pink

    ' Keyboard Shortcut: Option+Cmd+u

    Application.ScreenUpdating = True

    Dim Contents As String

    Contents = Range("A1").Value

    Application.Goto Reference:="_TopLeft"

    Range("A2").Interior.Color = RGB(255, 20, 147)

    ActiveCell.Offset(1, 2).Select

    Selection.Interior.Color = RGB(255, 20, 147)

    Range("B3").Select

    Range("B3").Value = Contents

    Application.Goto Reference:="FILE_SAVE____S"

    ActiveWorkbook.Save

    ActiveWorkbook.SaveAs Nom du fichier: = _

    "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ: Hubs and SITES:wikiHow's:OVERALL STATUS.xlsm" _

    , FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False

    Range("C10").Select

    ActiveWorkbook.SaveAs Nom du fichier: = _

    "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ: Hubs and SITES:OVERALL STATUS.xlsm" _

    , FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False

    Range("C10").Select

    ActiveWorkbook.SaveAs Nom du fichier: = _

    "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ:Macros:OVERALL STATUS.xlsm" _

    , FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False

    Range("C10").Select

    ActiveWorkbook.SaveAs Nom du fichier: = _

    "Macintosh HD:Users:chrisgarthwaite:Desktop:OVERALL STATUS.xlsm", FileFormat _

    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    End Sub

    Sub Macro10_YellowSave_g()

    ' Macro10_YellowSave_gMacro

    ' Color 2 cells yellow

    ' Keyboard Shortcut: Option+Cmd+g

    Dim Contents2 As String

    Contents2 = Range("A3").Value

    Application.Goto Reference:="_TopLeft"

    Range("A2").Interior.Color = RGB(255, 255, 0)

    Range("B3").Select

    Range("B3").Value = Contents2

    ActiveCell.Offset(-1, 1).Select

    Selection.Interior.Color = RGB(255, 255, 0)

    Application.Goto Reference:="FILE_SAVE____S"

    ActiveWorkbook.Save

    ActiveWorkbook.SaveAs Nom du fichier: = _

    "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ: Hubs and SITES:wikiHow's:OVERALL STATUS.xlsm" _

    , FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False

    Range("C10").Select

    ActiveWorkbook.SaveAs Nom du fichier: = _

    "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ: Hubs and SITES:OVERALL STATUS.xlsm" _

    , FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False

    Range("C10").Select

    ActiveWorkbook.SaveAs Nom du fichier: = _

    "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ:Macros:OVERALL STATUS.xlsm" _

    , FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False

    Range("C10").Select

    ActiveWorkbook.SaveAs Nom du fichier: = _

    "Macintosh HD:Users:chrisgarthwaite:Desktop:OVERALL STATUS.xlsm", FileFormat _

    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    End Sub

    Sub MacroAB_Get_wH_data_e()

    ' MacroAB_Get_wH_data_e Macro

    ' Get wikiHow data -- assumes wH data saved to WORD HTML file 2015.htm first

    'but this needs to be trashed daily first and so takes too long w/o Apple script to do so.

    ' Keyboard Shortcut: Option+Cmd+e

    Workbooks.Open Filename:= _

    "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ: Hubs and SITES:wikiHow's: DailyData:2015.htm"

    ActiveWorkbook.Names.Add Name:="TopLeft", RefersToR1C1:=ActiveCell

    Selection.SpecialCells(xlCellTypeLastCell).Select

    ActiveCell.Offset(-1, 0).Select

    ActiveWorkbook.Names.Add Name:="BtmRight", RefersToR1C1:=ActiveCell

    Application.Goto Reference:="TopLeft:BtmRight"

    Selection.Copy

    Windows("OVERALL STATUS.xlsm").Activate

    Range("C17").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Application.Goto Reference:="_TopLeft"

    End Sub

    Sub MacroV_FindArticle_v()

    ' Finds an Article String, returns cell address and goes to Article cell

    ' MacroV_FindArticle

    Macro v

    Dim oSht As Worksheet

    Dim StrFinder As String

    Dim lastRow As Range

    Dim aCell As Range

    Set oSht = Sheets("Article Views and Other")

    Set lastRow = ActiveWorkbook.Sheets("Article Views and Other").Range("C17:C217")

    Application.ScreenUpdating = True

    Do Until StrFinder <> ""

    StrFinder = Application.InputBox _

    (Prompt:="Article Name or string to search for: ", _

    Title:="Article Search", _

    Type:=2)

    Set aCell = lastRow.Find(What:=StrFinder, LookIn:=xlValues, _

    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

    MatchCase:=False)

    If Not aCell Is Nothing Then

    MsgBox "Value Found in Cell " & aCell.Address

    End If

    aCell.Select

    Application.ScreenUpdating = False

    Exit Sub

    Loop

    End Sub

    Private Sub CommandButton1_Click ()

    'This is an experiment in creating a button but it's a PROBLEM

    'because it is an object that gets deleted by Macro t but prevents

    'Macro t from deleting the Rising Star objects as well!

    'Furthermore, you can only really tell it's worked the first time.

    'In general, DO NOT put buttons on Article Names and Other therefore

    'and button numbers are hard to handle when moving between sheets.

    Application.Goto Reference:="_Today"

    Selection.Copy

    Application.Goto Reference:="_Yesterday"

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Range("Today").Select

    End Sub.

Conseils

This is a good tool for strategizing but it does not take the place of simply writing more high quality wikiHow articles or doing good editing and the other important and useful services on the Community Dashboard. Those other activities have yet to be tracked exactly by this system, but someday perhaps they will be.

[Rédacteur: Admin]
Je vous imagine comme

Articles recommandés

Cliquez Top Ranking