Telefonino.net network
 
| 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 » |

Torna indietro   WinTricks Forum > Software > Office suite

Notices

Rispondi
 
Strumenti discussione
Vecchio 11-10-2012, 14.00.10   #1
spider0
Newbie
 
Registrato: 30-01-2012
Messaggi: 16
spider0 promette bene
RINOMINARE FOGLI EXCEL (OFFICE 2010)

Ciao a tutti.

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
spider0 non  collegato   Rispondi citando
Vecchio 11-10-2012, 15.12.21   #2
RunDLL
Gold Member
 
L'avatar di RunDLL
 
Registrato: 20-05-2004
Loc.: Perugia
Messaggi: 4.188
RunDLL  nella strada per il successo
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
RunDLL non  collegato   Rispondi citando
Vecchio 11-10-2012, 15.22.45   #3
spider0
Newbie
 
Registrato: 30-01-2012
Messaggi: 16
spider0 promette bene
Rif: RINOMINARE FOGLI EXCEL (OFFICE 2010)

purtroppo i fogli si chiamano in modo diverso e non sono numerati.
spider0 non  collegato   Rispondi citando
Vecchio 11-10-2012, 17.02.14   #4
RunDLL
Gold Member
 
L'avatar di RunDLL
 
Registrato: 20-05-2004
Loc.: Perugia
Messaggi: 4.188
RunDLL  nella strada per il successo
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
RunDLL non  collegato   Rispondi citando
Vecchio 11-10-2012, 17.14.00   #5
spider0
Newbie
 
Registrato: 30-01-2012
Messaggi: 16
spider0 promette bene
Rif: RINOMINARE FOGLI EXCEL (OFFICE 2010)

SI ESATTO

SI PUO INSERIRE UN CHECK SE NELLA CELLA DEL FOGLIO MANCA UN NOME?
spider0 non  collegato   Rispondi citando
Vecchio 11-10-2012, 17.29.57   #6
LoryOne
Gold Member
WT Expert
 
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
LoryOne  un gioiello raroLoryOne  un gioiello raroLoryOne  un gioiello raro
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
LoryOne non  collegato   Rispondi citando
Vecchio 11-10-2012, 17.40.09   #7
spider0
Newbie
 
Registrato: 30-01-2012
Messaggi: 16
spider0 promette bene
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"?
spider0 non  collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
Il codice HTML OFF

Vai al forum

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

Orario GMT +2. Ora sono le: 03.08.27.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright Jelsoft Enterprises Limited.