Questione : Aggiungere un manuale con il nome del valore delle cellule

In cellule A3 con A10 voglio introdurre un nome, se ci è una linguetta con quel nome non fa niente conclusione della procedura, se non genera uno strato di lavoro con quello name. class= del

Risposta : Aggiungere un manuale con il nome del valore delle cellule

Provare questo, esso collegherà con A3: A10 e generano tutti gli strati che già non esistono.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

AddWorksheets secondario ()

    Oscurare la i come numero intero

    Per i = 3 - 10
        Se non WorksheetExists (strati (“Sheet1„). Cellule (i, 1).Value) allora
            Sheets.Add
            ActiveSheet.Name = strati (“Sheet1„). Cellule (i, 1).Value
        Altrimenti
        Concluder se
    Dopo

Sommergibile dell'estremità

Funzione pubblica WorksheetExists (ByVal WorksheetName come stringa) come booleano

Sul riassunto di errore dopo
WorksheetExists = (strati (WorksheetName). "" <> Nome)
Sull'errore 0 di avanzamento

Funzione di conclusione
 
Book2.xls (19 Kb) (tipo di lima particolari) 
Esempio
 
Altre soluzioni  
 
programming4us programming4us