Eşit Değil, VBA'da olumsuzlama operatörü olarak da adlandırılabilen bir operatördür, mantıksal bir işlevdir, bu nedenle bu işlev tarafından döndürülen çıktı ya doğru ya da yanlıştır, eşit operatörün "=" olduğunu biliyoruz, ancak eşit değildir " ”VBA'da eşit operatörden aldığımız değer ne olursa olsun Eşit Değil operatörünü kullanarak tam tersi değer elde ederiz.
VBA'da "Eşit Değil" Operatörü
Genellikle, "bir şeyin diğer şeylere eşit olup olmadığı" mantıklı bir test yaparız. Bazı durumlarda "eşitsizlik" testini de yapmamız gerekiyor . Eşitsizlik testi, eşit bir test değildir. Genel olarak, bir şeyin başka bir şeye eşit olup olmadığını, eşitse, farklı değilse de bir tür görevi yerine getirdiğini söyleriz. Benzer şekilde, Eşitsizlik testini kullanarak da bir tür işlem yapabiliriz. VBA'daki "EŞİT DEĞİL", büyüktür ve küçüktür simgelerinin birleşimiyle temsil edilir. Bu operatörlerin her ikisi bir araya gelirse, o zaman eşit sembol olmaz, yani "."
Excel VBA'da Çalışmakla Nasıl Eşit Değildir?
VBA Eşit değil, operatöre eşit mantığının tam tersi olarak çalışır. Operatör eşittir, sağlanan test tatmin olmazsa TRUE döndürür, FALSE döndürür. Örneğin, 10 = 10 derseniz, DOĞRU veya YANLIŞ döndürür.
Öte yandan, "Eşit Değil" ters yönde çalışır. Excel'de sağlanan mantıksal test eşit değilse, yalnızca DOĞRU veya YANLIŞ döndürür.
Örneğin, 10 10 derseniz, FALSE döndürür çünkü 10, 10'a eşittir. DOĞRU bir sonuç almak için, bir değerin diğerine eşit olmaması gerekir.
Excel VBA'da Eşit Olmayan Örnekleri
Aşağıda, Excel VBA'daki operatöre eşit olmayan örnekler verilmiştir.
Örnek 1
Şimdi VBA Eşit Değil () işaretini pratik olarak nasıl kullanacağımızı göreceğiz. Aşağıdaki kod parçasına bakın.
Kod:
Sub NotEqual_Example1 () Dim k As String k = 100100 MsgBox k End Sub
Burada 100 sayısının 100 sayısına eşit olup olmadığını test ediyoruz. Elbette 100 sayısının 100'e eşit olduğunu biliyoruz, dolayısıyla sonuç YANLIŞ olacaktır.
Şimdi denklemi değiştireceğim.
Kod:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Şimdi test, 100 sayısının 99'a eşit olup olmadığıdır. Yani sonuç DOĞRU olacaktır.
Örnek 2
Şimdi bu eşit olmayan operatörün gerçek zamanlı örneklerde nasıl kullanılacağını göreceğiz. Gösteri için bazı veriler oluşturdum.
İki değerimiz var, "Değer 1" ve "Değer 2".
Şimdi benim ihtiyacım, Değer 1'in Değer 2'ye eşit olmaması, sonucun "Farklı" olması veya sonucun "Aynı" olması gerekir.
Adım 1: Bir değişkeni Tamsayı olarak tanımlayın.
Kod:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Adım 2: 2'den 9'a kadar SONRAKİ DÖNGÜ İÇİN açın.
Kod:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 - 9 Sonraki k End Sub
Adım 3: Döngünün içinde, değer 1'in değer 2'ye eşit olup olmadığını test etmemiz gerekir. Kendi sonuçlarımıza ihtiyacımız olduğu için, EĞER Koşulu kullanmamız gerekir.
Kod:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 to 9 If Hücreler (k, 1) Hücreler (k, 2) Sonra Hücreler (k, 3) .Değer = "Farklı" Başka Hücreler (k, 3) .Değer = Sonraki k End Sub
Koşulun 1 değerinin 2 değerine eşit olup olmadığını test ettiğini varsayalım. Eşit değilse, "Farklı" döndürür. Eşitse, "Aynı" döndürür.
Aşağıdaki VBA kodunu kopyalayıp yapıştırabilirsiniz.
Bu kodu modülünüze kopyalayın ve F5 tuşunu kullanarak veya manuel olarak çalıştırın. Bu, böyle bir sonuç döndürecektir.
Eşit Değil İşareti Olan Sayfaları Gizle ve Göster
Eşit olmayan şarkıyı kullanmanın çeşitli yolları muazzamdır. Bu işareti ihtiyaçlarımızı karşılamak için kullanabiliriz.
# 1 - Bir Sayfa Hariç Tüm Sayfaları Gizle
Bu tür durumları birçok kez gördük. Belirli bir sayfa dışındaki tüm sayfaları gizlememiz gerekiyordu.
Örneğin, "Müşteri Verileri" sayfa adı dışındaki tüm sayfaları gizlemek istiyorsanız, bu kodu kullanabilirsiniz.
Kod:
Alt Hide_All () ActiveWorkbook.Worksheets'teki Her Çalışma Sayfası İçin Çalışma Sayfası Olarak Dim Ws Eğer Ws.Name "Müşteri Verileri" Sonra Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub
# 2 - Bir Sayfa Haricindeki Tüm Sayfaları Göster
Benzer şekilde, tek sayfa dışındaki tüm sayfaları da gösterebiliriz. Bunu yapmak için aşağıdaki kodu kullanın.
Kod:
Alt Unhide_All () ActiveWorkbook.Worksheets'teki Her Çalışma İçin Çalışma Sayfası Olarak Dim Ws Ws.Name "Müşteri Verileri" ise Sonra Ws.Visible = xlSheetVisible End If Next Ws End Sub
Bu VBA Eşit Değil Excel şablonunu buradan indirebilirsiniz - VBA Eşit Değil Operatör Şablonu.
