A.S.C Filtre, Grafik ve Raporlama Eklentisi

Koşullu Biçimlendirme
#7
dsezgin Hocam  vermiş olduğunuz kodu projeme uyguladım ancak sanırım anlatmak istediğim konuyu eksik anlattım konu ile ilgili sizlerinde vermiş olduğu kodu örneğe uyguladım ve tekrar resim üzerinde anlatmaya çalıştım yardımlarınız ve sabrınız için teşekkür ederim


Eklenti Dosyaları
.rar   17.04.2021.rar (Boyut: 355,83 KB / İndirilme: 19)



  Alıntı
Bu mesajı beğenenler:
#8
(19-04-2021, 01:36)sensu demiş ki: Hocam  vermiş olduğunuz kodu projeme uyguladım ancak sanırım anlatmak istediğim konuyu eksik anlattım.

Ayni prosedür içinde if..else..end if arasında koşul belirlemeyi denediniz mi?

Visual Basic
  1. Private Sub Ayrıntı_Paint()
  2. Dim Sayac, RenkA, VarYok As Long, Mik As Double, Isrt As Variant
  3. RenkA = Me.Controls("Urn").BackColor
  4. For Sayac = 1 To 12
  5.    If Me.Controls("[" & Sayac & "]").Tag = "Renklendir" And Me.Controls("[" & Sayac & "]").Value > 0 Then
  6.            VarYok = VarYok + IIf(Me.Controls("[" & Sayac & "]").Value > 0, 1, 0)
  7.            Isrt = IIf(Isrt = 0 And Nz(Me.Controls("[" & Sayac & "]").Value, 0) = Me.Planlanan, 0, -1)
  8.    End If
  9. Next Sayac
  10. Sayac = 0
  11. '**** Veri Kutu Rengi *******
  12. For Sayac = 1 To 12
  13.                        If Me.PaketA = VarYok And Isrt = 0 Then
  14.                                Me.isEmri.BackColor = vbRed
  15.                                Me.isEmri.ForeColor = vbWhite
  16.                         ElseIf Me.PaketA = VarYok And Isrt = -1 Then
  17.                                Me.isEmri.BackColor = vbGreen
  18.                                Me.isEmri.ForeColor = vbBlack
  19.                         Else
  20.                                Me.isEmri.BackColor = Me.Controls("Urn").BackColor
  21.                                Me.isEmri.ForeColor = vbBlack
  22.                         End If
  23.  
  24. If Me.Controls("[" & Sayac & "]").Tag = "Renklendir" Then
  25.            If Me.PaketA = VarYok And Me.Controls("[" & Sayac & "]") > 0 Then
  26.                    Me.Controls("[" & Sayac & "]").BackColor = vbGreen
  27.            Else
  28.                     Me.Controls("[" & Sayac & "]").BackColor = RenkA
  29.              End If
  30. End If
  31. Next Sayac
  32. End Sub



Deneme yapmadım...



  Alıntı
Bu mesajı beğenenler:
#9
Hocam vermiş olduğunuz kod aslında tam istediğim gibi fakat kod yazma bilgim olmadığı için iç içe if else end if kullanımı konusunda dediğinizi yapmaya çalıştım fakat sonuç alamadım vermiş olduğunuz kod tek paketli ürünler için geçerli 2, 3 vs daha fazla paketli ürünler için nasıl bir yol izlemeliyiz



  Alıntı
Bu mesajı beğenenler:
#10
(21-04-2021, 00:08)sensu demiş ki: vermiş olduğunuz kod tek paketli ürünler için geçerli 2, 3 vs daha fazla paketli ürünler için nasıl bir yol izlemeliyiz

Bunu biraz daha açabilir misiniz?



  Alıntı
Bu mesajı beğenenler:
#11
Hocam resim üzerinde anlatmaya çalıştım.


Eklenti Dosyaları
.jpg   21.04.2021.JPG (Boyut: 144,31 KB / İndirilme: 10)



  Alıntı
Bu mesajı beğenenler:
#12
[Resim: attachment.php?aid=24284]
Kutu icindeki verilerden bir tanesi planlanana uymuyorsa veya tum alanlar ile senaryo ne olabilir?


Mesaj 8 Güncelledim.


Eklenti Dosyaları
.jpg   sensu.JPG (Boyut: 72,94 KB / İndirilme: 21)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Metin Kutusundaki Yazıları Biçimlendirme Mert1985 1 82 25-04-2021, 19:45
Son Mesaj: dsezgin
  [VBA] Excel Aktarma Ve Hücre Biçimlendirme lemoncher2 11 346 05-04-2021, 18:32
Son Mesaj: oosmaner
  Tarih E Göre Kosullu Bicimlendirme oenderayak 3 239 27-01-2021, 23:28
Son Mesaj: oenderayak
  [SORGU] Açılan Kutu Koşullu Listeleme eagle28 16 378 17-01-2021, 19:01
Son Mesaj: eagle28
  [VBA] Koşullu Buton eagle28 14 562 16-01-2021, 21:43
Son Mesaj: eagle28
  [FORM] Altformdaki Liste Kutusu Koşullu Olarak Açılmıyor M_Kemal_Askeri 2 156 16-01-2021, 01:49
Son Mesaj: M_Kemal_Askeri
  [SORGU] Koşullu Sorguda ııf Ile ın() Veya Not ın () Kullanımı Birleşik Giriş Kut. çalıştırma sarsak 8 538 14-08-2020, 15:22
Son Mesaj: sarsak
  [VBA] Toplu Biçimlendirme Ve Tasarım Modunda Kaydetme h2001 9 466 07-06-2020, 23:42
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi