excel macro

[Stefano Pasca]

illustri amici
ho un quesito da porre su excel:
Desidero sapere nell'intervallo da A1 ad A9 quanti numero "5" ci sono.
Bella questa !!!
chi mi risponde ?
Chi lo sa è bravizzzzzimo !
Grazie
Stefano

[Aesir]

Ciao Stefano se ho ben capito quello che vuoi ecco il codice

Codice: Seleziona tutto

For i = 1 To 9
If Sheets(1).Cells(i, 1) = "5" Then k = k + 1
Next
Sheets(1).Cells(2, 3) = k

la macro inserisce il numero dei 5 nella casella C2

Penso esista una soluzione più bella senza cicli ed if ma dato che non uso mai il vba non so i comandi specifici di confronto tra le celle e comunque questa funziona!

Spero di esserti stato di aiuto

Ciao

[Aesir]

Scusa forse ho interpretato male , intendevi anche i 5 di numeri come 455555?

In tal caso il codice sarebbe

Codice: Seleziona tutto

For i = 1 To 9
indice = InStr(Sheets(1).Cells(i, 1), "5")
    Do While indice > 0
    k = k + 1
    indice = InStr(indice + 1, Sheets(1).Cells(i, 1), "5")
    Loop
Next
Sheets(1).Cells(2, 3) = k

Spero di aver capito!

Ciao

[Stefano Pasca]

aisir ciao e grazie,
speravo comunque di non utilizzare una macro bensì delle comuni istruzioni. Infatti siccome il controllo deve essere fatto ogni volta che scrivo in una delle celle in questione, sarei costretto a clikkare sulla macro ogni volta che immetto un dato. A meno che io non possa fare in altro modo.
Sapresti dirmi come ?
comunque grazie
Stefano

[Aesir]

Ciao Stefano;

Penso che con le funzioni di excel non permettano di farlo (a meno che non si tratti del primo caso, quello con il "5" da solo)comunque deve essere possibile collegare la macro ad un evento di tastiera (magari anche alla pressione del tasto invio).

Purtroppo ora come ora non posso provare nessuna soluzione perché sono fuori casa su un computer linux.

Guarderò a casa se riesco a trovare una soluzione efficente.

Ciao!

p.s. potrebbe essere problematico risponderti almeno fino a mercoledì perché la telecom ha problemi sulla mia linea di casa.

[Stefano Pasca]

Sei un amico....grazie,
aspetto !
ciao Stefano

[Aesir]

Sempre dal mitico computer-ripiego della biblioteca ecco una soluzione per quello che cerchi.

Come pensavo le funzioni di excel sono troppo poco elastiche per permettere un elaborzione testo con cicli for e do while ma fortunatamente si può far partire in automatico una macro ogni volta che si seleziona una nuova cella!

ecco come si fa:

1 registri una macro con il solito codice
2 sempre dalla finestra del vba dove sta modulo 1 col destro clicchi sul foglio in cui ti serve funzioni la macro e selezioni visualizza codice
3 nei due menu a tendina in alto nella finestra che si apre, seleziona Worksheet nel primo e l'evento Selection Change nel secondo
4 nella subroutine che crea automaticamente, inserisci come unico comando il nome della prima macro che hai registrato che così parte ogni volta che si cambia selezione nel foglio di lavoro.

Spero di essermi stato spiegato

Ciao!!![ciao]