Moderatori: Anthony47, Flash30005
Function EstrNum(Cerc As Range)
Testo = Cerc.Value
For z = 1 To Len(Testo)
If Not IsNumeric(Mid(Testo, z, 1)) Then
NR = Mid(Testo, z + 1, Len(Testo))
End If
Next
EstrNum = NR
End Function
Function EstrText(Cerc As Range)
Testo = Cerc.Value
For z = 1 To Len(Testo)
If Not IsNumeric(Mid(Testo, z, 1)) Then
Tx = Mid(Testo, 1, z)
End If
Next
EstrText = Tx
End Function
=--EstrNum(C1)
=EstrNum(B1)
=EstrText(B1)
=SINISTRA(B1;TROVA(" ";B1;1))
=DESTRA(B1;LUNGHEZZA(B1)-TROVA(" ";B1;1))
=Personal.xls!EstrNum(B1)
Torna a Applicazioni Office Windows
COME RICONOSCERE UNA APP "POTENZIALMENTE DANNOSA" SU W11 Autore: franco11 |
Forum: Sistemi Operativi Windows Risposte: 3 |
Aggiornare automaticamente alcune parole ripetute in word Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 5 |
Conta.più.se con solo parte del testo Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 48 ospiti