Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

VBA Excel da funzione a macro

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 da funzione a macro

Postdi macio66 » 28/03/19 09:03

Buongiorno
Ho bisogno di estrarre da una stringa il numero compreso tra due caratteri speciali (- e .) .
un esempio e questo 1821_0026-15.ZS2 dove il mio risultato deve essere 15.
sono riuscito ad ottenerlo tramite funzione:

=STRINGA.ESTRAI(A2;RICERCA("-";A2)+1;RICERCA(".";A2;RICERCA("-";A2)+1)-RICERCA("-";A2)-1)

Quello che ora sto cercando di fare, purtroppo senza riuscirci, è trasformare la funzione, in una macro.
In pratica 1821_0026-15.ZS2 e il nome di un salvataggio dove 15 e il numero di volte con cui 1821_0026 e stato salvato.
con questa macro verifica se gia presente, trova l' ultimo salvataggio, e lo incrementa di uno.

; Salvataggio serie

If IsTestRunning() = False
Var Nome String

Nome = ("C:\Data\" + T[39003] + "_" + T[39002] + "-1" + ".ZS2")

Goto CONTROLLO

Label CONTROLLO
If ExistsFile (Nome)

Var g String = Right(Nome,5)
Var h Num = StrToNum(Left(g,1)) <---------- cerca numero
Var i2 String = NumToStr(h + 1) <---------- incrementa numero
Nome = ("C:\Data\" + T[39003] + "_" + T[39002] + "-" + i2 + ".ZS2")
Goto CONTROLLO
Else
Goto FINE
EndIf
Label FINE
Call save (nome)

Funziona tutto fino al salvataggio n° 10, poi va in errore perchè cosi impostata, cerca sempre una sola cifra.
Spero che qualcuno, mi possa dare una dritta.
Grazie e buona giornata
macio66
Utente Senior
 
Post: 134
Iscritto il: 13/06/13 14:59

Sponsor
 

Re: VBA Excel da funzione a macro

Postdi klingklang » 28/03/19 10:32

Ciao! Quello che hai scritto non è VBA... in che ambiente sviluppi?
Enrico
Windows 7 + Office 2016 64bit / Windows 10 + Office 365 32/64bit
Avatar utente
klingklang
Utente Junior
 
Post: 97
Iscritto il: 23/11/18 15:01
Località: San Giovanni in Persiceto

Re: VBA Excel da funzione a macro

Postdi macio66 » 28/03/19 11:05

Ciao,
Purtroppo e un macchinario che usa un suo ambiente, con aggiunte di VBA.
Infatti sto cercando di adattare quella funzione al VBA, per poi cercare di adattarlo al macchinario.
macio66
Utente Senior
 
Post: 134
Iscritto il: 13/06/13 14:59

Re: VBA Excel da funzione a macro

Postdi Anthony47 » 28/03/19 13:00

Non so se potra' aiutare, ma in vba potresti usare queste istruzioni:
Codice: Seleziona tutto
idash = InStrRev(Nome, "-", , vbTextCompare)
g = Mid(Nome, idash + 1, Len(Nome) - 4 - idash)

La variabile "Nome" deve contenere la stringa tipo 1821_0026-15.ZS2; la variabile "g" conterra' la stringa "15", cioe' quanto presente tra il "trattino" e il ".ZS2" (qualsiasi sia la sua lunghezza.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17658
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: VBA Excel da funzione a macro

Postdi macio66 » 28/03/19 13:51

Ciao Anthony
grazie per il tuo aiuto, ora cercherò di adattarlo al macchinario
macio66
Utente Senior
 
Post: 134
Iscritto il: 13/06/13 14:59


Torna a Applicazioni Office Windows


Topic correlati a "VBA Excel da funzione a macro":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti

cron