Not Equal è un operatore in VBA che può anche essere definito come un operatore di negazione, è una funzione logica quindi l'output restituito da questa funzione è vero o falso, sappiamo che l'operatore uguale è "=" questo ma non uguale è " "In VBA quindi qualunque sia il valore che otteniamo dall'operatore uguale otterremo il valore esatto opposto utilizzando l'operatore Non uguale.
Operatore "Non uguale" in VBA
Di solito, facciamo un test logico "se qualcosa è uguale a un'altra cosa o no". In alcuni casi, dobbiamo anche fare il test di "disuguaglianza" . Il test di disuguaglianza non è altro che un test di parità. In generale, diciamo se qualcosa è uguale a un'altra cosa o no, se è uguale esegue un qualche tipo di compito se non un compito diverso. Allo stesso modo, usando il test di disuguaglianza possiamo anche fare qualche tipo di operazione. "NON UGUALE" in VBA è rappresentato dalla combinazione di simboli maggiore di e minore di. Se entrambi questi operatori vengono combinati, diventa il simbolo di non uguale, ovvero "" .
Quanto non è uguale a funziona in Excel VBA?
VBA Non uguale funziona esattamente all'opposto della logica dell'operatore uguale a. L'operatore Uguale a restituisce VERO se il test fornito è soddisfatto, non restituirà FALSO. Ad esempio, se dici 10 = 10 restituirà VERO oppure FALSO.
D'altra parte "Non uguale" funziona nella direzione opposta, se il test logico fornito in Excel non è uguale, restituirà solo VERO oppure FALSO.
Ad esempio, se dici 10 10 restituirà FALSE perché 10 è uguale a 10. Per ottenere il risultato TRUE un valore non dovrebbe essere uguale all'altro valore.
Esempi di Non uguale a in Excel VBA
Di seguito sono riportati gli esempi di operatore non uguale a in Excel VBA.
Esempio 1
Ora vedremo come utilizzare praticamente il segno VBA Not Equal (). Guarda il pezzo di codice sottostante.
Codice:
Sub NotEqual_Example1 () Dim k As String k = 100100 MsgBox k End Sub
Qui stiamo testando se il numero 100 non è uguale al numero 100. Di sicuro sappiamo che il numero 100 è uguale a 100, quindi il risultato sarà FALSO.
Ora cambierò l'equazione.
Codice:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Ora il test è se il numero 100 non è uguale a 99. Quindi il risultato sarà VERO.
Esempio n. 2
Ora vedremo come utilizzare questo operatore non uguale negli esempi in tempo reale. Per la dimostrazione, ho creato alcuni dati.
Abbiamo due valori, "Valore 1" e "Valore 2".
Ora il mio requisito è che se il valore 1 non è uguale al valore 2, allora ho bisogno che il risultato sia "diverso" altrimenti ho bisogno che il risultato sia "stesso".
Passaggio 1: definire una variabile come numero intero.
Codice:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Passaggio 2: aprire FOR NEXT LOOP da 2 a 9.
Codice:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 To 9 Next k End Sub
Passaggio 3: all'interno del ciclo, dobbiamo verificare se il valore 1 non è uguale al valore 2. Poiché abbiamo bisogno dei nostri risultati, dobbiamo usare IF Condition.
Codice:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 to 9 If Cells (k, 1) Cells (k, 2) Then Cells (k, 3) .Value = "Different" Else Cells (k, 3) .Value = "Stesso" End If Next k End Sub
If condition verifica se il valore 1 non è uguale al valore 2 o meno. Se non è uguale restituirà "Diverso", se uguale restituirà "Stesso".
Puoi copiare e incollare il codice VBA sottostante.
Copia questo codice nel tuo modulo ed esegui usando il tasto F5 o manualmente. Questo restituirà un risultato come questo.
Nascondi e mostra fogli con segno diverso
I vari modi di usare il canto non uguale sono enormi. Possiamo usare questo segno per soddisfare le nostre esigenze.
# 1 - Nascondi tutti i fogli tranne un foglio
Abbiamo visto questo tipo di situazione molte volte. Dovevamo nascondere tutti i fogli tranne il foglio in particolare.
Ad esempio, se desideri nascondere tutti i fogli tranne il nome del foglio "Dati cliente", puoi utilizzare questo codice.
Codice:
Sub Hide_All () Dim Ws come foglio di lavoro per ogni Ws in ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub
# 2 - Scopri tutti i fogli tranne un foglio
Allo stesso modo, possiamo anche mostrare tutti i fogli tranne uno. Usa il codice seguente per farlo.
Codice:
Sub Unhide_All () Dim Ws As Worksheet For Each Ws In ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVisible End If Next Ws End Sub
You can download this VBA Not Equal to Excel template here – VBA Not Equal Operator Template
