[Yardım]  Şarta Bağlı Label Renklendirme Mümkün mü?

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Şarta Bağlı Label Renklendirme Mümkün mü?

İleti#1)  yesim_gurol » 10 Haz 2018 15:01

Resim

Merhabalar ,
Resim üzerinde anlatmaya çalıştığım kadarı ile acaba label üzerinde dolgu renklerini belirleyebilir miyiz?
Forumda örneklere bakarken Textbox lar için sanırım yapılabileceğini gördüm.

viewtopic.php?f=7&t=17183

viewtopic.php?f=7&t=15964&p=121217&hilit=renk&sid=6a8b115069c4cd19b34822437306efd4#p121217

Label nesnesi uygun olmaz ise Textbox nesnesi eklesem.Acaba resimde açıklamaya çalıştığım olay yapılabilir mi?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Şarta Bağlı Label Renklendirme Mümkün mü?

İleti#2)  Ali ÖZ » 10 Haz 2018 17:46

Deneyin.

Kod: Tümünü seç
  If Label61.Caption = Range("m3").Value Then
    Label61.BackColor = &HFFFF00
  Else
    Label61.BackColor = &HFF&
  End If
  If Label62.Caption = Range("m3").Value Then
    Label62.BackColor = &HFFFF00
  Else
    Label62.BackColor = &HFF&
  End If
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9452
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Şarta Bağlı Label Renklendirme Mümkün mü?

İleti#3)  yesim_gurol » 10 Haz 2018 18:02

Ali Bey , öncelikle ilginize teşekkür ederim.

Kodlara baktığımda ,
1 - M3 değeri , Label 61 / Label 62 içerisinde var olduğunda mavi, yok olduğunda kırmızı oluyor.
2 - M3 değeri , Label 61 / Label 62 içerisinde olmadığında ise her iki Label da kırmızı oluyor.

Gerçekten harika da görünüyor,teşekkür ederim. Lakin bir düzeltme isteyeceğim :oops: Şöyle ki ;

1. Maddede M3 değeri, her iki Label da olur ise ; sadece bir Label mavi dolgu olsa :oops:
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Şarta Bağlı Label Renklendirme Mümkün mü?

İleti#4)  yesim_gurol » 10 Haz 2018 18:40

Bir önceki mesaj içerisine yazamadım,
Yine 1.madde de , hangi Label de var ise o mavi olsa diğerinin rengine dokunmasak :oops:
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Şarta Bağlı Label Renklendirme Mümkün mü?

İleti#5)  yesim_gurol » 10 Haz 2018 18:53

yesim_gurol yazdı:Bir önceki mesaj içerisine yazamadım,
Yine 1.madde de , hangi Label de var ise o mavi olsa diğerinin rengine dokunmasak :oops:


Eğer ki ,M3 değeri her iki label de yok ise sadece o zaman iki label da kırmızı olsa.
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Şarta Bağlı Label Renklendirme Mümkün mü?

İleti#6)  yesim_gurol » 12 Haz 2018 00:20

Resim

Merhabalar,

İlk mesajımda ki resim üzerinde açıklamaya göre Ali Bey'in hazırlamış olduğu kodları düzenleyerek biraz olsun yol katettim. Kodlar şu şekilde ;
Kod: Tümünü seç
If Label61.Caption = Range("M3").Value Then
    Label61.BackColor = &HFFC0C0
End If
    If Label61.Caption = Range("S3").Value Then
    Label61.BackColor = &HFFC0FF
End If
 
  If Label62.Caption = Range("m3").Value Then
    Label62.BackColor = &HFFC0C0
  End If
    If Label62.Caption = Range("S3").Value Then
    Label62.BackColor = &HFFC0FF
  End If
 

 
 
 
  If Label63.Caption = Range("m4").Value Then
    Label63.BackColor = &HFFC0C0
  End If
  If Label63.Caption = Range("S4").Value Then
    Label63.BackColor = &HFFC0FF
  End If

  If Label64.Caption = Range("m4").Value Then
    Label64.BackColor = &HFFC0C0
End If
    If Label64.Caption = Range("S4").Value Then
    Label64.BackColor = &HFFC0FF
End If


   
   
   
    If Label65.Caption = Range("m5").Value Then
    Label65.BackColor = &HFFC0C0
