09/12/2011, 09:33
koşullu biçimlendirme
1 2
12/12/2011, 20:26
KARAHİSARLI
iyi akşamlar arkadaşlar, accesstr.net den öğrendiğim kadarı ile örneğim üzerinde çalışma yaptım, ancak sayı değerini girdğinde yüzdelik alan hesaplanmıyor, aç kapa yapınca hesaplanıyor birde şekillerirn rengi değişmiyor, nerde hata yaptım örneğimi bir incelermisiniz
12/12/2011, 22:08
schworse
Merhaba;
Sizin işinizi kolaylaştırması için sistematik bir yapı oluşturdum. A sutuna bölge isimlerini istedeğiniz kadar yazabilirsiniz.
C sutunda değerler yer almalı aynen devam ediyor.
D Sutununda ise bölgenin çizimi var ise aktif etmelisiniz yok ise pasif kalmalıdır.
Tek fark güncelle butonuna basmalısınız.
Kolay gelsin.
Sizin işinizi kolaylaştırması için sistematik bir yapı oluşturdum. A sutuna bölge isimlerini istedeğiniz kadar yazabilirsiniz.
C sutunda değerler yer almalı aynen devam ediyor.
D Sutununda ise bölgenin çizimi var ise aktif etmelisiniz yok ise pasif kalmalıdır.
Tek fark güncelle butonuna basmalısınız.
Kolay gelsin.
Kod:
Private Sub CommandButton1_Click()
Call Guncelle
End Sub
Sub Guncelle()
satirsayisi = WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A"))
satirsayisi = satirsayisi - 1
For i = 2 To satirsayisi
Adi = Sheets("Sayfa1").Range("A" & i)
Renk = Sheets("Sayfa1").Range("B" & i)
Durum = Sheets("Sayfa1").Range("D" & i)
Sayi = Renk
If (Durum = "Aktif") Then
If (Sayi >= 1 And Sayi <= 5) Then
ActiveSheet.Shapes(Adi).Fill.ForeColor.SchemeColor = 5
ElseIf (Sayi >= 11 And Sayi <= 15) Then
ActiveSheet.Shapes(Adi).Fill.ForeColor.SchemeColor = 51
ElseIf (Sayi >= 16 And Sayi <= 20) Then
ActiveSheet.Shapes(Adi).Fill.ForeColor.SchemeColor = 4
Else
ActiveSheet.Shapes(Adi).Fill.ForeColor.SchemeColor = 17
End If
Else
If (CheckBox1.Value = True) Then
MsgBox (Adi & " Pasif Durumdadır.")
Else
End If
End If
Next
End Sub 13/12/2011, 01:48
KARAHİSARLI
hocam tek kelime ile şahane olmuş süper demek bile zayıf kalır elinize sağlık harika olmuş gerçekten
13/12/2011, 12:04
KARAHİSARLI
hocam koşullu biçimlendirmede son bir isteğim daha olacak,
kod da mesela >=1 and <=5 yazımız var ve bu sınırlı kalıyor
ben aa=g2
bb=h3
şeklinde tanımlama yaptım ve >=1 and <=5 yerine aa>= and <=bb
yazdım ve diğerlerini bu şekilde tanımladım ancak renkler değişmedi,
birde güncelle butonuna basınca yüzde güncellenmiyor hocam
kod da mesela >=1 and <=5 yazımız var ve bu sınırlı kalıyor
ben aa=g2
bb=h3
şeklinde tanımlama yaptım ve >=1 and <=5 yerine aa>= and <=bb
yazdım ve diğerlerini bu şekilde tanımladım ancak renkler değişmedi,
birde güncelle butonuna basınca yüzde güncellenmiyor hocam
14/12/2011, 00:10
schworse
Merhaba;
Hatalı kod yazmışsınız excel'de formul çubuğuna yazılır gibi kod yazılmaz. vb koduna uyarlamalısınız hangi hücre ile ilişkilendirmek istiyor iseniz Sheets("Sayfa1").Range("G2") diye yazmalısınız.
vb kurallarına uygun kod yazmaz iseniz kodlar çalışmaz.
Bu arada konu çözülmüş sorular arasında konu kapatılmıştır yeni konu açmalısınız.
Kolay gelsin.
Hatalı kod yazmışsınız excel'de formul çubuğuna yazılır gibi kod yazılmaz. vb koduna uyarlamalısınız hangi hücre ile ilişkilendirmek istiyor iseniz Sheets("Sayfa1").Range("G2") diye yazmalısınız.
vb kurallarına uygun kod yazmaz iseniz kodlar çalışmaz.
Bu arada konu çözülmüş sorular arasında konu kapatılmıştır yeni konu açmalısınız.
Kolay gelsin.
1 2