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

Estrarre valori di riga e colonna di una specifica cella in una tabella

Ultimo Aggiornamento: 14/09/2020 16:35
Post: 12
Registrato il: 07/10/2019
Età: 31
Utente Junior
2013
OFFLINE
14/09/2020 14:36

Estrarre valori di riga e colonna di una specifica cella in una tabella
Ciao a tutti,
ho una tabella 31x24 che contiene dei valori numerici. Su ciascuna riga è indicato il profilo orario di un valore economico (dalle 00.00 alle 23.00).
Ho individuato il valore massimo della tabella, che potrebbe comparire più volte nella tabella.
Ciò che devo fare ora è indicare il giorno e l'ora in cui è comparso questo valore, se compare più volte indicare più momenti.
Vorrei che il programma restituisse automaticamente data e ora senza doverle selezionare manualmente.
Ho provato ad usare la funzione INDICE ma non funziona, potreste aiutarmi?


In allegato la matrice e il risultato desiderato.
Grazie
[Modificato da Fabiogio92 14/09/2020 15:17]
Post: 2.324
Registrato il: 21/03/2008
Città: LOCATE VARESINO
Età: 76
Utente Veteran
2007 / 13
OFFLINE
14/09/2020 16:35

ciao

una sub da inserire nel modulo del foglio
in base al tuo esempio


Option Explicit
Sub elaborapicco()
Dim valmax As Double
Dim cella As Variant
Dim Nrig1 As Long, Nrig2 As Long, Ncol As Long, Npic As Long
valmax = Range("B34")
Nrig1 = 37
Nrig2 = 47
Ncol = 5
Npic = 1
Range("A37:Z70").ClearContents
For Each cella In Range("B2:Y32")
If cella = valmax Then
Cells(Nrig1, Ncol) = "Picco " & Npic
Cells(Nrig1 + 2, Ncol) = "Colonna"
Cells(Nrig1 + 2, Ncol + 1) = cella.Column
Cells(Nrig1 + 3, Ncol) = "Riga"
Cells(Nrig1 + 3, Ncol + 1) = cella.Row
Cells(Nrig1 + 5, Ncol) = "Data"
Cells(Nrig1 + 5, Ncol + 1) = Cells(cella.Row, 1)
Cells(Nrig1 + 6, Ncol) = "Ora"
Cells(Nrig1 + 6, Ncol + 1) = Cells(1, cella.Column)
Cells(Nrig2, 1) = "Picco " & Npic & Format(Cells(cella.Row, 1), " dd/mm/yyyy") & _
Format(Cells(1, cella.Column), " hh:mm")
Ncol = Ncol + 4
Npic = Npic + 1
Nrig2 = Nrig2 + 1
End If
Next
End Sub



riallego il tuo file con iserita questa
Ciao da locate
excel 2007 / 13
Vota:
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 09:57. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com