Non uguale è 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 è "=" ma non uguale è " "In VBA quindi qualunque sia il valore che otteniamo dall'operatore uguale, otterremo il valore esatto opposto utilizzando l'operatore Diverso.
Operatore "Non uguale" in VBA
Di solito, eseguiamo un test logico "se qualcosa è uguale ad altre cose o no". In alcuni casi, dobbiamo eseguire anche 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 anche il test di disuguaglianza possiamo 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 un 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 lo è, restituirà FALSO. Ad esempio, se dici 10 = 10, restituirà VERO oppure FALSO.
Dall'altro lato, "Not Equal" funziona nella direzione opposta. Se il test logico fornito in Excel non è uguale, solo restituirà VERO oppure FALSO.
Ad esempio, se dici 10 10, restituirà FALSE perché 10 è uguale a 10. Per ottenere un risultato TRUE, un valore non deve essere uguale all'altro valore.
Esempi di Non uguale a in Excel VBA
Di seguito sono riportati gli esempi di non uguale all'operatore 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. Sicuramente 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 è se il valore 1 non è uguale al valore 2, quindi ho bisogno che il risultato sia "diverso", altrimenti ho bisogno che il risultato sia "uguale".
Passaggio 1: definire una variabile come numero intero.
Codice:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Passaggio 2: Apri 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
Supponiamo che la condizione verifichi se il valore 1 non è uguale al valore 2 o meno. Se non è uguale, restituirà "Diverso". Se uguale, restituirà "Same".
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
Puoi scaricare questo modello VBA diverso da Excel qui - Modello operatore VBA diverso da quello.
