Question : Ajouter une feuille de travail avec le nom de la valeur de cellules

En cellules A3 par A10 je veux écrire un nom, s'il y a une étiquette avec ce nom ne font rien fin de routine, sinon créent une fiche de travail avec celle name. class= de

Réponse : Ajouter une feuille de travail avec le nom de la valeur de cellules

Essayer ceci, il fera une boucle par A3 : A10 et créent toutes les feuilles qui n'existent pas déjà.
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :

AddWorksheets secondaire ()

    Obscurcir I comme nombre entier

    Pour I = 3 à 10
        Sinon WorksheetExists (feuilles (« Sheet1 »). Cellules (I, 1).Value) puis
            Sheets.Add
            ActiveSheet.Name = feuilles (« Sheet1 »). Cellules (I, 1).Value
        Autrement
        Finir si
    Après

Sous-marin d'extrémité

Fonction publique WorksheetExists (ByVal WorksheetName comme corde) comme booléen

Sur le résumé d'erreur après
WorksheetExists = (feuilles (WorksheetName). "" <> Nommé)
Sur l'erreur 0 GoTo

Fonction de fin
 
Book2.xls (19 KBs) (type de dossier détails) 
Exemple
 
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us