End If
    If Label65.Caption = Range("R5").Value Then
    Label65.BackColor = &HFFC0FF
End If

    If Label66.Caption = Range("m5").Value Then
    Label66.BackColor = &HFFC0C0
End If
    If Label66.Caption = Range("R5").Value Then
    Label66.BackColor = &HFFC0FF
End If
 






Mesaj üzerinde bulunan resim de açıklamaya çalışmış olduğum yerde kalmış durumdayım.:???:
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Şarta Bağlı Label Renklendirme Mümkün mü?

İleti#7)  yesim_gurol » 12 Haz 2018 00:21

Son güncel dosyam ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri

Cevap: Şarta Bağlı Label Renklendirme Mümkün mü?

İleti#8)  Ali ÖZ » 13 Haz 2018 10:37

Resimi görüntülüyemiyorum,bu siteye ekler misiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9452
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Şarta Bağlı Label Renklendirme Mümkün mü?

İleti#9)  yesim_gurol » 14 Haz 2018 10:06

Ali ÖZ yazdı:Resimi görüntülüyemiyorum,bu siteye ekler misiniz.


Ali Bey merhabalar,

Resim boyutundan dolayı resim ekleyemedim. Anlatmam gerekir ise ;

2 nolu mesajınızda yazmış olduğunuz kodlar üzerinde şu şekilde değiştirmeler yaptım.
Kod: Tümünü seç
If Label61.Caption = Range("M3").Value Then
    Label61.BackColor = &HFFC0C0
End If
    If Label61.Caption = Range("S3").Value Then
    Label61.BackColor = &HFFC0FF
End If
 
  If Label62.Caption = Range("m3").Value Then
    Label62.BackColor = &HFFC0C0
  End If
    If Label62.Caption = Range("S3").Value Then
    Label62.BackColor = &HFFC0FF
  End If
 

 
 
 
  If Label63.Caption = Range("m4").Value Then
    Label63.BackColor = &HFFC0C0
  End If
  If Label63.Caption = Range("S4").Value Then
    Label63.BackColor = &HFFC0FF
  End If

  If Label64.Caption = Range("m4").Value Then
    Label64.BackColor = &HFFC0C0
End If
    If Label64.Caption = Range("S4").Value Then
    Label64.BackColor = &HFFC0FF
End If
   
    If Label65.Caption = Range("m5").Value Then
    Label65.BackColor = &HFFC0C0
End If
    If Label65.Caption = Range("R5").Value Then
    Label65.BackColor = &HFFC0FF
End If

    If Label66.Caption = Range("m5").Value Then
    Label66.BackColor = &HFFC0C0
End If
    If Label66.Caption = Range("R5").Value Then
    Label66.BackColor = &HFFC0FF
End If




Bu kodlar ile ,
Label 61 veya 62 üzerinde "M3" değeri olduğunda "MAVİ" dolgu,
Label 61 veya 62 üzerinde "S3" değeri olduğunda "PEMBE" dolgu olmaktadır.

Label zemin renkleri "KIRMIZI" olduğundan,
Eğer ki , Label 61 ve 62 de "M3 ve S3" değerleri olmadığında mavi / yeşil renklendirme olmayacağından kırmızı olarak kalıyor.
Bu kısma kadar her şey düzgün.

Sorun oluşturan ve düzeltmek istediğim kısım ise ;
Mesala;
"M4 ve S4" değerleri üzerinden anlatmam gerekir ise , "M4 ve S4" değerleri eşit olduğunda "Label 61 ve 62" nesnelerinin ikisininde PEMBE olması.
Kodlara baktığımız da "M" sütununda yer alan değerler için "mavi", "S" sütununda yer alan değerler için ise "pembe" olduğu görülüyor. Bundan ötürü "M4 ve S4" değerleri eşit olduğunda ikisinde tek bir renk değil de birinin mavi , diğerinin pembe olmasını istiyorum.

Örnek dosyam , 7 nolu mesajım da bulunmaktadır.
Kullanıcı avatarı
yesim_gurol
Yeni Başlamış
 
Kayıt: 10 Haz 2018 12:35
Meslek: Hemşire
Yaş: 35
İleti: 80
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kayseri


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Sogou ve 6 misafir

cron
Bumerang - Yazarkafe