Questione : Macro che genererà 52 gamme chiamate al contrario identiche, ciascuna con un numero differente nella metà.

Ho una gamma chiamata Tails1 con questa definizione: settimana 24.xls] TailAvailability'!$6 del
Tails1='[ACA: bisogno di $R$204

I una macro che genererà i nomi per la 51 settimana rimanenti dell'anno, ciascuno con un numero differente di settimana, per esempio: settimana 2.xls] TailAvailability'!$C$6 del
Tails2='[ACA: settimana 17.xls] TailAvailability'!$6 di $R$204
Tails17='[ACA: $R$204

se necessario posso cambiare titolo le prime 9 lime con i numeri di due cifre, ma piuttosto li manterrei nominati come è. (Anche se prossimo a pensare esso, esso sarebbe piacevole da conoscerlo il senso di due cifre pure, nel caso qualcun'altro decidesse che vogliono le lime interamente chiamate con due cifre.)

Thanks,
John


 class= del

Risposta : Macro che genererà 52 gamme chiamate al contrario identiche, ciascuna con un numero differente nella metà.

APPROVARE, per regolare la gamma chiamata ad un libro di esercizi esterno, provare questo codice:

Essere sicuro cambiare il filepath a dove i vostri “ACA libri di esercizi di settimana x„ sono situati in questa linea:

filePath = “C:\„
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

CreateNamedRangesExtWbk secondario ()
'Generare Range chiamata in libro di esercizi esterno
    
    Oscurare il wb come libro di esercizi
    Oscurare il filePath come stringa
    Oscurare il currentWbk come stringa
    
    filePath = “C:\„
    
    Application.ScreenUpdating = falso
    currentWbk = ActiveWorkbook.Name
    
    Per i = 1 - 52
        Regolar wb = Workbooks.Open (filePath & “settimana di ACA„ & i)
        Libri di esercizi (currentWbk). Nome di Names.Add: = " munisce " & i, RefersTo: =wb. Manuali (“TailAvailability„). Gamma (“6: $R$204„)
        wb. Falso vicino
        Regolar wb = niente
    Dopo

    Application.ScreenUpdating = allineano
    
    MsgBox “Ranges chiamata è stato regolato!„

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us