1 sayfadan 1. sayfa

Çoklu If-Else kullanırken sonraki ELseIf e geçmiyor

İletiTarih: 12 Oca 2021 16:05
HyperNemesiS
(Konuyu yanlış yerde açtıysam affedin ilk sorum o yüzden If ile ilgili soruyu nereye yazacağımı bulamadım)

Merhabalar excel vba kısmını öğrenmeye çalışıyorum. If else ile bir şey denemek istedim ama sorunla karşılaşıyorum. a,b,c değerleri farklı veya aynı olsun farketmeksizin kod çalıştığında ilk ElseIf komutunu uyguluyor.
Örneğin:
a=3
b=3
c=3
Olması gereken:
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "X"
Sayfa1.Cells(5, 7) = "X"
Olan:
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "Y"
Sayfa1.Cells(5, 7) = "Z"

Her zaman ilk ElseIf komutunu uyguluyor benlik bir hata mı bilmiyorum ama başka kullanıcılarda sorunsuz çalışıyor. Forumdaki diğer kullanıcılarda bu tarz bir komut sorunsuz çalışıyor ve doğru değerleri gösteriyor. Hatam ne burada?


Kod: Tümünü seç
Sub Düğme1_Tıkla()
Dim a, b, c As Integer



a = Sayfa1.Cells(4, 5).Value
b = Sayfa1.Cells(4, 6).Value
c = Sayfa1.Cells(4, 7).Value


If a = b = c Then
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "X"
Sayfa1.Cells(5, 7) = "X"
    ElseIf a <> b <> c Then
    Sayfa1.Cells(5, 5) = "X"
    Sayfa1.Cells(5, 6) = "Y"
    Sayfa1.Cells(5, 7) = "Z"
        ElseIf a = b <> c Then
        Sayfa1.Cells(5, 5) = "X"
        Sayfa1.Cells(5, 6) = "X"
        Sayfa1.Cells(5, 7) = "Y"
            ElseIf a <> b = c Then
            Sayfa1.Cells(5, 5) = "X"
            Sayfa1.Cells(5, 6) = "Y"
            Sayfa1.Cells(5, 7) = "Y"
End If
End Sub

Cevap: Çoklu If-Else kullanırken sonraki ELseIf e geçmiyor

İletiTarih: 12 Oca 2021 16:11
halily
Bildigim kadarıyla VBA if koşulu boyle kontrol edilmez
Kod: Tümünü seç
if a=b and b=c then
.
.
elseif a<>b and b<>c then
.
.

Cevap: Çoklu If-Else kullanırken sonraki ELseIf e geçmiyor

İletiTarih: 12 Oca 2021 16:12
halily
Koşullar ayrı ayrı kontrol edilir.

Cevap: Çoklu If-Else kullanırken sonraki ELseIf e geçmiyor

İletiTarih: 12 Oca 2021 16:23
HyperNemesiS
çok basit bir hata -_- Hatayı biliyorum ama unutuyorum .şu öğrenme süreçlerinde yapılan basit hatalar insanın şevkini kırıyor. gene de teşekkürler hatamı gösterdiğiniz için :)

Cevap: Çoklu If-Else kullanırken sonraki ELseIf e geçmiyor

İletiTarih: 12 Oca 2021 16:37
halily
Rica ederim
Iyi calismalar

Cevap: Çoklu If-Else kullanırken sonraki ELseIf e geçmiyor

İletiTarih: 12 Oca 2021 21:29
şahin
Kod: Tümünü seç
Sub ifThen()


Dim a, b, c As Integer



a = 3
b = 3
c = 3


If a = b And a = c And c = b Then
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "X"
Sayfa1.Cells(5, 7) = "X"
    ElseIf a <> b And a <> c And c <> b Then
    Sayfa1.Cells(5, 5) = "X"
    Sayfa1.Cells(5, 6) = "Y"
    Sayfa1.Cells(5, 7) = "Z"
        ElseIf a = b And a <> c Then
        Sayfa1.Cells(5, 5) = "X"
        Sayfa1.Cells(5, 6) = "X"
        Sayfa1.Cells(5, 7) = "Y"
            ElseIf a <> b And a = c Then
            Sayfa1.Cells(5, 5) = "X"
            Sayfa1.Cells(5, 6) = "Y"
            Sayfa1.Cells(5, 7) = "Y"
End If
End Sub