Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Come trasformare dei dati in una matrice

Ultimo Aggiornamento: 10/04/2017 13:32
Post: 3
Registrato il: 20/03/2017
Utente Junior
2013
OFFLINE
07/04/2017 16:33

Buon Pomeriggio, ho un desiderio... di trasformare dei dati incolonnati come l'esempio:

3 4 6
4 3 5
1 4 6
2 6 7

Nella seguente matrice:

0 0 0 3 3 3 0
0 0 4 4 4 0 0
0 0 0 1 1 1 0
0 0 0 0 0 2 2

Vi spiego... I numeri della prima colonna sono quelli da inserire nella matrice partendo dalla posizione indicata nella seconda colonna e terminando nella posizione indicata nella terza colonna. Tutto il resto della matrice deve essere 0. Questo incollato è un esempio, avrei bisogno di apllicare una macro ai miei dati selezionandoli di volta in volta. Mi potete aiutare?? [SM=x423023] Grazie! [SM=x423028]
Post: 1.974
Registrato il: 21/03/2008
Città: LOCATE VARESINO
Età: 76
Utente Veteran
2007 / 13
OFFLINE
07/04/2017 17:37

ciao

senza utilzzare VBA
ammettiamo i tuoi dati in colonna A valore , B posizione partenza, C pos arrivo su 7 colonne

in D la seguente formula

=TESTO(RIPETI(A1;C1-B1+1)*10^(7-C1);"0 0 0 0 0 0 0")

fatto questo copio la colonna e la incollo su un'altra colonna a piacimento , solo valori
lascio attivato
dalla Ridbon seleziono dati e testo in colonna e il gioco e fatto

allego il file di prova

ciao

Ciao da locate
excel 2007 / 13
Post: 1.145
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Veteran
365
OFFLINE
07/04/2017 17:43

Ciao

mi ci sono sbattuto
e la posto


=SE(E(RIF.COLONNA($A$1)+RIF.COLONNA(A$1)-1>=$C2;RIF.COLONNA($A$1)+RIF.COLONNA(A$1)-1<=$D2);$B2;0)



in G2

tira a dx e in basso

non ci sono limiti di righe o colonne.
[Modificato da federico460 07/04/2017 17:45]
Post: 1.975
Registrato il: 21/03/2008
Città: LOCATE VARESINO
Età: 76
Utente Veteran
2007 / 13
OFFLINE
08/04/2017 00:35

ciao

tanto per passare il tempo
ti posto una sub() o Macro da come avevi chiesto
sempre con i tuoi dati in colonna A,B,C



Option Explicit
Sub InMatrice()
Dim i As Long, k As Long
Dim Matrice() As String
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Matrice = Split(Format(Application.Rept(Cells(i, 1), Cells(i, 3) - Cells(i, 2) + 1) _
* Application.Power(10, 7 - Cells(i, 3)), "0 0 0 0 0 0 0"), " ")
For k = LBound(Matrice) To UBound(Matrice)
Cells(i, k + 11) = Matrice(k)
Next k
Next i
End Sub



Ciao da locate
excel 2007 / 13
Post: 3
Registrato il: 20/03/2017
Utente Junior
2013
OFFLINE
10/04/2017 10:41

Grazie, provo e vi faccio sapere [SM=x423030]
Post: 4
Registrato il: 20/03/2017
Utente Junior
2013
OFFLINE
10/04/2017 13:00

Funzionaaaaa [SM=x423026] [SM=x423025] [SM=x423065]
Post: 1.149
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Veteran
365
OFFLINE
10/04/2017 13:32

ciao
Simona

certo che funziona [SM=x423038]

che strada hai scelto
formule o macro?
Vota: 15MediaObject5,0017 1
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 16:41. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com