Condividi:        

zero diverso da ""

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

zero diverso da ""

Postdi cd7019 » 14/03/14 22:51

Ciao,

come faccio a far riconoscere che lo zero è diverso da "".
nella cella A1 ho il valore 0 (zero)
nella cella B1 ho niente (vuota)

ho una condizione:
Codice: Seleziona tutto
if cells(1,1)=cells(1,2) then
cells(1,5)="ok"
else
cells(1,5)="no"
end if

mi asperrei cells(1,5)="no" invece ottengo cells(1,5)="ok"


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

Sponsor
 

Re: zero diverso da ""

Postdi scossa » 14/03/14 23:27

Un modo:
Codice: Seleziona tutto
Public Sub prova()
  If [EXACT(A1,B1)] Then
    Cells(1, 5) = "ok"
  Else
    Cells(1, 5) = "no"
  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: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: zero diverso da ""

Postdi cd7019 » 15/03/14 17:43

ciao,
ho provato a riscrivere il tuo listato ma produce un errore a causa delle cells.
Ho necessità di inserire cells.

Codice: Seleziona tutto
Public Sub prova()
for i=1 to 10
 If [EXACT(CELLS(i,1),CELLS(i,2))] Then
    Cells(i, 5) = "ok"
  Else
    Cells(i, 5) = "no"
  End If
next i
End Sub


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

Re: zero diverso da ""

Postdi scossa » 15/03/14 17:51

cd7019 ha scritto:ciao,
ho provato a riscrivere il tuo listato ma produce un errore a causa delle cells.
Ho necessità di inserire cells.


Allora devi usare Evaluate():
Codice: Seleziona tutto
  If Application.Evaluate("exact(" & Cells(i, 1).Address & "," & Cells(i, 2).Address & ")") Then
    Cells(i, 5) = "ok"
  Else
    Cells(i, 5) = "no"
  End If
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: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: zero diverso da ""

Postdi cd7019 » 15/03/14 18:00

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


Torna a Applicazioni Office Windows


Topic correlati a "zero diverso da """:


Chi c’è in linea

Visitano il forum: Nessuno e 147 ospiti