Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

range uguali

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

range uguali

Postdi cd7019 » 15/05/14 18:32

Ciao,
secondo Voi c'è un modo veloce per paragonare due intervalli senza usare un for next?

ad esempio con 1 cella si avrebbe:
if cells(1,1)=cells(2,1) then ... >>> funziona

invece con + celle non funziona:
if range(cells(1,1),cells(1,10)) = range(cells(2,1),cells(2,10)) then ...

Grazie.
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Sponsor
 

Re: range uguali

Postdi Anthony47 » 16/05/14 00:02

Per esempio:
Codice: Seleziona tutto
If (Evaluate("sum(--(F9:H22=K9:M22))") = Range("F9:H22").Count) then
    'codice se sono UGUALI
Else
    'Codice se sono DIVERSI
End If

Questo confronta, ovviamente, F9:H22 con K9:M22

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: range uguali

Postdi cd7019 » 17/05/14 21:35

grazie.
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: range uguali

Postdi scossa » 19/05/14 19:28

Anthony47 ha scritto:Per esempio:
Codice: Seleziona tutto
If (Evaluate("sum(--(F9:H22=K9:M22))") = Range("F9:H22").Count) then
    'codice se sono UGUALI
Else
    'Codice se sono DIVERSI
End If

Questo confronta, ovviamente, F9:H22 con K9:M22

Ciao


O, più semplicemente, se non si vuole distinzione tra maiuscole e minuscole:
Codice: Seleziona tutto
Public Sub prova()
  If Evaluate("AND(F9:H22=K9:M22)") Then
      'codice se sono UGUALI, p.e:
      MsgBox "uguali"
  Else
      'Codice se sono DIVERSI, p.e.:
      MsgBox "non uguali"
  End If
End Sub


Se invece si vuole distinguere tra maiuscole e minuscole:
Codice: Seleziona tutto
Public Sub prova2()
  If Evaluate("AND(EXACT(F9:H22,K9:M22))") Then
      'codice se sono IDENTICI, p.e:
      MsgBox "IDENTICI"
  Else
      'Codice se sono DIVERSI, p.e.:
      MsgBox "NON identici"
  End If
End Sub
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 424
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona


Torna a Applicazioni Office Windows


Topic correlati a "range uguali":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti