|
|||||||
|
|
|
 |
|
|
Strumenti |
08-01-2009, 20:19
|
#1 |
|
Senior Member
Iscritto dal: Jan 2001
Città: Villanova di Guidonia (RM)
Messaggi: 1079
|
[Macro VB] Rinumerare celle
Ciao a tutti!
Non so se sono nella sezione giusta. Spero di si. Ho un foglio Excel fatto in questo modo: id Nick 2 nick1 2 nick2 2 nick3 3 nick4 3 nick2 4 nick7 4 nick2 4 nick1 4 nick8 Vorrei capire se c'è una funzione in Excel o se devo creare una macro che mi permetta di modificare la prima colonna in questo modo. id Nick 0 nick1 0 nick2 0 nick3 1 nick4 1 nick2 2 nick7 2 nick2 2 nick1 2 nick8 Cioè vorrei rinumerare le celle ripartendo da 0 in questo modo. Se è necessaria una macro potreste postarmi il codice? Non conosco molto il VB. Grazie. 
__________________
Intel Core 2 Duo Q6600 G0, 4GB DDR2-800 A-Data, ABIT AB9, XFX GeForce 8800 GTS 320MB, Sound Blaster X-Fi Extreme Music, Seagate 320GB SATA2, Maxtor 80GB ATA-133, Western Digital 1TB SATA2 Ho concluso affari positivamente con: scandalf, Sinclair63, mstella, checcodag, wilson |
|
|
|
08-01-2009, 21:59
|
#2 |
|
Senior Member
Iscritto dal: Dec 2004
Messaggi: 3210
|
Semplicissimo. Ponendo che la colonna che contiene i numeri sia la A, e che i valori vadano da A2 ad A10 :
Codice:
Dim R As Range
For Each R In Range("A2:A10")
R.FormulaR1C1 = R.Value - 2
Next
|
|
|
|
|
08-01-2009, 22:16
|
#3 |
|
Senior Member
Iscritto dal: Jan 2001
Città: Villanova di Guidonia (RM)
Messaggi: 1079
|
Grazie.
Sapevo che era semplice, ma non avendo conoscenze in merito non sapevo come fare. Lo proverò  Ciao.
__________________
Intel Core 2 Duo Q6600 G0, 4GB DDR2-800 A-Data, ABIT AB9, XFX GeForce 8800 GTS 320MB, Sound Blaster X-Fi Extreme Music, Seagate 320GB SATA2, Maxtor 80GB ATA-133, Western Digital 1TB SATA2 Ho concluso affari positivamente con: scandalf, Sinclair63, mstella, checcodag, wilson |
|
|
|
|
09-01-2009, 12:40
|
#4 |
|
Senior Member
Iscritto dal: Jan 2001
Città: Villanova di Guidonia (RM)
Messaggi: 1079
|
Funziona alla perfezione. Una sola cosa. Se al posto del solo numero voglio scrivere un'apice seguito dal numero (per ogni numero)? Cioè ad esempio '3. Come devo modificare il codice?
__________________
Intel Core 2 Duo Q6600 G0, 4GB DDR2-800 A-Data, ABIT AB9, XFX GeForce 8800 GTS 320MB, Sound Blaster X-Fi Extreme Music, Seagate 320GB SATA2, Maxtor 80GB ATA-133, Western Digital 1TB SATA2 Ho concluso affari positivamente con: scandalf, Sinclair63, mstella, checcodag, wilson |
|
|
|
|
09-01-2009, 13:52
|
#5 |
|
Senior Member
Iscritto dal: Jan 2001
Città: Villanova di Guidonia (RM)
Messaggi: 1079
|
Non ce n'è più bisogno grazie.
__________________
Intel Core 2 Duo Q6600 G0, 4GB DDR2-800 A-Data, ABIT AB9, XFX GeForce 8800 GTS 320MB, Sound Blaster X-Fi Extreme Music, Seagate 320GB SATA2, Maxtor 80GB ATA-133, Western Digital 1TB SATA2 Ho concluso affari positivamente con: scandalf, Sinclair63, mstella, checcodag, wilson |
|
|
|
|
09-01-2009, 13:59
|
#6 | |
|
Senior Member
Iscritto dal: Dec 2004
Messaggi: 3210
|
Quote:
Codice:
R.FormulaR1C1 = "''" & CStr(R.Value - 2) Nella casella Fx invece si può osservare che la cella contiene due apici singoli iniziali. Bisogna tener conto di questo successivamente se si vuole estrarre la proprietà corretta per quella cella. Se vuoi un consiglio, scrivere apici prima di numeri è da evitare in Excel, in quento l'apice è un separatore e come tale può essere mal interpretato, anche se il formato della cella è tipo Testo...
|
|
|
|
|
|
09-01-2009, 14:14
|
#7 |
|
Senior Member
Iscritto dal: Jan 2001
Città: Villanova di Guidonia (RM)
Messaggi: 1079
|
Capito. Sei stato molto chiaro. Grazie
__________________
Intel Core 2 Duo Q6600 G0, 4GB DDR2-800 A-Data, ABIT AB9, XFX GeForce 8800 GTS 320MB, Sound Blaster X-Fi Extreme Music, Seagate 320GB SATA2, Maxtor 80GB ATA-133, Western Digital 1TB SATA2 Ho concluso affari positivamente con: scandalf, Sinclair63, mstella, checcodag, wilson |
|
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 14:07.
