[VB6 - vba] sapere qual'è la riga più lunga

[luisa227]

Ho una colonna di un foglio in Excel che viene riempita automaticamente con dei dati.
Imposto poi alla colonna il comando Autofit in modo che automaticamente me la allarga in base al contenuto.

Io però vorrei sapere, sempre tramito l'utilizzo di vb, se la colonna supera una cerca larghezza, quale è la riga contenente testo più lungo in modo da impostare su quella cella un testo a capo.

Come posso fare a ottenere cio che ho scritto in grassetto?

Grazie

[andreaciao_22]

prova questa funzione:

Function ControllaLunghezza(Colonna As Integer) As Long
    Dim i As Long, nRiga As Long, ParolaLunga As String
    ParolaLunga = ""
    nRiga = 0
    For i = 1 To 65536
        If Len(Trim(Cells(i, Colonna).Value)) > 0 Then
            If Len(Cells(i, Colonna).Value) > Len(ParolaLunga) Then
                ParolaLunga = Cells(i, Colonna).Value
                nRiga = i
            End If
        End If
    Next
    ControllaLunghezza = nRiga
End Function

devi passargli solo la colonna da controllare e ti restituisce il numero di riga col il valore più lungo...

se non trova nessun valore restituisce 0

[luisa227]

Originariamente inviato da andreaciao_22
prova questa funzione:

Function ControllaLunghezza(Colonna As Integer) As Long
    Dim i As Long, nRiga As Long, ParolaLunga As String
    ParolaLunga = ""
    nRiga = 0
    For i = 1 To 65536
        If Len(Trim(Cells(i, Colonna).Value)) > 0 Then
            If Len(Cells(i, Colonna).Value) > Len(ParolaLunga) Then
                ParolaLunga = Cells(i, Colonna).Value
                nRiga = i
            End If
        End If
    Next
    ControllaLunghezza = nRiga
End Function

devi passargli solo la colonna da controllare e ti restituisce il numero di riga col il valore più lungo...

se non trova nessun valore restituisce 0

grazie!

[andreaciao_22]

di nulla! è sempre un piacere aiutare chi ha bisogno!!!