• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü listview değere göre renklendirme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
D

dogan.importexport

Yeni Üye
Katılım
9 Eyl 2021
Mesajlar
206
Çözümler
2
Aldığı beğeni
21
Excel V
Office 365 TR
Konu Sahibi
Selamlar ekte dosyada E sütunundaki rakamlar sıfırdan küçük ise listviewde rakam kırmızı görünsün eğer sıfırdan büyük ise listview satırı komple mavi olsun.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
şeklinde deneyebilirsiniz
 
Olumlu oy 0 Negatif oyla
arada atlanan sütunlar yoksa ekleme işlemini döngüyle yapmak daha uygun olabilir
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
yukardaki yerine
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
şeklinde
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sıfırdan küçükler için gayet güzel oldu teşekkürler. Fakat sıfırdan büyük ise tüm satırı mavi de yapabilirmisiniz.
 
Olumlu oy 0 Negatif oyla
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Ve bu ilk rakam eksi olmasına rağmen kırmızı yapmıyor. Sadece
If Sheet3.Cells(i + 1, "E") < 0 Then lst.ListSubItems(4).ForeColor = vbRed bu kısmı kullandım. Komple kullanırsam hata veriyor
 
Olumlu oy 0 Negatif oyla
aşağıdaki kodu dener misiniz?HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi
İlk kolon renk değiştirmiyor hiç. Ayrıca 13 sütun var tablomda ama siz 1 to 12 yapmışsınız. İlk kolonun Renk değiştirmeme sebebi bu olabilir mi
 
Olumlu oy 0 Negatif oyla
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
ilk sütun için
If Sheet3.Cells(i, "E") > 0 Then ListView1.ListItems(i - 1).ForeColor = vbBlue <==bu satır eklenecek
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Konu Sahibi
halily' Alıntı:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
ilk kolon için
If Sheet3.Cells(i, "E") > 0 Then ListView1.ListItems(i - 1).ForeColor = vbBlue <==bu satır eklenecek
Genişletmek için tıkla...
Bu şekilde oldu. ancak kodları değiştirirsem bendekilerle tüm yapıyı değiştiriyor. Çünki aynı tipte 25 e yakın userform ve modüller var. Eğer yapıyı bozmaz derseniz. Bu kodu aynı tipteki tüm formlara kopyalama yapacağım
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Olumlu oy 0 Negatif oyla
Rica ederiz.Webbrowser bende çalışmıyor nedense.
32 bir önceden çalışıyordu şimdi olmuyor boş ekran geliyor.
 
Olumlu oy 0 Negatif oyla
Önceden söylediğim pdf çalışmıyorduki haha çalışmıyor.Webrowser çalışıyordu o da gitti elden :)
Güncelleme yaptım 2016 officeyi.Belki bundandır.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst