Label değerleri eşit ise

[zulfuernek]

userformda 3 adet label ver

Label 1 ve label 2 deki satıların farkını label 3 e alıyor

SORU1: lebel 3 eksi değer nasıl gösterebilirim

yani Label1 = 1
Label2 = 2

ise Label 3 farkını alacağı için Label 3 ün -1 olması gerekir


SORU2: Label 3 sıfırdan büyük ise arka fonu mavi olmalı
Label 3 sıfırdan küçük ise arka fonu kırmızı olmalı

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi bir yapı düşünülebilir.

Kırmızı renklendirdiğim satırlarla da YAZI RENGİ belirleyebilirsiniz.

Label.Caption değerlerinin SAYISAL olduğu varsayıldı elbette.

Label1 ve Label2'nin, BOŞ veya METİN olma durumuna ilişkin önlemler alınmıştır diye düşünüyorum.
.

Label3.Caption=Format((1*Label1.Caption)-(1*Label2.Caption),"#,##0.00")[COLOR="SeaGreen"]    ' HESAPLAMA SATIRI[/COLOR]

If (1*Label1.Caption)=(1*Label2.Caption) Then[COLOR="SeaGreen"]    ' EŞİTLİK HALİ[/COLOR]
    Label3.BackColor=vbYellow
[COLOR="Red"]    Label3.ForeColor=???[/COLOR]
ElseIf (1*Label1.Caption)>(1*Label2.Caption) Then[COLOR="SeaGreen"]    ' SONUÇ POZİTİF İSE[/COLOR]
    Label3.BackColor=vbBlue
[COLOR="red"]    Label3.ForeColor=???[/COLOR]
ElseIf (1*Label1.Caption)<(1*Label2.Caption) Then[COLOR="SeaGreen"]    ' SONUÇ NEGATİF İSE[/COLOR]
    Label3.BackColor=vbRed
[COLOR="red"]    Label3.ForeColor=???[/COLOR]
End If

 

[zulfuernek]

hocam elinize emeğinize sağlık. istediğimden daha fazlası olmuş. yaı rengini bile belirldedim çok teşekkür ederim

ayrıca ufak bir ek olarak eşitlik halinde sıfır değerini yazmaktansa eşitlik durumunda KASA TUTTU yazısı ekledim verdiğini formül sayesinde.

emeğinize sağlık

 

[Ömer BARAN]

Eyvallah.

İyi çalışmalar dilerim.

Geçen yazdan bu yana, sonunda KASA TUTTU demekki.
.

 

[zulfuernek]

Ynen öyle hocam ))))

iyiki o programı yarıda bırakmışım. Sistem değiştiği için boşa gidecekti o kadar emeğimiz ömer hocam.

Bu sistem değişmez artık son sürüm siteme güncelleme yapıldı artık. Sayenizde bugün tl kasasını tutturduk bi kaç gün sonrada döviz kasasını tutturursak ne ala ))))

 

[Ömer BARAN]

Ne sizin ve ne de destek olanların emeği, hiçbir şekilde boşa gitmez.
En kötü ihtimal tecrübe edindirmiş olur.

Bunca tecrübeden sonra döviz kasası olayını da halledersiniz artık.
Sıkıntı olursa da yine forum mensupları her zaman destek olacaktır.

İyi çalışmalar, başarılar dilerim.
.