Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[VBA EXCEL] Estrarre un valore da una funzione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[VBA EXCEL] Estrarre un valore da una funzione

Postdi corvo4791 » 07/07/10 20:34

Salve, ragazzi.

Sempre io alle prime armi con VBA. Sto facendo un sacco di cose divertenti e mi sto gasando parecchio. Continuano però a mancarmi le basi.

Praticamente ho trovato in rete una funzione che mi estrae un numero da una stringa. Ne ho capito il funzionamento ma non riesco a capire come importare nella mia macro il risultato di tale funzione.

Praticamente io chiamo la funzione:

Call EstraiNumero(X)

dove x é la mia stringa da cui estrarre il numero.

La funzione trova il numero e ottiene un valore

ESTRAINUMERO.

Ecco il mio problema... come faccio a prendermi questo estrainumero e portarlo nella mia macro ?

Metto il codice della funzione ESTRAINUMERO:

Codice: Seleziona tutto
Private Function IsNumber(a As String) As Boolean

If (Left(a, 1) >= "0" And Left(a, 1) <= "9") Then
    IsNumber = True
Else
    IsNumber = False
End If

End Function



Function EstraiNumero(s As String) As Long

Dim i As Integer
Dim n As String
Dim trovato As Boolean

trovato = False
n = ""
i = 1

While i < Len(s)
    If IsNumber(Mid(s, i, 1)) And Not trovato Then
        While IsNumber(Mid(s, i, 1))
          n = n + Mid(s, i, 1)
          i = i + 1
          trovato = True
        Wend
    End If
    i = i + 1
Wend

EstraiNumero = Val(n)

End Function
corvo4791
Utente Junior
 
Post: 62
Iscritto il: 02/07/10 08:22

Sponsor
 

Re: [VBA EXCEL] Estrarre un valore da una funzione

Postdi corvo4791 » 07/07/10 20:36

...
corvo4791
Utente Junior
 
Post: 62
Iscritto il: 02/07/10 08:22

Re: [VBA EXCEL] Estrarre un valore da una funzione

Postdi corvo4791 » 07/07/10 20:53

Scusate... ho risolto... quanta ignoranza...

Basta richiamare dalla macro per esempio:

VALORENUMERICO = ESTRAINUMERO(X)

Ed é fatto.

Ciao.
corvo4791
Utente Junior
 
Post: 62
Iscritto il: 02/07/10 08:22


Torna a Applicazioni Office Windows


Topic correlati a "[VBA EXCEL] Estrarre un valore da una funzione":


Chi c’è in linea

Visitano il forum: Marius44 e 17 ospiti