Vraag : Voeg een aantekenvel met naam van celwaarde toe

In cellen A3 door A10 die ik heb willen om een naam ingaan, als er is een lusje met die naam doet niets eind van routine, als een het werkblad met dat name. niet creëren

Antwoord : Voeg een aantekenvel met naam van celwaarde toe

Probeer dit, zal het door A3 van een lus voorzien: A10 en cre�ër alle bladen die niet reeds bestaan.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Sub AddWorksheets ()

    Schemerige I als Geheel

    Voor I = 3 tot 10
        Als niet WorksheetExists (Bladen („Sheet1“). Cellen (I, 1). Waarde) toen
            Sheets.Add
            ActiveSheet.Name = Bladen („Sheet1“). Cellen (I, 1). Waarde
        Anders
        Eind als
    Daarna

Sub van het eind

Overheidsfunctie WorksheetExists (ByVal WorksheetName als Koord) zoals Van Boole

Op Fout hervat daarna
WorksheetExists = (Bladen (WorksheetName). Naam <> "")
Op Fout GoTo 0

De Functie van het eind
 
Book2.xls (19 KB) (de Details van het Type van Dossier) 
Voorbeeld
 
Andere oplossingen  
 
programming4us programming4us