|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
11-10-2012, 14.00.10 | #1 |
Newbie
Registrato: 30-01-2012
Messaggi: 16
|
RINOMINARE FOGLI EXCEL (OFFICE 2010)
Vorrei rinominare un gruppo di fogli (non tutti) di un file excel prendendo il testo contenuto in una cella (es. D8) posizionata in ogni foglio. ho scritto il seguente codice ma non funziona. Sub m() Dim i As Integer Dim Sh Set Sh = Sheets For i = 10 To 12 Step 0 If Range("D8").Value <> "" Then Sh(i).Name = Range("D8").Value.Text End If Next End Sub Grazie |
11-10-2012, 15.12.21 | #2 |
Gold Member
Registrato: 20-05-2004
Loc.: Perugia
Messaggi: 4.188
|
Rif: RINOMINARE FOGLI EXCEL (OFFICE 2010)
Sub Rinomina()
Sheets("Foglio1").Name = Sheets("Foglio1").Range("D8") End Sub
___________________________________
Ogni computer ha la sua storia. Dermatite Seborroica? www.dermatiteseborroica.info Ultima modifica di RunDLL : 11-10-2012 alle ore 15.17.55 |
11-10-2012, 15.22.45 | #3 |
Newbie
Registrato: 30-01-2012
Messaggi: 16
|
Rif: RINOMINARE FOGLI EXCEL (OFFICE 2010)
purtroppo i fogli si chiamano in modo diverso e non sono numerati.
|
11-10-2012, 17.02.14 | #4 |
Gold Member
Registrato: 20-05-2004
Loc.: Perugia
Messaggi: 4.188
|
Rif: RINOMINARE FOGLI EXCEL (OFFICE 2010)
Considerando che il nome del foglio prende il nome da ciò che è scritto nella cella D8 e quindi può cambiare anche frequentemente, tu verresti un'istuzione che dica:"A prescindere da come si chiama il foglio cambiamelo con quello che è scritto in D8", è giusto?
___________________________________
Ogni computer ha la sua storia. Dermatite Seborroica? www.dermatiteseborroica.info |
11-10-2012, 17.14.00 | #5 |
Newbie
Registrato: 30-01-2012
Messaggi: 16
|
Rif: RINOMINARE FOGLI EXCEL (OFFICE 2010)
SI ESATTO
SI PUO INSERIRE UN CHECK SE NELLA CELLA DEL FOGLIO MANCA UN NOME? |
11-10-2012, 17.29.57 | #6 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Rif: RINOMINARE FOGLI EXCEL (OFFICE 2010)
I fogli li puoi chiamare come vuoi, ma sono un'insieme, quindi devi ragionare sui numeri, non sulla descrizione letterale di ogni foglio.
Quando li rinomini, devi posizionarti sul foglio indice e verifcare il testo della cella D8 appartenente a quel foglio. Se la cella D8 di ogni foglio identificato dall'indice è vuota, passi al prossimo. Quello step 0 non ha senso: Ne ha per valori superiori a 1 o inferiori a 0. es: for i=1 to 10 step 2:next ->ok for i=1 to 10 step 1:next->inutile for i=10 to 1 step -2:next ->ok for i=10 to 1 step -1:next->ok |
11-10-2012, 17.40.09 | #7 |
Newbie
Registrato: 30-01-2012
Messaggi: 16
|
Rif: RINOMINARE FOGLI EXCEL (OFFICE 2010)
Ok grazie.
Come scrivo in VBA l'istruzione: "A prescindere da come si chiama il foglio cambiamelo con quello che è scritto in D8"? |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
[OFFICE 2010]aprire excel e avere schede fogli aperti NON su barra applicazioni | cippico | Office suite | 0 | 16-04-2011 02.05.48 |
MS Office 2010 in dirittura di arrivo | leofelix | Segnalazioni Web | 5 | 16-04-2009 09.53.22 |
Errore Sw in Excel office enterprise 2007 | dipiccio | Office suite | 0 | 28-03-2007 10.25.18 |
Microsoft Office Compatibility Pack per formati di file Word, Excel e PowerPoint 2007 | crazy.cat | Segnalazioni Web | 0 | 19-01-2007 17.09.52 |
SOT Office 2003 Professional (info please) | crazy.cat | Segnalazioni Web | 3 | 12-06-2004 19.03.32 |