Condividi:        

3 condizioni nella stessa sequenza

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

condizioni nella stessa sequenza

Postdi raimea » 23/03/11 22:47

ho " risolto" nel senso che il/ i problemi si verificano con office 2007 e 2010
mentre su offc. 2003 tutto ok....
il lavoro di tutto il file e' stato fatto con offc 2003.
mannaggia sto versioni.
vi risulta anche a voi che sto vers 2007/10 rompano un po' le b..... :mmmh:
grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

condizioni nella stessa sequenza

Postdi raimea » 24/03/11 18:29

un consiglio.... :-?
l'intero file mi funziona tutto ok su office 2003.
in offc 2007 e '10 ho degli imprevisti
il file si apre dopo un po di tempo , ed in basso a dx si vede che fa dei "calcoli".
quando e' aperto in alto si legge " modalita' compatibilita' "
ma in particolare non mi funziona la -funzione- di antony...
Codice: Seleziona tutto
Function Monitr(Dummy) As String   '<<< serve a scrivere R r in col w
Dim CAdr As String
Dim I As Integer, CCV As Integer, CP As Integer
Dim ColVP As Integer, IDR As Integer, J As Integer, aaa
'
ColVP = 13: IDR = 9    '<<p/v in 13=col M; Prima riga dati =9
'
CAdr = Application.Caller.Address
For I = Range(CAdr).Row - 1 To IDR Step -1
If Cells(I, Range(CAdr).Column) = "R" Then Exit For
If Cells(I, Range(CAdr).Column) = "r" Then Exit For
Next I
For J = I + 1 To Range(CAdr).Row
If UCase(Cells(J, ColVP)) = "V" Then
    CCV = CCV + 1
    Else:
    If UCase(Cells(J, ColVP)) = "P" Then
        CP = CP + 1: CCV = 0
    End If
End If
If CCV = 3 Then Monitr = "R": Exit Function
If CP = 2 And CCV = 2 Then Monitr = "R": Exit Function
If CP = 3 Then Monitr = "r": Exit Function
Next J
Efun:
End Function


qualche consiglio su come risolvere questo x le vers di offc 2007/10 ?
grazie a tutti
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: 3 condizioni nella stessa sequenza

Postdi ricky53 » 24/03/11 23:55

Ciao,
tu hai scritto
ma in particolare non mi funziona la -funzione- di antony...


ed io ti chiedo in quale istruzione non ti funziona la -funzione- di Anthony ?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

piu condizioni nella stessa sequenza

Postdi raimea » 25/03/11 07:18

x richy53
compilando col. M con vari V/ p in automatico la funzione mi riconosce quando una sequenza e' finita
e in col W mi scrive la lettera r.

con offc 2007/10 ---> -" modalita' compatibilita' "- tale funzione ( che e' nel modulo 13)
non mi mette la lettera "r" in col W alla fine di una sequenza.
xro ripeto, che tale problema e' solo con offc 2007/10 perche con 2003 e' tutto ok.

io penso sia dovuto a qualche settaggio ma non sono riuscito a trovare quale-dove..... :-?
metto il file nel caso vuoi provare.
grazie

http://www.sendspace.com/file/b1gmyj
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: 3 condizioni nella stessa sequenza

Postdi Anthony47 » 25/03/11 17:26

Ho installato malvolentieri Office2010 che avevo tenuto a prendere polvere, ma il comportamento in col W mi sembra corretto: simulate varie combinazioni con esito sempre soddisfacente.
Mi dai una sequenza che invece non e' ok?

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

Re: 3 condizioni nella stessa sequenza

Postdi Anthony47 » 25/03/11 17:56

Intanto ho visto che si puo' velocizzare di qualcosa inserendo l' istruzione marcata <<<<
Codice: Seleziona tutto
CAdr = Application.Caller.Address
If Cells(Application.Caller.Row, ColVP) = "" Then Exit Function    '<<<<
For I = Range(CAdr).Row - 1 To IDR Step -1

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

condizioni nella stessa sequenza

Postdi raimea » 25/03/11 20:16

Mi dai una sequenza che invece non e' ok?

no nooo per carita, la tua funzione e' OTTIMA :idea:
non ha "buchi"

solo che se il file lo installo su un altro pc (io ho offc 2003) con offc 2007 o 2010
in col W non scrive mai la lettera "R"

e' ok , la modifica per velocizarla.

ora se tu ai provato su offc 2010 e funge boooo riprovero
grazie per la contro-prova.
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "3 condizioni nella stessa sequenza":


Chi c’è in linea

Visitano il forum: Gianca532011 e 88 ospiti