[VBA] Ottenere lunghezza effettiva della stringa in una cella

[illiterate]

Ciao ragazzi sto provando a fare una macro con excel e visual basic ma ho questo problema
il codice è questo

Sub mia()
A = Len(Cells(1, 1).Value)
MsgBox A
End Sub

vorrei che in A mi restituisse la lunghezza contenuta nella cella 1,1 invece mi da il valore 255...
in modo da poter cancellare nella macro finale le celle che contengono una stringa di un certo numero di caratteri
qualcuno saprebbe indicarmi cosa sbaglio e come si puo fare.
Vi ringrazio anticipatamente

[gibra]

Togli il Len(...) che non c'entra.

[illiterate]

Il len dovrebbe servire a dare la lunghezza della stringa contenuta nella cella...
Come non c'entra...

[Pirelli72]

Sinceramente il tuo codice mi restituisce correttamente il numero dei caratteri.

[Pirelli72]

Scrivendo htmlforum, mi restituisce:

[gibra]

Originariamente inviato da illiterate
Il len dovrebbe servire a dare la lunghezza della stringa contenuta nella cella...
Come non c'entra...

Ops, avevo capito che volevi il valore.
Altra occasione persa per starmene zitto...

[illiterate]

Ciao ragazzi pare che ho risolto aggiungendo la funzione trim
ecco il codice

Sub elimina()
ic = 1
ir = 1
For ir = 1 To 4878
A = Cells(ir, ic).Value
B = Len(Trim(A))
If B = 2 Then
Cells(ir, ic).EntireRow.Delete
End If
ir = ir + 1

Next

End Sub

Ciao grazie

[MdE2005]

Originariamente inviato da illiterate
Ciao ragazzi pare che ho risolto aggiungendo la funzione trim
ecco il codice

Sub elimina()
ic = 1
ir = 1
For ir = 1 To 4878
A = Cells(ir, ic).Value
B = Len(Trim(A))
If B = 2 Then
Cells(ir, ic).EntireRow.Delete
End If
ir = ir + 1

Next

End Sub

Ciao grazie

Tralasciando per un momento il fatto che il codice va postato negli appositi tag CODE, vedo qualcosa in questo codice che non mi piace:

1. ic = 1 --> se è una costante, perchè nelle tue istruzioni non utilizzi direttamente il numero?
2. ir = ir+1 --> perchè? Il ciclo for autonomamente incrementa la variabile contatore ir , nella fattispecie di 1 (dal momento che non hai specificato nessuno Step)

In definitiva, puoi "contrarre" tutta la procedura così:

  
Sub elimina()
For ir = 1 To 4878 
    If Len(Trim(Cells(ir, 1).Value))= 2 Then Cells(ir, 1).EntireRow.Delete
Next
End Sub

Ciao

[Pirelli72]

In più se si controllava il valore della cella:

Cells(1, 1).Value

prima di postare non eravamo qui a discutere.